بسم الله الرحمن الرحيم
اخواني الاعزاء ارجوا المساعدة
المثال 2005
لدى مثال 2005 احتاج ان اقوم بعمل حفظ لبيانات المدخلة من خلال TextBox والمشكلة موجودة فى ازار الحفظ والمسح
زر الحفظ
intOption = 1
cn.Open()
Try
Dim InsertCommand As OleDbCommand = New OleDbCommand()
InsertCommand.Connection = cn
InsertCommand.CommandText = "INSERT INTO MyTestTable(NUM,USER,PASS) VALUES('" & Me.TextBox1.Text.Trim & "', '" & Me.TextBox2.Text.Trim & "','" & Me.TextBox3.Text.Trim & "')"
'هنا يحدث الخطا
InsertCommand.ExecuteNonQuery()
' cn.Close()
FillDataSetAndView()
BindFields()
MyCurrencyManager.Position = MyCurrencyManager.Count - 1
ShowPosition()
InsertCommand.Dispose()
InsertCommand = Nothing
Catch ex As OleDbException
MessageBox.Show(ex.Message, " Save AddNew ", MessageBoxButtons.OK, _
MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, _
MessageBoxOptions.RtlReading)
End Try
TextBox1.Enabled = True
intOption = 0تظهر لي رسالة ان هناك فى جملة SQL
وبالمرفقات المثال كامل
ارجوا من الاخوة المساعدة ولكم جزيل الشكر
