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--调用失败。[Oracle] [ODBC] [Ora] ORA-00936：缺少表达式（＃936）”

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

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

谢谢

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 Server并检索数据。您仍然需要按此处所述构建SQL字符串。

将MS Access Form日期传递到Oracle SQL中

1 个答案: