求一个用ado把access数据库代入listview的例子

Question

最好带有数据过滤

Answer 1

又是一个不眠夜，CSDN要戒严了。记得葛优(演的一个人物)曾经说过：“……什么人都可以惹，唯独小人不能沾。”初春的一场小雪，纷纷扬扬地下着，掩饰了大地，掩盖了一切人间的罪恶。上帝说：“有阳光就有黑暗，有善举就有罪过。饶恕他吧。”

Answer 2

Dim Item As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "代码", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "真实值", ListView1.Width / 2
    
    Dim CN As New adodb.Connection
    Dim Rs As New adodb.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
    Rs.MoveFirst
    Do While Not Rs.EOF
        Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
        
        Item.ListSubItems.Add , , Trim(Rs.Fields("lname"))
        Rs.MoveNext
    Loop
    Rs.Close
    CN.Close