在 SQL 查询中使用变量会引发 ADO 错误

Question

我正在尝试从 SQL Server 表（项目）中获取单个项目代码，以与在 Excel 工作表中输入的项目代码进行比较。为了实现这一点，我在 Excel 2019 中编写了以下 VBA 代码。

Function GetItemcodeFromSQLTable(sSQLArtikel As String) As String

    Dim connection As New ADODB.connection

    connection.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Data Source=SQL01;Initial Catalog=110"

    Dim query As String
    query = "select itemcode from items where itemcode = " & sSQLArtikel

    Dim rs As New ADODB.Recordset

    rs.Open query, connection

    connection.Close

End Function

我在执行rs.open query, connection 行时不断收到错误消息。

这一切的目的是我想知道 SQL 表中是否已经存在 itemcode。如果没有，我的 VBA 代码的其余部分将创建一个 XML 文件以将新的 itemcode 导入 SQL 表。

我在 VBA 窗口中添加了对“Microsoft Active X Data Objects 6.1 Library”的引用。

谁能帮我解决这个问题？

非常感谢。

我现在使用的代码是

Function CheckIfArticleCodeExistsInSQLDatabase(sSQLArtikel As String) As String

Dim query As String
Dim connection As ADODB.connection
Dim rs As ADODB.Record
Dim cmd As ADODB.Command


' PREPARED STATEMENT WITH PARAM PLACEHOLDERS
query = "select itemcode from items where itemcode = " & "'" & sSQLArtikel & "'"

' OPEN CONNECTION
Set connection = New ADODB.connection
connection.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
                   & "Data Source=SQL01;Initial Catalog=110"

' DEFINE COMMAND AND RECORDSET
Set cmd = New ADODB.Command
cmd.ActiveConnection = connection

Set rs = cmd.Execute(query, sSQLArtikel)    ' BIND PARAM VALUES

' ... DO SOMETHING WITH rs

rs.Close: connection.Close
Set cmd = Nothing: Set rs = Nothing: Set connection = Nothing

End Function

执行命令“Set rs = cmd.Execute(query, sSQLArtikel)”时会显示错误消息“未为命令对象设置命令文本”。

我做错了什么，但是什么？

Answer 1

在 VBA 等应用层中运行 SQL 时，请考虑参数化的行业最佳实践。这样做可以避免将变量连接和标点到 SQL 字符串。

具体来说，字符串文字 (sSQLArtikel) 周围缺少引号是您的问题。使用 ADO Command.Execute，您可以定义带有绑定参数的记录集。

Dim query As String
Dim connection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

' PREPARED STATEMENT WITH PARAM PLACEHOLDERS
query = "select itemcode from items where itemcode = ?"

' OPEN CONNECTION
Set connection = New ADODB.Connection
connection.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
                   & "Data Source=SQL01;Initial Catalog=110"

' DEFINE COMMAND AND RECORDSET
Set cmd = New ADODB.Command

With cmd
    .ActiveConnection = connection
    .CommandType = adCmdText
    .CommandText = query
    .Parameters.Append .CreateParameter(, adVarChar, adParamInput, _
                                        Len(sSQLArtikel), sSQLArtikel)
    Set rs = .Execute
End With

' ... DO SOMETHING WITH rs

rs.Close: connection.Close
Set cmd = Nothing: Set rs = Nothing: Set connection = Nothing