Here I will show how to
display records from database to ListView control.
Program
Imports
System.Data
Imports
System.Data.OleDb
Public Class Form1
Dim ConnectionString As String =
System.Configuration.ConfigurationSettings.AppSettings("dsn")
Dim con As
OleDbConnection = New
OleDbConnection(ConnectionString)
Dim com As
OleDbCommand
Dim oledbda As
OleDbDataAdapter
Dim ds As
DataSet
Dim dt As
DataTable
Dim str As String
Private Sub
Button1_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
con.Open()
str =
"select * from student"
com =
New OleDbCommand(str, con)
oledbda =
New OleDbDataAdapter(com)
ds =
New DataSet
oledbda.Fill(ds,
"student")
ListView1.Clear()
dt = ds.Tables("student")
Dim i As Integer
For i = 0 To
dt.Rows.Count - 1
ListView1.Items.Add(dt.Rows(i).ItemArray(0))
ListView1.Items(i).SubItems.Add(dt.Rows(i).ItemArray(1))
ListView1.Items(i).SubItems.Add(dt.Rows(i).ItemArray(2))
ListView1.Items(i).SubItems.Add(dt.Rows(i).ItemArray(3))
ListView1.Items(i).SubItems.Add(dt.Rows(i).ItemArray(4))
Next
con.Close()
ListView1.Columns.Add("Id", 60,
HorizontalAlignment.Center)
ListView1.Columns.Add("Name", 80,
HorizontalAlignment.Center)
ListView1.Columns.Add("Marks", 90,
HorizontalAlignment.Center)
ListView1.Columns.Add("Address", 90,
HorizontalAlignment.Center)
ListView1.Columns.Add("Year", 80,
HorizontalAlignment.Center)
ListView1.View =
View.Details
ListView1.GridLines = True
ListView1.BackColor = Color.Aqua
ListView1.ForeColor = Color.Blue
End Sub
End Class
Output
