Vb.net Access Database Example Apr 2026

MessageBox.Show("Record updated successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information) LoadData() End Sub Add this to the Delete button:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load LoadData() End Sub

' Optional: Display record count lblStatus.Text = $"Loaded dgvUsers.Rows.Count records" End Sub Add this code to the Insert button:

Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click If ValidateInputs() = False Then Exit Sub Dim query As String = "INSERT INTO Users (FirstName, LastName, Email, Age) VALUES (@FirstName, @LastName, @Email, @Age)" 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:

[First Name: TextBox1] [Last Name: TextBox2] [Email: TextBox3] [Age: TextBox4] [Load] [Insert] [Update] [Delete]

Using conn As New OleDbConnection(connectionString) Using cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("@FirstName", txtFirstName.Text) cmd.Parameters.AddWithValue("@LastName", txtLastName.Text) cmd.Parameters.AddWithValue("@Email", txtEmail.Text) cmd.Parameters.AddWithValue("@Age", Convert.ToInt32(txtAge.Text)) cmd.Parameters.AddWithValue("@UserID", userID) conn.Open() cmd.ExecuteNonQuery() conn.Close() End Using End Using MessageBox

Return True End Function Add this to the Update button:

MessageBox.Show("Record added successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information) ClearInputs() LoadData() ' Refresh the grid End Sub

Dim query As String = "UPDATE Users SET FirstName=@FirstName, LastName=@LastName, Email=@Email, Age=@Age WHERE UserID=@UserID" MessageBox.Show("Record updated successfully!"

If String.IsNullOrWhiteSpace(txtLastName.Text) Then MessageBox.Show("Last Name is required") Return False End If

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click If dgvUsers.SelectedRows.Count = 0 Then MessageBox.Show("Please select a record to delete") Return End If Dim userID As Integer = Convert.ToInt32(dgvUsers.SelectedRows(0).Cells("UserID").Value)

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