Как выполнить запрос в ms-access в коде VBA?

Question

Как выполнить запрос для возврата записей в базе данных ms-access с использованием кода VBA?

Answer 1

Как на счет этого ...

Dim rs As RecordSet
Set rs = Currentdb.OpenRecordSet("SELECT PictureLocation, ID FROM MyAccessTable;")

Do While Not rs.EOF
   Debug.Print rs("PictureLocation") & " - " & rs("ID")
   rs.MoveNext
Loop

Answer 2

Посмотрите в этом руководстве, как использовать SQL в VBA:

http://www.ehow.com/how_7148832_access-vba-query-results.html

Для запроса, который не возвращает результаты, используйте ( ссылка здесь ):

DoCmd.RunSQL

Для того, кто будет, используйте ( ссылка здесь ):

Dim dBase As Database
dBase.OpenRecordset