如何把mdb中读出的信息直接赋给listview(报表模式)

Question

我想把一个mdb数据库的几条数据读出来后，直接赋给listview中，但是，listview这个控件并不像text1等控件儿一样，它没有dataField、DataSource等这些绑定数据的属性，所以比较头疼。我本想在加上几个隐藏的text1控件来过渡一下，但又觉得好弱智，有什么好的办法没有？

Answer 1

只能手动循环添加数据到LISTVIEW你可以用MSHFLEXGRID

Answer 2

For i = 1 To rs.RecordCount
                  lstShop.ListItems.Add i, , rs.Fields("shop").Value
                  lstShop.ListItems.Item(i).Checked = rs.Fields("active").Value
                  rs.MoveNext
                Next

Answer 3

For i = 1 To rs.RecordCount
                  lstShop.ListItems.Add i, , rs.Fields("shop").Value
                  rs.MoveNext
                Next

Answer 4

Public Sub Search(sql As String)
Dim rssearch As New ADODB.Recordset
Set rssearch = New ADODB.Recordset
Dim fld As Field
Dim ritem As ListItem
Dim nFieldCount As Integer
rssearch.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
With rssearch
ListView1.ListItems.Clear
While (Not .EOF)
    Set ritem = ListView1.ListItems.Add(, , CStr(.Fields(0)))
    For nFieldCount = 1 To .Fields.Count - 1
        ritem.SubItems(nFieldCount) = .Fields(nFieldCount)
    Next nFieldCount
    .MoveNext
Wend
End With
Set ritem = Nothing
End Sub