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