Vb.net Access Database Example Today

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"

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)"

' Get the UserID from the selected row Dim userID As Integer = Convert.ToInt32(dgvUsers.SelectedRows(0).Cells("UserID").Value) vb.net access database example

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

Using conn As New OleDbConnection(connectionString) Using adapter As New OleDbDataAdapter(query, conn) Dim table As New DataTable() adapter.Fill(table) dgvUsers.DataSource = table End Using End Using Private Sub btnLoad_Click(sender As Object, e As EventArgs)

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

If Not IsNumeric(txtAge.Text) Then MessageBox.Show("Age must be a number") Return False End If Private Sub btnLoad_Click(sender As Object

Dim result As DialogResult = MessageBox.Show("Are you sure you want to delete this record?", "Confirm Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

Imports System.Data.OleDb Public Class Form1 Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\VB.NET Projects\Demo\SampleDB.accdb"

Using conn As New OleDbConnection(connectionString) Using cmd As New OleDbCommand(query, conn) ' Add parameters to prevent SQL injection 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)) conn.Open() cmd.ExecuteNonQuery() conn.Close() End Using End Using