无法执行选择查询运行时错误 3065 [关闭]答案

【问题标题】：Can't Execute a Select query Run-time error 3065 [closed]无法执行选择查询运行时错误 3065 [关闭]
【发布时间】：2020-12-21 23:57:20
【问题描述】：

我正在运行以下代码来运行 sql 并在消息框中显示产品。这工作正常。我的问题是我是否想同时显示所有产品，以便我可以复制或导出结果，就像我运行 Access Query 一样，它会给我显示的所有产品。我可以在这里做什么？我需要重写整个查询还是只是将 for 循环和 msgbox 更改为其他内容？

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Dim rcnt As Integer
Set rs = db.OpenRecordset("SELECT jd.Product FROM Consumption_JobDetails 
AS jd " & _"INNER JOIN Consumption_JobRepairCentre AS jc ON jd.jobnumber = 
jc.jobnumber;")

rs.MoveLast
rs.MoveFirst

For rcnt = 0 To rs.RecordCount
MsgBox (rs.Fields("Product").Value)
rs.MoveNext
Next rcnt

【问题讨论】：

stackoverflow.com/questions/25906567/…
根据提供的链接，我不应该使用执行命令吗？
Execute 不返回记录，根据您的 Select 语句，您期望它返回记录。所以你不想使用Execute - 毕竟，你在哪里告诉它把记录放入的对象？ Execute 没有给你这个选项。你需要一个Recordset 对象。
为什么要声明两个未使用的记录集对象？为什么要为表名的变量烦恼？您希望数据发生什么？到目前为止，您错误地尝试使用 Execute 方法进行 SELECT 查询。

标签： sql vba ms-access

【解决方案1】：

SELECT 语句用于打开记录集对象。 Execute 用于操作 SQL（UPDATE、DELETE、INSERT 等）。

表名不需要变量。

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Product FROM Consumption_JobDetails AS jd " & _
         "INNER JOIN Consumption_JobRepairCentre AS jc ON jd.jobnumber = jc.jobnumber;")

【讨论】：

我完全运行了这段代码，但什么也没发生，没有错误但没有结果。我希望显示此选择查询的结果。
您期望发生什么？该代码使用您的 select 语句中的数据填充名为 rs 的记录集。该代码不会“做任何其他事情” - 然后您对该记录集执行的操作取决于您。除了在最后显示一个消息框之外，您的原始问题也没有任何作用。
如果您希望“显示此选择查询的结果”，请设置表单的 RecordSource。或者在设计视图中将表单或报表的 RecordSource 设置为 SQL 语句。或者使用该 SQL 构建一个查询对象并打开该对象。记录集本身不能显示在屏幕上。记录集用于操作内存中的数据，不能直接查看。