Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click connect.Open() Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT * FROM tbluser", connect) sql = "update tbluser set Username ='" & TextBox2.Text & "', Password ='" & TextBox3.Text & "', Userlevel ='" & ComboBox1.Text & "'where IDnumber= '" & TextBox1.Text & "'" cmd = New OleDb.OleDbCommand(sql, connect) cmd.ExecuteNonQuery() connect.Close() MsgBox("Updated") End Sub Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click connect.Open() Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("Select * from tbluser where IDnumber ='" & TextBox1.Text & "'", connect) Dim sdr As OleDb.OleDbDataReader = cmd.ExecuteReader If (MsgBox("Are you sure you want to delete this record?", vbOKCancel) = vbOK) Then sql = "Delete * from tblUser where userid='" & TextBox1.Text & "'" cmd = New OleDb.OleDbCommand(sql, connect) cmd.ExecuteNonQuery() connect.Close() Else MsgBox("Operation Cancelled") connect.Close() Exit Sub End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)