如何将Access窗体日期传入Oracle传递查询？执行SELECT报错

首先明确报错核心原因：Execute方法仅适用于动作查询（如INSERT、UPDATE、DELETE），SELECT查询无法通过该方法执行——你看到的示例里的SELECT查询，大概率是用其他方式执行的，并非调用.Execute。

下面提供三种可行的实现方案：

方法1：直接打开传递查询（适合直接展示结果） #

先更新传递查询的SQL语句，再用DoCmd.OpenQuery打开它，这是最直接的方式：

Dim qdf As QueryDef
Dim targetDate As String

' 将窗体文本框的日期转成Oracle可识别的格式（单引号包裹，格式匹配Oracle的NLS设置）
targetDate = Format(Forms!你的窗体名!日期文本框名.Value, "\'YYYY-MM-DD\'")

Set qdf = CurrentDb.QueryDefs("你的Oracle传递查询名称")
' 替换SQL中的固定日期为变量，假设原SQL为 SELECT * FROM TABLE WHERE CREATE_DATE = '2024-01-01'
qdf.SQL = Replace(qdf.SQL, "'2024-01-01'", targetDate)

' 打开查询展示结果
DoCmd.OpenQuery "你的Oracle传递查询名称"

Set qdf = Nothing

方法2：用Recordset获取查询结果（适合VBA内处理数据） #

如果需要在VBA代码中读取查询返回的数据，用Recordset打开更新后的传递查询：

Dim qdf As QueryDef
Dim rs As Recordset
Dim targetDate As String

targetDate = Format(Forms!你的窗体名!日期文本框名.Value, "\'YYYY-MM-DD HH:MM:SS\'")

Set qdf = CurrentDb.QueryDefs("你的Oracle传递查询名称")
qdf.SQL = "SELECT * FROM ORACLE_TABLE WHERE CREATE_DATE = " & targetDate

' 打开记录集并处理数据
Set rs = qdf.OpenRecordset(dbOpenDynaset)
If Not rs.EOF Then
    Do While Not rs.EOF
        Debug.Print rs!目标字段名
        rs.MoveNext
    Loop
End If

rs.Close
Set rs = Nothing
Set qdf = Nothing

方法3：绑定窗体到传递查询（适合持续展示动态数据） #

如果目标是在窗体中展示查询结果，可以将窗体的记录源设置为该传递查询，动态更新QueryDef后刷新窗体即可：

Dim qdf As QueryDef
Dim targetDate As String

targetDate = Format(Forms!你的窗体名!日期文本框名.Value, "\'YYYY-MM-DD\'")

Set qdf = CurrentDb.QueryDefs("你的Oracle传递查询名称")
qdf.SQL = "SELECT * FROM ORACLE_TABLE WHERE CREATE_DATE = " & targetDate

' 刷新绑定了该查询的结果窗体
Forms!结果展示窗体名.Requery

Set qdf = Nothing

关键注意事项： #

• Oracle对日期格式要求严格，必须用单引号包裹，且格式要匹配Oracle服务器的NLS设置（常见格式为'YYYY-MM-DD'或'DD-MON-YYYY'），使用Format函数时注意用\'转义单引号。
• 确保传递查询的Oracle连接字符串配置正确，Access能正常建立数据库连接。

内容的提问来源于stack exchange，提问作者dCharles