Hi,
Dim strConn As String
Dim conn As SqlConnection
Dim drCustomer As SqlDataReader
Dim cmd As SqlCommand
strConn = "Server = " + Environment.MachineName + ";"
strConn += "Database = NorthWind;"
strConn += "Integrated Security = SSPI;"
conn = New SqlConnection(strConn)
cmd = New SqlCommand("Select * from Customers", conn)
conn.Open()
Dim chID As New ColumnHeader
chID.Text = "Customer ID"
chID.Width = 70
Dim chCompany As New ColumnHeader
chCompany.Text = "Company Name"
chCompany.Width = 200
Dim chContact As New ColumnHeader
chContact.Text = "Contact Name"
chContact.Width = 150
ListView1.Columns.Add(chID)
ListView1.Columns.Add(chCompany)
ListView1.Columns.Add(chContact)
ListView1.View = View.Details
drCustomer = cmd.ExecuteReader
Do While drCustomer.Read
Dim lvi As New
ListViewItem(drCustomer.Item("CustomerID").ToStrin g)
lvi.SubItems.Add(drCustomer.Item("CompanyName").To String)
lvi.SubItems.Add(drCustomer.Item("ContactName").To String)
ListView1.Items.Add(lvi)
Loop
conn.Close()
Ken
--------------------
"SA" <te**@test.com> wrote in message
news:ek**************@TK2MSFTNGP12.phx.gbl...
My listview has 3 columns i.e. name, populaiton, and country code in
order.
I use following code to insert data into listview and I find that I can't
assign which subitem related to related field. e.g. assign population to
column2. In vb 6, I can do it by "subitems(i). How about in .net? thx.
i = 0
While MyDataAdapter.Read
ListView1.Items.Add("")
ListView1.Items(i).Text = CStr(MyDataAdapter("name"))
ListView1.Items(i).SubItems.Add(MyDataAdapter("pop ulation"))
ListView1.Items(i).SubItems.Add(MyDataAdapter("Cou ntryCode"))
i = i + 1
End While
