vb中listview的使用案例

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

'定义一个连接对象和一个查询返回结果集

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

'创建两个对象

cn.ConnectionString = Server;server=IAN-PC;uid=sa;pwd=kingdee;database=CRM\"

cn.Open

Dim sql As String

sql = \"select * from ian_1\"

rs.Open sql, cn

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , \"选择\

\"driver=SQL

ListView1.ColumnHeaders.Add , , rs(0).Name, 1000

ListView1.ColumnHeaders.Add , , rs(1).Name, 1000

ListView1.ColumnHeaders.Add , , rs(2).Name, 1000

ListView1.ColumnHeaders.Add , , rs(3).Name, 1000

ListView1.ColumnHeaders.Add , , rs(4).Name, 1000

'表头名称

ListView1.GridLines = True '显示网格

ListView1.Checkboxes = True '显示复选框

'ListView1.FullRowSelect = True 整行记录全选上

Dim a As Integer

a = rs.RecordCount + 1

'MsgBox a

Dim x As Integer

x = 1

'取得rs的记录集

While Not rs.EOF And Not rs.BOF '如果记录集没有读完继续读

ListView1.ListItems.Add , , x '第一行选择复选框

ListView1.ListItems(x).SubItems(1) = rs(0).Value

ListView1.ListItems(x).SubItems(2) = rs(1).Value

ListView1.ListItems(x).SubItems(3) = rs(2).Value

ListView1.ListItems(x).SubItems(4) = rs(3).Value

ListView1.ListItems(x).SubItems(5) = rs(4).Value

x = x + 1

rs.MoveNext '下一行

Wend

MsgBox \"dd\"