[السيد الجوهري]

كود :

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'.

[أبو عمر]

Change
where Textuser = '" & TXT_ID.Text &
to
where Textuser = '" & val(TXT_ID.Text )&
الخطأ ان حقل تحقق الشرط رقم وانت تساوي ب نص