+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطاء عند التعديل علي Checkbox (/showthread.php?tid=18159)
خطاء عند التعديل علي Checkbox - السيد الجوهري - 26-11-16
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 & "'" _
ارجو الحل
RE: خطاء عند التعديل علي Checkbox - ابراهيم النعيمي - 26-11-16
استبدل
PHP كود :
"P1 = '" & CheckBox1.Checked & "'"
بـ
PHP كود :
"P1 = " & CheckBox1.Checked
و الافضل استخدام الـ (Parameters)
تحياتي ..
RE: خطاء عند التعديل علي Checkbox - السيد الجوهري - 26-11-16
(26-11-16, 10:14 PM)ابراهيم النعيمي كتب : استبدلشكرا اخى الفاضل
PHP كود :
"P1 = '" & CheckBox1.Checked & "'"
بـ
PHP كود :
"P1 = " & CheckBox1.Checked
و الافضل استخدام الـ (Parameters)
تحياتي ..
الخطاء مازال قائم
RE: خطاء عند التعديل علي Checkbox - amgad525 - 27-11-16
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
RE: خطاء عند التعديل علي Checkbox - السيد الجوهري - 27-11-16
(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
شكرا اخى الكريم
جزاك الله كل خير
ضبط الكود مائة بالمائة