将 MS 访问表单日期传递到 Oracle SQL

Question

我正在使用MS Access通过传递查询从Oracle服务器中提取一些数据。 用户会看到一个表单，用户可以在其中输入一些变量(例如日期范围(。 我希望Oracle SQL能够从表单中获取两个日期字段。

当前的 SQL(不起作用(如下所示：

SELECT a.I_LOAN_NUM, a.I_LOAN_SUB_ALLOC, c.N_EXCLV, e.I_GSL_SPNSR, e.N_GSL_SPNSR,  b.D_CAL, b.C_LOAN_STAT, g.N_CNTRY
FROM SLD_LOAN_MSTR a
JOIN SLD_LOAN_CDL b on b.I_LOAN_ID = a.I_LOAN_ID
JOIN SLD_EXCLV c on c.I_EXCLV_ID = b.I_EXCLV_ID
JOIN SLD_AC d on d.I_AC_ID = b.I_AC_ID
JOIN SLD_CUST e on e.I_CUST_ID = d.I_CUST_ID
JOIN SLD_DPT_CNTRY f on f.I_DPT_ID = b.I_DPT_ID
JOIN SLD_CNTRY g on g.I_CNTRY_ID = f.I_CNTRY_ID
WHERE (b.C_LOAN_STAT = 'SETTLED' and b.D_CAL between [Forms]![Cost Allocation Form]![Start_Date] and [Forms]![Cost Allocation Form]![End_Date])
ORDER BY b.D_CAL

如果我用硬编码日期替换表单引用，上述 SQL 可以工作，所以我知道 SQL 通常很好。 例：

WHERE (b.C_LOAN_STAT = 'SETTLED'  and b.D_CAL between '01JAN2019' and '01FEB2019')

SQL 生成的错误消息指出"ODBC--调用失败。 [甲骨文][ODBC][奥拉]ORA-00936：缺少表达式 (#936(">

表单中的两个日期字段都使用短日期格式。

我不确定这是否有任何区别，但表单有多个选项卡。 从我从其他示例中看到的情况来看，表单引用不需要考虑选项卡标签。

谢谢

Answer 1

传递查询在服务器上执行。在您的情况下，Oracle 服务器无法识别[Forms]![Cost Allocation Form]![Start_Date]和[Forms]![Cost Allocation Form]![End_Date]属性。

可以使用 VBA 动态更新查询的查询定义，以包含表单控件值。然后执行查询。

Dim strSQL As String
Dim qdf As QueryDef
strSQL = "SELECT a.I_LOAN_NUM, a.I_LOAN_SUB_ALLOC, c.N_EXCLV, e.I_GSL_SPNSR, e.N_GSL_SPNSR,  b.D_CAL, b.C_LOAN_STAT, g.N_CNTRY " & _
        "FROM SLD_LOAN_MSTR a " & _
        "JOIN SLD_LOAN_CDL b on b.I_LOAN_ID = a.I_LOAN_ID " & _
        "JOIN SLD_EXCLV c on c.I_EXCLV_ID = b.I_EXCLV_ID " & _
        "JOIN SLD_AC d on d.I_AC_ID = b.I_AC_ID " & _
        "JOIN SLD_CUST e on e.I_CUST_ID = d.I_CUST_ID " & _
        "JOIN SLD_DPT_CNTRY f on f.I_DPT_ID = b.I_DPT_ID " & _
        "JOIN SLD_CNTRY g on g.I_CNTRY_ID = f.I_CNTRY_ID " & _
        "WHERE (b.C_LOAN_STAT = 'SETTLED' and b.D_CAL between '" & _
        [Forms]![Cost Allocation Form]![Start_Date] & "' and '" & [Forms]![Cost Allocation Form]![End_Date] & _
        "' ORDER BY b.D_CAL"
Set qdf = CurrentDb.QueryDefs("PassThroughQueryName")
qdf.SQL = strSQL

另外，由于您使用日期，我建议您将日期格式化为ISO格式yyyy-mm-dd

在这种情况下，格式化控件，例如

Format([Forms]![Cost Allocation Form]![Start_Date], "yyyy-mm-dd") & "' and '" & Format([Forms]![Cost Allocation Form]![End_Date], "yyyy-mm-dd")

另一种方法是仅使用VBA ADO访问Oracle服务器并检索数据。您仍然需要构建 SQL 字符串，如此处所述。