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

PHP كود :

strsql = "update USE_R set USER_NAME ='" & Textuser.Text & "'," _
        & "PASS = '" & textpassword.Text & "'" _
        & "P1 = '" & CheckBox1.Checked & "'" _
        & "where USER_ID = '" & TXT_ID.Text & "'"
        Dim acscmd As New SqlClient.SqlCommand
        sqlcmd.CommandText = strsql
        sqlcmd.Connection = sqlconn
        sqlcmd.ExecuteNonQuery()
        sqlcmd.Dispose()
        MsgBox("تمت عملية التعديل على البيانات") 


هذة رسالة الخطاء
Incorrect syntax near 'P1'.
هذا الخطاء عند تشيك بوكس
 & "P1 = '" & CheckBox1.Checked & "'" _
ارجو الحل

[ابراهيم النعيمي]

استبدل 

PHP كود :

"P1 = '" & CheckBox1.Checked & "'" 


بـ

PHP كود :

"P1 = " & CheckBox1.Checked 


و الافضل استخدام الـ (Parameters)
تحياتي ..

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

(26-11-16, 10:14 PM)ابراهيم النعيمي كتب : استبدل 

PHP كود :

"P1 = '" & CheckBox1.Checked & "'" 


بـ

PHP كود :

"P1 = " & CheckBox1.Checked 


و الافضل استخدام الـ (Parameters)
تحياتي ..

شكرا اخى الفاضل
الخطاء مازال قائم

[amgad525]

PHP كود :

Dim strsql As String = _
    "UPDATE [USE_R]                     " & _
    "SET    [USER_NAME] = @USER_NAME,   " & _
    "       [PASS] = @PASS,             " & _
    "       [P1] = @P1                  " & _
    "WHERE  [USER_ID] = @USER_ID        "

Using acscmd As New SqlClient.SqlCommand(strsql, sqlconn)
    acscmd.Parameters.AddWithValue("@USER_NAME", Textuser.Text)
    acscmd.Parameters.AddWithValue("@PASS", textpassword.Text)
    acscmd.Parameters.AddWithValue("@P1", CheckBox1.Checked)
    acscmd.Parameters.AddWithValue("@USER_ID", TXT_ID.Text)

    If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()
    Dim ret As Integer = acscmd.ExecuteNonQuery()
    sqlconn.Close()

    If ret > 0 Then MsgBox("تمت عملية التعديل على البيانات")

End Using 


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

(27-11-16, 12:26 AM)amgad525 كتب :

PHP كود :

Dim strsql As String = _
    "UPDATE [USE_R]                     " & _
    "SET    [USER_NAME] = @USER_NAME,   " & _
    "       [PASS] = @PASS,             " & _
    "       [P1] = @P1                  " & _
    "WHERE  [USER_ID] = @USER_ID        "

Using acscmd As New SqlClient.SqlCommand(strsql, sqlconn)
    acscmd.Parameters.AddWithValue("@USER_NAME", Textuser.Text)
    acscmd.Parameters.AddWithValue("@PASS", textpassword.Text)
    acscmd.Parameters.AddWithValue("@P1", CheckBox1.Checked)
    acscmd.Parameters.AddWithValue("@USER_ID", TXT_ID.Text)

    If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()
    Dim ret As Integer = acscmd.ExecuteNonQuery()
    sqlconn.Close()

    If ret > 0 Then MsgBox("تمت عملية التعديل على البيانات")

End Using 


شكرا اخى الكريم  
جزاك الله كل خير 
ضبط الكود مائة بالمائة