Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim com As New OleDbCommand com.Connection = con com.CommandText = "UPDATE Employee set Last_Name='" & txtLastName.Text & "',First_Name='" & _ txtFirstName.Text & "',Middle_Name='" & txtMiddleName.Text & "',Age='" & _ txtAge.Text & "',Position='" & txtPosition.Text & _ "',Address=" & txtAddress.Text & "where Employee_ID=" & cboEmployeeID.Text com.ExecuteNonQuery() MsgBox("Record Updated") Call Md_Settings() End Sub
Catch Ex as Exception<br /> //....display error contained in Ex here<br /> End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)