如何在VBA代码中以ms-access执行查询？

Question

如何使用VBA代码执行查询以返回ms-access数据库中的记录？

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

看一下本教程，了解如何在VBA中使用SQL：

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

对于不会返回结果的查询，请使用（reference here）：

DoCmd.RunSQL

对于那将使用（reference here）：

Dim dBase As Database
dBase.OpenRecordset