+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بحاجة لتعديل كود Update query (/showthread.php?tid=27482)
بحاجة لتعديل كود Update query - احمد خطاب - 16-11-18
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim cmd As New OleDbCommand
cmd = New OleDbCommand("update table1 set where info = user_idinfo ='" & TextBox1.Text & "'user_fornameinfo ='" & TextBox2.Text & "'user_ genderinfo = '" & TextBox2.Text & "')", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
RE: استفسار عن كود تعديل - asemshahen5 - 17-11-18
ضع أسماء أعمدة الجدول و اسم العامود الذي تعتمد عليه في البحث عن القيمة المراد تعديلها .
RE: ارجوكم اصدقائى الكرام تعديل فى هذا الكود - elgokr - 17-11-18
تفضل الكود بعد التعديل ولكن يتوقف على تاكيد المسميات لديك
كود :
Dim cmd As New OleDbCommand
cmd = New OleDbCommand("UPDATE info SET user_fornameinfo ='" & TextBox2.Text & "', user_ genderinfo = '" & TextBox3.Text & "' WHERE user_idinfo =" & TextBox1.Text & ")", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()تحياتى لك
وتمنياتى لك التوفيق
RE: بحاجة لتعديل كود Update query - احمد خطاب - 17-11-18
اولا اشكرك جداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا صديقى العزيز
ثانيا الكود مش شغال
بيعطى خطأ فى جملة الكود
Dim cmd As New OleDbCommand
cmd = New OleDbCommand("UPDATE info SET user_fornameinfo ='" & TextBox2.Text & "', user_ genderinfo = '" & TextBox3.Text & "' WHERE user_idinfo =" & TextBox1.Text & ")", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
ممكن تعديل على هذا الكود لانه لايعمل اكون شاكر
RE: بحاجة لتعديل كود Update query - Rabeea Qbaha - 17-11-18
كود :
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = Conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "UPDATE info SET user_fornameinfo=@user_fornameinfo, genderinfo= @genderinfo WHERE user_idinfo= @user_idinfo"
cmd.Parameters.AddWithValue("@user_fornameinfo", TextBox2.Text.Trim)
cmd.Parameters.AddWithValue("@genderinfo", TextBox3.Text.Trim)
cmd.Parameters.AddWithValue("@user_idinfo", TextBox1.Text.Trim)
cmd.ExecuteScalar()
Conn.Close()RE: بحاجة لتعديل كود Update query - احمد خطاب - 17-11-18
الكود مش شغال
RE: بحاجة لتعديل كود Update query - Rabeea Qbaha - 17-11-18
ارفق المشروع