sql - 使用 VBA 代码在 Access 中运行 SQL 语句

Question

我不明白这是怎么回事，我正在从表单中收集搜索条件以在搜索中使用它。

像这样存储的 SQL 行:(strWhere 是从表单收集的信息)

SQLst = "SELECT Deposits.Fines, Deposits.[Deposit Value], Deposits.[Deposit Date], Deposits.Depositor, Info.Tower, Deposits.[Account Number] FROM Info, Deposits Where " & strWhere & ";"

最终的 SQL 语句如下所示:

SELECT Deposits.Fines, Deposits.[Deposit Value], Deposits.[Deposit Date], Deposits.Depositor, Info.Tower, Deposits.[Account Number] FROM Info, Deposits Where ([Account Number] = "1234");

现在，在我使用此命令运行该行之后(SQLst 是 SQL 行)

DoCmd.OpenQuery SQLst

我收到这条消息:

Answer 1

不是 DoCmd.OpenQuery SQLst，它用于保存的查询，而不是 SQL 字符串。你需要:

' Best to use a separate instance, so you can get record counts etc.
Set db = CurrentDB

对于 Action 查询:

db.Execute SQLst, dbFailOnerror

对于 SELECT 查询，您可以使用记录集或更新或创建查询。

Set rs = db.Openrecordset(SQLst)

' This query does not exist
Set qdf = db.CreateQueryDef("MyQuery", SQLst)

我怀疑帐号是文本，所以:

 ([Account Number] = 1234);

引号用于文本类型的字段/列，数字保持原样，日期用井号 (#) 分隔。