关于ado和ListView控件的问题

Question

1.在使用ado连接并打开数据库的时候，需要添加什么控件吗？还是只用引用Microsoft Active Data Object 2.0 Library?2.如果不用添加控件，我的连接代码这样写的:
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim sSql As String
Dim sConnstr As String
Dim sDbpath As String
sDbpath = "F:\data\ac.mdb"
sConnstr = "driver={Microsoft Access Driver (*.mdb)};dbq='" & sDbpath & "'"    '注意我用的是这样的连接字串。
Set oRs = New ADODB.Recordset
oConn.Open sConnstr
sSql = "select * from ClientInfo order by cid desc"
oRs.Open sSql, oConn, 1, 1以上代码我是放在form_load里面的
每次一打开这个窗体的时候，总会报错:对象变量或with块变量未设置。3.我用的ListView控件来显示数据，请问从数据库里把数据读到rs后，怎么再传送给ListView呢？谢谢大家，热心的朋友欢迎加我QQ(1171713)，我以前做web开发的，刚接触vb.有点头晕。

Answer 1

Set oConn=New adodb.Connection少这句

Answer 2

用ADO连接数据库时,只需要引用Microsoft Active Data Object 2.X Library不过2.0的版本太低了吧，你是否安装了最新的Mdac_Type.exe?

Answer 3

我安了2.8的，但是装visual studio的时候他又给我覆盖了。

Answer 4

ListView添加节点：Dim Item        As ListItem
Set Item = ListView1.ListItems.Add(, "", "TestName", 3)
Item.Tag = "Test"

Answer 5

我用了你的代码,错误提示:ImageList使用前必须初始化

Answer 6

extcsdn:Sorry,我这上不了QQ和MSN“我用了你的代码,错误提示:ImageList使用前必须初始化”我是用了图片显示的，你可以把Set Item = ListView1.ListItems.Add(, "", "TestName", 3)改为Set Item = ListView1.ListItems.Add(, "", "TestName", ）

Answer 7

要不你就加一个ImageList控件，里面放几个图标，其中的"3"是对应的Index

Answer 8

sSql = "select * from ClientInfo order by cid desc"
oRs.Open sSql, oConn, 1, 1改为：
sSql = "select * from ClientInfo order by cid desc"
oRs.Open sSql, oConn, 1, 1
set oRs=oConn.execute(ssql,adOpenForwardOnly, adCmdText)

Answer 9

给你贴个ListView使用的例子Option Explicit
Private Sub Combo1_Click()
'选择列表浏览器类型
    ListView1.View = Combo1.ListIndex
    Label2.Caption = "所选择的类型是：" & Combo1.Text
End SubPrivate Sub Form_Load()
    Dim intI As Integer
'设置列表浏览器类型
    With Combo1
        .AddItem "图标类型"         'ListIndex=0
        .AddItem "小图标类型"       'ListIndex=1
        .AddItem "列表类型"         'ListIndex=2
        .AddItem "报表类型"         'ListIndex=3
    End With
'最初的类型
    ListView1.View = lvwIcon
    Combo1.Text = "图标类型"
    Label2.Caption = "所选择的类型是：图标类型"
'设置列表浏览器图标
    Set ListView1.Icons = ImageList1
    Set ListView1.SmallIcons = ImageList2
    Set ListView1.ColumnHeaderIcons = ImageList2
'为"报表"型列表浏览器设置"列首"
    Dim colH As ColumnHeader
    Set colH = ListView1.ColumnHeaders.Add(, , "影片", ListView1.Width / 5)
    Set colH = ListView1.ColumnHeaders.Add(, , "制片人", ListView1.Width / 5)
    Set colH = ListView1.ColumnHeaders.Add(, , "导演", ListView1.Width / 5)
    Set colH = ListView1.ColumnHeaders.Add(, , "女主角", ListView1.Width / 5)
    Set colH = ListView1.ColumnHeaders.Add(, , "男主角", ListView1.Width / 5)
'为列表浏览器添加列表项
    Dim Item1 As ListItem
    Set Item1 = ListView1.ListItems.Add(, , "影片1", 1, 2)
    Dim Item2 As ListItem
    Set Item2 = ListView1.ListItems.Add(, , "影片2", 1, 2)
    Dim Item3 As ListItem
    Set Item3 = ListView1.ListItems.Add(, , "影片3", 1, 2)
    Dim Item4 As ListItem
    Set Item4 = ListView1.ListItems.Add(, , "影片4", 1, 2)
'为"报表"型列表浏览器设置"列表子项"
    ListView1.ListItems(1).ListSubItems.Add , , "钱壮"
    ListView1.ListItems(1).ListSubItems.Add , , "美岭"
    ListView1.ListItems(1).ListSubItems.Add , , "红灯"
    ListView1.ListItems(1).ListSubItems.Add , , "高挂"
    ListView1.ListItems(2).ListSubItems.Add , , "刘志"
    ListView1.ListItems(2).ListSubItems.Add , , "桃园"
    ListView1.ListItems(2).ListSubItems.Add , , "春风"
    ListView1.ListItems(2).ListSubItems.Add , , "激荡"
    ListView1.ListItems(3).ListSubItems.Add , , "顾乐"
    ListView1.ListItems(3).ListSubItems.Add , , "陈成"
    ListView1.ListItems(3).ListSubItems.Add , , "百年"
    ListView1.ListItems(3).ListSubItems.Add , , "鸿孝"
    ListView1.ListItems(4).ListSubItems.Add , , "赵强"
    ListView1.ListItems(4).ListSubItems.Add , , "秦皇"
    ListView1.ListItems(4).ListSubItems.Add , , "王悦"
    ListView1.ListItems(4).ListSubItems.Add , , "李吉"
End Sub里面有ListView的各项用法，粘过去看看就行啦