24-04-18, 07:24 AM
عندي كود للتعديل ولاكن يعطي خطاء ولا اعلم السبب
مع العلم بان جميع اسماء الحقول والتكست بوكس صحيحه 100%
ارجو المساعده ولكم مني فائق الشكرو التقدير
كود :
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()
ارجو المساعده ولكم مني فائق الشكرو التقدير