VB.Net/Database ADO.net/Database ListBox
Read Access Data table and store data in ListBox
<source lang="vbnet">
Imports System Imports System.Drawing Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Data.OleDb
Public Class MainClass
Shared Sub Main( ) Application.Run(New ADOForm1() ) End Sub
End Class
Public Class ADOForm1 Inherits System.Windows.Forms.Form Private components As System.ruponentModel.Container Private lbEmployees As System.Windows.Forms.ListBox Public Sub New( ) InitializeComponent( ) Dim connectionString As String = _ "provider=Microsoft.JET.OLEDB.4.0; " & _ "data source = Employee.mdb" Dim commandString As String = _ "Select FirstName, LastName from Employee" Dim myDataAdapter As New OleDbDataAdapter( _ commandString, connectionString) Dim myDataSet As New DataSet( ) myDataAdapter.Fill(myDataSet, "Employee") Dim myDataTable As DataTable = myDataSet.Tables(0) Dim tempRow As DataRow For Each tempRow In myDataTable.Rows lbEmployees.Items.Add((tempRow("FirstName") & _ " (" & tempRow("LastName") & ")")) Next End Sub "New Private Sub InitializeComponent( ) Me.ruponents = New System.ruponentModel.Container( ) Me.lbEmployees = New System.Windows.Forms.ListBox( ) lbEmployees.Location = New System.Drawing.Point(48, 24) lbEmployees.Size = New System.Drawing.Size(368, 160) lbEmployees.TabIndex = 0 Me.Text = "ADOFrm1" Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(464, 273) Me.Controls.Add(lbEmployees) End Sub End Class </source>
<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>
Store Database data into a ListBox
<source lang="vbnet">
Imports System Imports System.Drawing Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Data.SqlClient
Public Class MainClass
Shared Sub Main( ) Application.Run(New ADOForm1() ) End Sub
End Class
Public Class ADOForm1 Inherits System.Windows.Forms.Form Private components As System.ruponentModel.Container Private lbEmployees As System.Windows.Forms.ListBox Public Sub New( ) InitializeComponent( ) Dim connectionString As String ="server=(local)\SQLEXPRESS;" & _ "integrated security=sspi;database=MyDatabase"
Dim commandString As String = _ "Select FirstName, LastName from Employee" Dim myDataAdapter As New SqlDataAdapter( _ commandString, connectionString) Dim myDataSet As New DataSet( ) myDataAdapter.Fill(myDataSet, "Employee") Dim myDataTable As DataTable = myDataSet.Tables(0) Dim tempRow As DataRow For Each tempRow In myDataTable.Rows lbEmployees.Items.Add((tempRow("FirstName") & _ " (" & tempRow("LastName") & ")")) Next End Sub "New Private Sub InitializeComponent( ) Me.ruponents = New System.ruponentModel.Container( ) Me.lbEmployees = New System.Windows.Forms.ListBox( ) lbEmployees.Location = New System.Drawing.Point(48, 24) lbEmployees.Size = New System.Drawing.Size(368, 160) lbEmployees.TabIndex = 0 Me.Text = "ADOFrm1" Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(464, 273) Me.Controls.Add(lbEmployees) End Sub "InitializeComponent End Class "ADOForm1 </source>