如何在表单中使用访问传递查询

Question

我在访问时使用下面的传递查询代码。 代码不是问题。 我的问题是要在访问时形成一个表格，在指定的位置输入变量，然后从que SQL select中返回表。 常规解决方案：[Form]！[Variable]不起作用，因为我想直通查询不支持它（我不是Access专家）。 有人对此问题有解决方案吗？

SELECT instalacao
    ,tipounidade
FROM sgdprd.useccionadora us
INNER JOIN (
    SELECT bloco
    FROM sgdprd.redeprimaria rp
    WHERE rp.useccionadora IS NOT NULL CONNECT BY rp.nox = PRIOR rp.fontex
        AND rp.noy = PRIOR rp.fontey START
    WITH rp.utransformadora = (
            SELECT utransformadora
            FROM sgdprd.redeprimaria rp
            INNER JOIN sgdprd.consumidor con ON rp.utransformadora = con.instalacao
            WHERE con.conta = '**VARIABLE GOES HERE**'
            )
    ) lista ON lista.bloco = us.instalacao
WHERE us.tipounidade = 'DJ'
    OR us.tipounidade = 'RL'

Answer 1

您没有提及要对该查询的结果做什么？

任何传递查询都是只读的。

但是，您可以使用以下代码：

Dim strSQL As String

strSQL = "your sql goes here where con.contra='[P1]' bla bla"

strSQL = Replace(strSQL, "[P1]", Me.SomeControl)

With CurrentDb.QueryDefs("QryPass")
   .SQL = strSQL
End With

假定表单中的me.SomeControl被限制为一个数字列，因为如果它是自由格式的文本框，则您可以进行sql注入。 QryPass只是一个保存的传递查询，您可以在代码中一遍又一遍地重复使用该查询，以获取所需的任何T-sql或服务器端命令。

如前所述，您必须共享有关传递查询要执行的操作的其他信息（例如，分配给记录集，组合框，报表甚至表单记录源），因此需要其他信息才能解决此问题，但以上提供了一个有效的示例。