Continuing my previous tutorial, here I want to show you how to display or populate MS Access table into a DataGridView under Visual Basic .NET. Its pretty easy to load and display MS Access table on our program/form.
Design the form
As you can see, I have two button Connect and Show Data. The Connect button is used to connect to the database and the other one is to display a table content to DataGridView.
The Code
First we need to create a module. This module will handle every connections to the database through OleDb connection. To add a module, go to Project | Add New Item. Select Module from the list and enter the name of the new module.
The following code are typed inside a module called MyModuleConnect
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Imports System.Data.OleDb Module MyModuleConnect Public MyConn As OleDbConnection Public Constring As String Public Provider, Location As String Sub Connect() Provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" Location = "E:\Personal\09. Blog\Tutorial_01.accdb" Constring = Provider & Location MyConn = New OleDb.OleDbConnection(Constring) MyConn.Open() End Sub End Module |
Now back to the main form and we will add code for the Connect button. Connect button will attempt to open the connection to the database.
|
1 2 3 4 5 6 7 8 |
Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click Try MyModuleConnect.Connect() MsgBox("Connection Status :" & MyModuleConnect.MyConn.State.ToString, MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub |
Now, Show Data button code:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub btnShowData_Click(sender As Object, e As EventArgs) Handles btnShowData.Click Dim strSQL As String Dim MyAdapter As OleDb.OleDbDataAdapter Dim Ds As New DataSet Try strSQL = "Select * from Tbl_DHCollar" MyAdapter = New OleDb.OleDbDataAdapter(strSQL, MyModuleConnect.MyConn) MyAdapter.Fill(Ds, strSQL) Me.DataGridView1.DataSource = Ds Me.DataGridView1.DataMember = strSQL Catch ex As Exception MsgBox(ex.ToString) End Try End Sub |
Run the program
Thank you. Hope this is useful for anyone who wants to start learning Visual Basic 2015.
