This sample needs only a new form project. Used is the NorthWind
DataBase.
Public Class Form1
'VB10SP1 style for older versions add Byval
Private Sub Form1_Load(sender As Object,
e As System.EventArgs) Handles MyBase.Load
Me.ListView1.View = View.Details
Me.ListView1.Columns.Add(New ColumnHeader)
Me.ListView1.Columns(0).Text = "ID"
Me.ListView1.Columns(0).Width = 20
ListView1.Columns.Add(New ColumnHeader)
ListView1.Columns(1).Text = "First Name"
Me.ListView1.Columns(1).Width = 100
Dim conn As New SqlClient.SqlConnection _
("Server=YourServer; DataBase=Northwind;" & _
"Integrated Security=SSPI")
Dim rdrQuery As String = "SELECT FirstName, EmployeeID FROM Employees"
Try
conn.Open()
Dim cmd As New SqlClient.SqlCommand(rdrQuery, conn)
Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader()
ListView1.SuspendLayout()
While rdr.Read()
Dim lVI As New ListViewItem(New String() _
{rdr.GetInt32(1).ToString, rdr.GetString(0)})
Me.ListView1.Items.Add(lVI)
End While
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
conn.Close()
End Try
ListView1.ResumeLayout()
End Sub
End Class