[الو0]

عندي كود للتعديل ولاكن يعطي خطاء ولا اعلم السبب

كود :

Private Sub save2()
       Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data\" & My.Settings.DBname & ";Jet OLEDB:Database Password=" & My.Settings.DBpass & ";"

       Dim Con As New OleDbConnection(ConStr)
       Dim SavInto As New OleDb.OleDbCommand
       SavInto.Connection = Con
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = "UPDATE table2 SET num18= '" & TextBox30.Text & "',num19='" & TextBox31.Text & "' WHERE name3=" & TextBox11.Text & ""
       Con.Open()
       SavInto.ExecuteNonQuery()
       Con.Close()

مع العلم بان جميع اسماء الحقول والتكست بوكس صحيحه 100%

ارجو المساعده ولكم مني فائق الشكرو التقدير

[ملهمـ]

قم بتنزيل صورة الخطأ

[الو0]

(24-04-18, 12:41 PM)ملهمـ كتب : قم بتنزيل صورة الخطأ