VBA 访问：没有为一个或多个必需参数提供值

Question

我知道，对于这个问题，有很多答案应该是微不足道的，但我没有找到正确的答案。这是我的问题： 我使用以下 select 语句打开一个记录集：

SELECT twinecellar.produktnavn, twinecellar.land, 
 twinecellar.produkttype,  twinecellar.år, 
 twinecellar.antall, twinecellar.poeng, 
 twinecellar.Picture, twinecellar.KR, 
 twinecellar.Poengsum, twinecellar.Sum
FROM twinecellar
WHERE (((twinecellar.land)=forms!fmainview!list13) 
  And ((twinecellar.produkttype)=forms!fmainview!list15))
ORDER BY twinecellar.poeng;

在即时窗口中，我看到列表 13 包含“法国”，列表 15 包含“红色” 当我使用此语句创建一个新查询时，它正在工作，但是，在 rst.Open gsStrQuery 上我收到此错误。 gsStrQuery 包含选择字符串。

代码如下：

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

rst.CursorType = adOpenDynamic
rst.ActiveConnection = conn
rst.Open gsStrQuery

有人对这个问题有好的想法吗？

Answer 1

在构建 SQL 字符串时，将“参数”值连接到字符串中。

gsStrQuery = "SELECT twinecellar.produktnavn, twinecellar.land, " & _
                "twinecellar.produkttype,  twinecellar.år, " & _
                "twinecellar.antall, twinecellar.poeng, " & _
                "twinecellar.Picture, twinecellar.KR, " & _
                "twinecellar.Poengsum, twinecellar.Sum " & _
             "FROM twinecellar " & _
             "WHERE (((twinecellar.land)= '" & forms!fmainview!list13 & "') " & _
                "And ((twinecellar.produkttype)= '" & forms!fmainview!list15 & "')) " & _
             "ORDER BY twinecellar.poeng;"

这样，在您尝试打开查询之前，您的参数值会被硬编码到字符串中。

（另请注意：我在您的参数周围添加了单引号以表示它们是字符串。）

（另请注意：& _ 是 VBA 的续行，因此您的 SQL 字符串可以正确连接。这使您可以拥有一个可读的、缩进很好的 SQL 代码。）

________________________________

还有一种方法可以使用您当前的 gsStrQuery 并将参数值分配给 ADO 记录集。 （但我发现上面的 Replacement 方法在返回查看代码时更容易阅读。唯一的缺点是每次参数更改时都必须重新构建 SQL 字符串。但对于非复杂查询来说，这种开销是最小的。）

不过，如果你真的要使用ADO参数，可以找一个有用的说明here.

希望有帮助:)