如何在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

对于不返回结果的查询,请使用(此处引用):

DoCmd.RunSQL

对于那将使用(参考这里):

Dim dBase As Database
dBase.OpenRecordset