[أبو يزن]

السلام عليكم ورحمة الله وبركاته

نفع الله بكم اخوتي الكرام 

لدي مشكلة واجهتني وانا بصدد عمل مشروع برنامج لإدارة المستودعات للمنضمة التي اعمل بها 
حيث انني لست محترف ولكن لإثبات نفس في منصبي الحالي كمسئول المستودعات والمشتريات 

لا أطيل عيكم احبتي 

قد تم عمل قاعد بيانات اكسس  باسم 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

اعلم بأن الكود خطأ واتوقع الخطأ في السطر الأول 

ولكن لم استطيع معرفة الكود الخاص بتعريف الارقام وهي المشكلة التي واجهتني حيث ان التعامل مع النصوص لا يوجد مشكلة به 

فأرجو منكم تعديل الكود حتى يتوافق مع زر الاضافة ولكم جزيل الشكر