Question

如何在VBA / ADO中获取RecordSet的其他行？

我使用下面的代码，但这只给了我第一行。例如，记录集第三行的第二项呢？

Debug.Print recordSet.Fields(0)

Answer 1

您需要遍历Recordset对象以获取所有行。

Public Sub testRecordset()
    Dim rstObj As DAO.Recordset

    Set rstObj = CurrentDB.OpenRecordset("SELECT Field1, Field2, Field3 FROM tableName")

    Do While Not rstObj.EOF
        Debug.Print rstObj.Fields(0) & " | " & rstObj.Fields(1) & " | " & rstObj.Fields(2)
        rstObj.MoveNext
    Loop

    Set rstObj = Nothing
End Sub

以下是有关如何使用Recordset对象的参考：http://www.utteraccess.com/wiki/index.php/Recordsets_for_Beginners

如何在VBA中获取RecordSet的行

1 个答案: