الى اصحاب الهمم ارجوا المساعده

انا اسف برغم اضافه الكود بالطريقه الصحيحه ولكن مش قادر افهم ليه الكود مش بيظهر مظبوط

الرسالة التى تظهر هى خطا فى نحو جمله insert into

		Dim number, name, unit, unitprice As String
		number = TextBox1.Text
		name = TextBox2.Text
		unit = TextBox3.Text
		unitprice = TextBox4.Text
		If number = "" Or name = "" Or unit = "" Or unitprice = "" Then
			MsgBox(" اكمل ادخال البيانات من فضلك ")
			Exit Sub
		End If
		cm.CommandText = "insert into names(number,name,unit,unitprice)values('" & number & "','" & name & "','" & unit & "','" & unitprice & "')"
		cm.Connection = cnn
		Try
			cm.ExecuteNonQuery()
			MsgBox(" تم اضافه الصنف بنجاح")
			TextBox1.Text = ""
			TextBox2.Text = ""
			TextBox3.Text = ""
			TextBox4.Text = ""
			Button2.Enabled = True
			Button3.Enabled = True
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

يجب أن يتطابق نوع البيانات في الفورم مع نوع البيانات في القاعده

وأعتقد أخي ان الخطأ لديك هنا هو ارسال الحقل ( Number ) إلى قاعدة البيانات على أنه نص

وهو هناك تم تحديده برقم ... غير نوعه من String إلى Integer

ولاحظ أنك لن تحتاج إلى علامة التنصيص له في جملة الـ Insert

نفس الوضع بالنسبه لبقية الحقول إذا وجد تعارض

الاخ الفاضل السعوودى السلام عليكم ورحمه الله وبركاته شكرا اخى الكريم على مرورك وللاسف لم تنجح المحاوله

ملحوظه جميع خواص الحقول بقاعده البيانات = نص والحقل number مفتاح اساسى

وختاما لى فيك ياارض الحجاز حبيب اللهم صلى وسلم وبارك على محمد واله وصحبه وسلم تسليما كثيرا اللهم اوردنا حوضه وامتنا على سنته

اللهم امين 0

اولا انت عامل open لقاعدة البيانات وياريت تكتب ال error الي بطلع او حاول ترفع برنامج هون وان شاء الله راح نقدر نساعدك الي فهمتوا من كلامك كلهم string وجملتك صح ابعت ال error او البرنامج.

جرب هكذا

cm.CommandText = "insert into names(number,name,unit,unitprice)values('" & number & ",'" & name & ",'" & unit & ",'" & unitprice & "')"