Ms access 如何从VBA控制台查询数据库？

我可以在VBA Access 2010（VBA 7.0）的即时控制台中运行select查询吗？

对于返回整数的查询，这对我很有用：

Public Sub runQuery(ByVal query As String)

    Dim DB As DAO.Database: Set DB = CurrentDb()
    Dim rst As DAO.Recordset: Set rst = DB.OpenRecordset(query)

    Do While Not rst.EOF
        Dim rowStr As String: rowStr = ""
        Dim fld As Field
        For Each fld In rst.Fields
            rowStr = rowStr & fld & "    "
        Next fld

        Debug.Print (rowStr)

        rst.MoveNext

    Loop

End Sub

然后从即时窗口调用它：

runQuery "SELECT Foo, Bar FROM MyTable WHERE Foo < 42"

runQuery“从MyTable中选择Foo，Bar，其中Foo<42”

对于返回整数的查询，这对我来说很有效：

Public Sub runQuery(ByVal query As String)

    Dim DB As DAO.Database: Set DB = CurrentDb()
    Dim rst As DAO.Recordset: Set rst = DB.OpenRecordset(query)

    Do While Not rst.EOF
        Dim rowStr As String: rowStr = ""
        Dim fld As Field
        For Each fld In rst.Fields
            rowStr = rowStr & fld & "    "
        Next fld

        Debug.Print (rowStr)

        rst.MoveNext

    Loop

End Sub

然后从即时窗口调用它：

runQuery "SELECT Foo, Bar FROM MyTable WHERE Foo < 42"

runQuery“从MyTable中选择Foo，Bar，其中Foo<42”