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

Question

我可以在VBA Access 2010（VBA 7.0）的直接控制台中运行选择查询吗？

Answer 1

这对我来说有一个返回整数的查询：

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"