这样写有错吗?

Question

lvwDB.ColumnHeaders.Clear
For i = 0 To Ado.Recordset.Fields.Count - 1
   '加入四个 ColumnHeader。
   lvwDB.ColumnHeaders.Add , , Ado.Recordset.Fields(i).Name, 1000
Next i
为什么总报错!报错内容:对象变量或With块变量未设置!光标高亮指在For i = 0 To Ado.Recordset.Fields.Count
不知道哪里有错!

Answer 1

j = rst.Fields.Count
        For i = 1 To j
            livResult.ColumnHeaders.Add , , rst(i - 1).Name, 1800
        Next i

Answer 2

你的对象名怎么能起叫Ado呢，换个名字试试。

Answer 3

验证过的写法
    For i = 0 To m_adoRs.Fields.Count - 1
        lsvShow.ColumnHeaders.Add , m_adoRs.Fields(i).Name, m_adoRs.Fields(i).Name, 宽度值
    Next i

Answer 4

lvwDB.ColumnHeaders.Clear
lvwdb.cols=ado.recordset.fields.count'加上这一句再试一下行不行
For i = 0 To Ado.Recordset.Fields.Count - 1
   '加入四个 ColumnHeader。
   lvwDB.ColumnHeaders.Add , , Ado.Recordset.Fields(i).Name, 1000
Next i

Answer 5

你的ado是不是声明为 记录集了，要是这样的话加一句试试。
set ado = new adodb.recordset

Answer 6

我用的是是ADO Data 控件名现在已经改为AdoRs,问题依旧而且现在连AdoRs.Recordset.MoveFirst也报了同样的错!光标高亮指在
AdoRs.Recordset.MoveFirst!报错内容:对象变量或With块变量未设置!

Answer 7

ADO Data 控件有聯接好嗎?