06-11-14, 11:54 PM
السلام عليكم ورحمة الله وبركاته
نفع الله بكم اخوتي الكرام
لدي مشكلة واجهتني وانا بصدد عمل مشروع برنامج لإدارة المستودعات للمنضمة التي اعمل بها
حيث انني لست محترف ولكن لإثبات نفس في منصبي الحالي كمسئول المستودعات والمشتريات
لا أطيل عيكم احبتي
قد تم عمل قاعد بيانات اكسس باسم storemng بداخلها جدول بإسم product وهو يحمل ثلاث أعمدة
الأول nump/ رقم الصنف من نوع رقم صحيح
الثاني namep/ اسم الصنف من نوع نص
الثالث now / الكمية المتوفرة من نوع رقم صحيح
أما الفورم متكون من 3 تيكست بوكس و 3 زر بوتون
وفي الجينرال تم عمل الكود التالي
Imports System.Data
Imports System.Data.OleDb
أما في داخل الفورم تم عمل الكود التالي للاتصال بقاعدة البيانات حيث أن ليس لدي مشكلة في الاتصال
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=storemng.accdb")
في زر الاضافة تم عمل الكود التالي
اعلم بأن الكود خطأ واتوقع الخطأ في السطر الأول
ولكن لم استطيع معرفة الكود الخاص بتعريف الارقام وهي المشكلة التي واجهتني حيث ان التعامل مع النصوص لا يوجد مشكلة به
فأرجو منكم تعديل الكود حتى يتوافق مع زر الاضافة ولكم جزيل الشكر
نفع الله بكم اخوتي الكرام
لدي مشكلة واجهتني وانا بصدد عمل مشروع برنامج لإدارة المستودعات للمنضمة التي اعمل بها
حيث انني لست محترف ولكن لإثبات نفس في منصبي الحالي كمسئول المستودعات والمشتريات
لا أطيل عيكم احبتي
قد تم عمل قاعد بيانات اكسس باسم storemng بداخلها جدول بإسم product وهو يحمل ثلاث أعمدة
الأول nump/ رقم الصنف من نوع رقم صحيح
الثاني namep/ اسم الصنف من نوع نص
الثالث now / الكمية المتوفرة من نوع رقم صحيح
أما الفورم متكون من 3 تيكست بوكس و 3 زر بوتون
وفي الجينرال تم عمل الكود التالي
Imports System.Data
Imports System.Data.OleDb
أما في داخل الفورم تم عمل الكود التالي للاتصال بقاعدة البيانات حيث أن ليس لدي مشكلة في الاتصال
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=storemng.accdb")
في زر الاضافة تم عمل الكود التالي
كود :
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If (Integer.Parse(TextBox2.Text) AndAlso String.IsNullOrWhiteSpace(TextBox3.Text) AndAlso Integer.Parse(TextBox4.Text)) Then
MessageBox.Show("يجب تعبئة جميع الفراغات قبل الاضافة")
Return
End If
'مرحلة تعريف أمر إضافة
Dim cmd As New OleDbCommand("insert into products (nump, namep, now) values ('& text2.text & ','" & TextBox3.Text & "',' & TextBox4.Text & ')")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم إضافة الصنف بنجاح")
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
End Sub
End Class
اعلم بأن الكود خطأ واتوقع الخطأ في السطر الأول
ولكن لم استطيع معرفة الكود الخاص بتعريف الارقام وهي المشكلة التي واجهتني حيث ان التعامل مع النصوص لا يوجد مشكلة به
فأرجو منكم تعديل الكود حتى يتوافق مع زر الاضافة ولكم جزيل الشكر