اخواني اردت الاستعلام عن وجود مشكلة في الكود التالي
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Trim("") Then
MsgBox("تأكد من الحقول الفارغه ")
Else
'Try
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\mydata.mdb"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO stoks values ('" & TextBox1.Text & "','" & ComboBox1.Text & "') "
'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & Cb_sex.Text & "','" & Cb_soc.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & Cb_nat.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "','" & TextBox16.Text & "','" & TextBox17.Text & "','" & Cb_gs.Text & "','" & Cb_su.Text & "','" & Cb_gc.Text & "','" & Cb_pr.Text & "','" & Cb_col.Text & "','" & Cb_dep.Text & "','" & TextBox24.Text & "'
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Me.Hide()
'frm1.Show()
'Catch ex As Exception
Exit Sub
'End Try
End If
لاني جربت كتابة اللكود 5مرات ويعطني خطاء في
SavInto.ExecuteNonQuery()
وجبت جميع الحول ولم تفلح معي