Ms access 如何在VBA代码中的ms access中执行查询？

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

请参阅本教程，了解如何在VBA中使用SQL：

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

对于将使用（）的用户：

---

像这样的怎么样

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

---

@Remou请提供有关DoCmd.RunQuery的更多信息，我不想使用SQL，我已经在ms accessoops Openquery中完成了查询：。使用Open query，您将收到警告消息，但如果出现问题，可以关闭或再次打开警告消息。@Remou谢谢，我在ms access中有一个表，其中包含指向本地图片的路径，并希望打印这些图片，请帮我检查此链接关闭SetWarnings绝对不是一个好主意。首先，你将不知道是否出了问题。也就是说，DoCmd.SetWarnings False不仅关闭确认提示，还关闭任何错误的报告。对于DoCmd.RunSQL，您无法知道整个更新是否成功，因为将执行SQL并完成尽可能多的更新/插入。我不知道DoCmd.OpenQuery是否也有同样的缺陷，但很可能有。对于实现@Remou第一个建议的替换，请搜索my SQLRun（）函数。是的，它将返回本地存储在db中的图片的路径和每个图片的id。您希望它们返回到哪里以及如何返回？

Dim dBase As Database
dBase.OpenRecordset

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