منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : خطاء عند التعديل علي Checkbox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
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)
تحياتي ..
شكرا اخى الفاضل
الخطاء مازال قائم
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(strsqlsqlconn)
    
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(strsqlsqlconn)
 
   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 

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