问题已解决!请教各位大侠，access获得数据库的结果集，为什么不全？

introc

msgbox，在i=1的时候，提示“运行时错误3265:在对应所需名称或序数的集合中，未找到项目。
我的数据库中，zzReduce表是有3条记录的，rsNumber的值 也是3
请高手指点。

代码如下：

Dim rs As New ADODB.Recordset
   
    Dim rsNumber As New ADODB.Recordset
   
    Dim i As Long
   
   
    Set rs = CurrentProject.Connection.Execute("Select reduceCellName From zzReduce")
   
    Set rsNumber = CurrentProject.Connection.Execute("Select count(reduceCellName) From zzReduce")
   
    For i = 0 To rsNumber(0)
   
        
        MsgBox rs(i)
        
    Next i

roych

把循环语句改成：

1. For i = 1 To rs.recordCount   
   
2.         MsgBox rs(i)
   
3. rs.MoveNext   
   
4. Next i

复制代码

试试看

introc

roych 发表于 2011-10-27 18:29
把循环语句改成：试试看

msgbox rs.recordCount
这句的返回值是-1
所以，rs.recordCount 不能用啊。

请教

introc

我是在一个按钮的单击事件里写的，所以的代码如下：

Private Sub Command7_Click()

    Dim rs As New ADODB.Recordset
   
    Dim rsNumber As New ADODB.Recordset
   
    Dim i As Long
   
   
    Set rs = CurrentProject.Connection.Execute("Select reduceCellName From zzReduce")
   
    Set rsNumber = CurrentProject.Connection.Execute("Select count(reduceCellName) From zzReduce")
   
    For i = 0 To rsNumber(0)
     
        
         MsgBox rs(i)
         
         
         
    Next i


End Sub

introc

问题已经解决。还是google搜索功能强大啊。
Private Sub Command7_Click()

    Dim rs As New ADODB.Recordset
   
    Dim reduceCellName As String
   
    Dim reduceFrequencies As String
   
   
    Set rs = CurrentProject.Connection.Execute("Select * From zzReduce")
        
    Do While Not rs.EOF
        
        reduceCellName = rs("reduceCellName")
        reduceFrequencies = rs("reduceFrequencies")
        
        
        
        
        rs.MoveNext
         
    Loop


End Sub

Renco

Execute运行打开的rs，不会返回recordcount
所以只有用移动游标到eof方式，逐条移动

如改成open 方式，就可以用recordcount

introc

多谢6楼的提醒。