[转]VB.NET中怎样为listview绑定数据

Cames from CSDN

'从数据库中读取数据插入到listview中.

'注意:要显示网格,必须将listview中的view设置为details,然后再将gridline设置为true .

'设完之后,用鼠标只能点击listview中的第一个角落,点击其他的地方不起作用,需要设置

'listview中的FullRowSelect属性才可以.这样就可以选中一行了.

Dim MyCmd As SqlClient.SqlCommand

Dim MyCnn As New SqlClient.SqlConnection

Dim myDrd As SqlClient.SqlDataReader

MyCnn.ConnectionString = "Server=localhost;user id=sa;password=;database=NHSP"

Dim t As String = "select * from BA_USER"

'如果要用该控件查询,则只需要改变"select * from BA_USER where 条件"就可以了

MyCmd = New SqlClient.SqlCommand(t, MyCnn)

MyCnn.Open()

myDrd = MyCmd.ExecuteReader

Dim iHead As Integer

Dim head(5) As String

'head(0) = "a"

'head(1) = "b"

Me.lvw.Columns.Clear()

For iHead = 0 To myDrd.FieldCount - 1

Me.lvw.Columns.Add(myDrd.GetName(iHead), 100, HorizontalAlignment.Center)

Next

'加入listview列数据()

Me.lvw.Items.Clear()

Dim iRow As Long = 0

Dim iRowHead As Int16

Do While myDrd.Read

Me.lvw.Items.Add(myDrd(0))

For iRowHead = 1 To myDrd.FieldCount - 1

If (myDrd(iRowHead) Is System.DBNull.Value = False) Then

Me.lvw.Items(iRow).SubItems.Add(CStr(myDrd(iRowHead)))

Else

Me.lvw.Items(iRow).SubItems.Add("")

End If

Next

iRow = iRow + 1

Loop

MyCnn.Close()

MyCnn.Dispose()