Question

如何将VBA中的SQL查询结果显示出来？在ACCESS中

ACCESS中我想达到以下目的，如何实现？
docmd.openquery "select * from 学生成绩表 where 分数>90"
系统提示错误，该如何显示查询结果？

Answer 1

1.点击：创建--宏。打开宏编辑器。

2.在操作这一栏，从下拉列表中，选择runcode操作。

3.弹出了操作参数对话框，点击函数名称右边的这个省略号。

4.打开了表达式生成器，在下方选择函数进行编辑，或者自己输入公式，然后点击确定按钮。

5.点击菜单栏上面的保存按钮，在弹出的另存为对话框中，输入宏的名称，然后点击确定。

6.在宏对象中，找到刚才建立的这个宏【运行vba】，然后右键单击它，选择运行，vba函数就运行了。

Answer 2

前提：DOCMD 对象的OPENQUERY方法仅可用于 Microsoft Access 数据库环境 (.mdb)。
语法：expression.OpenQuery(QueryName, View, DataMode)
OPENQUERY方法用于打开一个预置的查询，而不能打开一个SQL查询语句，故此你上面的用法被系统提示错误。
正确的用法是先将SQL语句：“select * from 学生成绩表 where 分数>90”预存为一个ACCESS查询，例如将其命名为：高分成绩查询表
然后在某个命令按钮添加下列过程。例如：
Private Sub Command1_Click:
Docmd.Openquery "高分成绩查询表"
End Sub
注：DOCMD 对象的OPENQUERY方法 的用法可以是多种多样的，上面仅列出其中一个例子。