25-11-16, 10:48 PM
كود :
strsql = "update USE_R set USER_ID ='" & TXT_ID.Text & "'," _
& "USER_NAME= '" & Textuser.Text & "_ID'," _
& "PASS= '" & textpassword.Text & "_ID'," _
& "PERMATION_ID = '" & ComboBox1.Text & "'," _
& "P1 = '" & CheckBox1.Text & "'," _
& "where Textuser = '" & TXT_ID.Text & "'"
Dim acscmd As New SqlClient.SqlCommand
sqlcmd.CommandText = strsql
sqlcmd.Connection = sqlconn
sqlcmd.ExecuteNonQuery()
sqlcmd.Dispose()
MsgBox("تمت عملية التعديل على البيانات")
Incorrect syntax near the keyword 'where'.