السلام عليكم
عندى مشكله بكود التعديل على البيانات
مرفق لكم البرنامج بلغه فيجوال 2005 وقاعده البيانات
كود :
Public Sub ok()
Dim sql As String = "select * from mas where ID=" & Val(idtxt.Text) & ""
If Conn.State() Then Conn.Close()
Conn.Open()
Dim cmd As New OleDbCommand(sql, Conn)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox("إدخل الحقول - احد الحقول فارغ")
Exit Sub
Else
Try
sql = "update mas set hom='" & TextBox4.Text & "', user='" & TextBox1.Text & "', pass='" & TextBox2.Text & "', cat='" & CheckBox3.CheckState & "', payy='" & CheckBox4.CheckState & "', add='" & CheckBox1.CheckState & "', cas=" & CheckBox5.CheckState & " where ID=" & Val(idtxt.Text) & ""
Dim cmd2 As New OleDbCommand(sql, Conn)
cmd2.ExecuteNonQuery()
Conn.Close()
MessageBox.Show(" تمت عملية التعديل بنجاح ")
Catch ex As Exception
Conn.Close()
MessageBox.Show(ex.Message)
End Try
End If
End Sub