First, create a MS Access Database, and name it as db. Add an Employees table to this database:
Table name: Employees
Fields:
ID (number, primary key)
Name (text)
You can modify this Database to fit in your requirements.
Create a new windows project in Visual Studio.NET, and then add a form to this project.
Add a ListBox to the form, name is as lstEmployees.
Switch to the View Code Mode, and add the BindListBox sub:
Sub BindListBox()
Dim pk(0) As DataColumn
Dim dt As New DataTable
Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Power\Desktop\db.mdb"
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Try
conn = New OleDbConnection(strconn)
da = New OleDbDataAdapter("Select * from Employees", conn)
dt.Clear()
da.Fill(dt)
pk(0) = dt.Columns("ID")
dt.PrimaryKey = pk
conn.Close()
Me.lstEmployees.DataSource = dt
Me.lstEmployees.DisplayMember = "Name"
Me.lstEmployees.ValueMember = "ID"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Call this sub from the Form Load Event:
Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BindListBox()
End Sub
That’s it!
