السلام عليكم
اخواني الكرام لم أكتشف الخطأ في هذا الكود فعند تفعيلة تأتي رسالة خطأ في جملة insert into
أتمنى أن أجد لديكم الحل ولكم جزيل الشكر ..
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\msa.mdb"
Dim con As New OleDb.OleDbConnection(ConStr)
con.Open()
Dim cmd As New OleDbCommand
Try
cmd.CommandText = "insert into gan(nam,mrh,msr,add)values('" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox2.Text & "')"
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم اضافة السجل بنجاح")
Catch ex As OleDbException
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Sub
