Vb.net Access - Database Example

If result = DialogResult.Yes Then Dim query As String = "DELETE FROM Users WHERE UserID=@UserID" Using conn As New OleDbConnection(connectionString) Using cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("@UserID", userID) conn.Open() cmd.ExecuteNonQuery() conn.Close() End Using End Using MessageBox.Show("Record deleted successfully!") LoadData() ClearInputs() End If End Sub Add these utility methods:

Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click LoadData() End Sub Private Sub LoadData() Dim query As String = "SELECT * FROM Users" vb.net access database example

If Not IsNumeric(txtAge.Text) Then MessageBox.Show("Age must be a number") Return False End If If result = DialogResult

Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click If dgvUsers.SelectedRows.Count = 0 Then MessageBox.Show("Please select a record to update") Return End If If ValidateInputs() = False Then Exit Sub vb.net access database example