如何从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"