vb中listview的使用案例

Dim rs As ADODB.Recordset

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

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

'创建两个对象

cn.ConnectionString = "driver=SQL 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 , , "选择", 1000

   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"