如何根据来自 InputBox 的信息运行查询？

Question

在我的表单上，我有一个用户可以点击的按钮。然后它将通过 3 个输入框提示用户，用户可以在其中输入他想要运行查询的信息。我希望根据他在 3 个输入框中输入的值来运行查询，但我似乎无法弄清楚这一点。该查询基于我数据库中的另一个表。这是我写的代码。它不会编译，因为我有太多参数。这可能是因为我不知道如何使用 DoCmd.OpenQuery 命令传递变量。

    Private Sub VariableQuery_Click()

    Dim strProdCode As String
    Dim strCampCode As String
    Dim strMailDate As String

    strProdCode = InputBox("Enter Product Code", "Product Code")
    strCampCode = InputBox("Enter Campaign Code", "Campaign Code")
    strMailDate = InputBox("Enter Mail Date", "Mail Date")

    DoCmd.OpenQuery "contribution", , , "[PRODUCT_CODE]=" & strProdCode & _
    "[CAMPAIGN_CODE]=" & strCampCode & "[MAIL_DATE]=" & strMailDate

    End Sub

感谢任何帮助。我尝试运行的查询名称是“贡献”。 PRODUCT_CODE、CAMPAIGN_CODE 和 MAIL_DATE 是数据库中字段的名称，PRODUCT_CODE 和 CAMPAIGN_CODE 都是文本字段，MAIL_DATE 是日期/时间字段。

Answer 1

我不知道是否有其他方法可以做到这一点，但我将如何解决这个问题是通过创建 SQL 字符串

Dim strSQL As String
strSQL = "SELECT ... INTO ... " _
       & "FROM ... " _
       & "WHERE [PRODUCT_CODE]='" & strProdCode &"' AND [CAMPAIGN_CODE]='" & strCampCode & "' AND [MAIL_DATE]=#" & strMailDate & "#"
DoCmd.RunSQL strSQL

注意事项

• 当您有 WHERE 类型的子句时，您必须适当地限定字段的值，例如'' 围绕字符串，## 围绕日期而没有围绕数字
• DoCmd.RunSQL 我相信只运行操作查询，例如UPDATE、DELETE 等。普通的 SELECT 不是操作查询。
• 如果你想隐藏弹出的警告有两种方法，一种是使用CurrentDB.Execute(strSQL)，或者使用DoCmd.SetWarnings(False)和DoCmd.SetWarnings(True)

编辑（可能有用的链接）

• http://allenbrowne.com/tips.html
• Building SQL strings in Access/VBA
• 您可以通过 Google 搜索“在 ms 访问中构建 sql 字符串”或其他一些变体以获取更多来源