如何从 VBA 运行参数化查询。来自记录集的参数

Question

我有一个表单，用户从组合框中选择供应商的名称，其目录文件将被导入。然后，组合框选择驱动查询以创建一个单记录记录集 (rsProfile)，其中包含从所有供应商配置文件的表中查询的多个配置文件变量。然后在一系列不同的查询中使用这些变量，以将供应商的独特结构文件重新格式化、翻译和规范化为可以导入我们系统的标准化格式。

我很沮丧，因为我不知道如何构建我的存储查询，这些查询将使用从配置文件记录集中自动填充的一个或多个参数。

这是我的 rsProfile 收集代码。有用。请注意，intVdrProfileID 是一个全局变量集并在其他地方使用。

Private Sub btn_Process_Click()

Dim ws As Workspace
Dim db, dbBkp As DAO.Database
Dim qdf As DAO.QueryDef
Dim rsProfile, rsSubscrip As Recordset
Dim strSQL As String
Dim strBkpDBName As String
Dim strBkpDBFullName As String

strBkpDBName = Left(strVdrImportFileName, InStr(strVdrImportFileName, ".") - 1) & "BkpDB.mdb"
strBkpDBFullName = strBkpFilePath & "\" & strBkpDBName

Set db = CurrentDb
Set ws = DBEngine.Workspaces(0)

MsgBox ("Vendor Profile ID = " & intVdrProfileID & vbCrLf & vbCrLf & "Backup file path: " & strBkpFilePath)

' Harvest Vendor Profile fields used in this sub
strSQL = "SELECT VendorID, Div, VPNPrefix, ImportTemplate, " & _
                 "VenSrcID, VenClaID, ProTyp, ProSeq, ProOrdPkg, ProOrdPkgTyp, JdeSRP4Code, " & _
                 "PriceMeth, " & _
                 "ProCost1Frml, ProCost2Frml, " & _
                 "ProAmt1Frml, ProAmt2Frml, ProAmt3Frml, ProAmt4Frml, ProAmt5Frml " & _
         "FROM tZ100_VendorProfiles " & _
         "WHERE VendorID = " & intVdrProfileID & ";"

Set qdf = db.QueryDefs("qZ140_GetProfileProcessParms")
qdf.SQL = strSQL
Set rsProfile = qdf.OpenRecordset(dbOpenSnapshot)
DoCmd.OpenQuery "qZ140_GetProfileProcessParms"
' MsgBox (qdf.SQL)

我曾使用 QueryDefs 在运行时重写存储的查询，虽然它可以工作，但它相当繁琐，并不适用于所有事情。

我希望使用 DLookups 将类似下面的示例作为存储查询。我可以让它在 VBA 中工作，但我无法使用存储的查询。我愿意接受其他建议。

存储查询“qP0060c_DirectImportTape”：

SELECT 
    DLookUp("[VPNPrefix]","rsProfile","[VendorID]=" & intVdrProfileID) & [PartNo] AS VenPrtId,
    Description AS Des,
    DLookup("[Jobber]","rsProfile",[VendorID=" & intVdrProfileID) AS Amt1,
INTO tP006_DirectImportTape
FROM tJ000_VendorFileIn;

附录： 让我调整一下问题，让它更复杂一些。我收集了大约 40 个查询，每个查询都使用不同的参数集合（或没有）。我还有一个表，其中包含每个供应商“订阅”的特定查询集。目标是拥有一个数据库，非编码用户可以在其中添加新的供应商配置文件并创建/修改将针对该供应商文件运行的特定查询集。到目前为止，我有近 100 个供应商，因此单独编码每个供应商是不切实际的。每个供应商文件平均会受到 14 次不同的更新查询。

简化示例： Vendor1 文件需要使用查询 1、2 和 5 进行处理。Vendor2 文件可能只需要更新查询 2 和 4。这些查询的参数可能如下：

查询1 (parm1) 查询2（parm1、parm4、parm8、parm11） 查询 4（parm5、parm6、parm7、parm8、parm9、parm10、parm11） query5 () - 不需要参数

这是核心查询处理，仅循环与当前供应商文件相关的查询。 rsSubscrip 是包含此过滤查询列表的记录集（从主表查询）。

' Run all subscribed queries
MsgBox "Ready to process query subscription list."
With rsSubscrip
    Do While Not .EOF
        db.Execute !QueryName, dbFailOnError
        .MoveNext
    Loop
    .Close
End With

Answer 1

您可以使用语法设置预定义查询的参数；

Set qdf = CurrentDB.QueryDefs(QueryName)
qdf.Parameters(ParameterName) = MyValue

要为查询添加参数，请在sql中的SELECT语句之前添加以下内容

PARAMETERS [ParameterOne] DataType, [ParameterTwo] DataType;
SELECT * FROM tblTest;