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"