如何用ADODB.Command参数为IN运算符传递动态元素列表？

你的思路存在错误：ADODB的adArray类型无法直接用于给IN运算符传递多值列表，因为主流数据库（包括你使用的Access）不支持将数组作为单个参数绑定到IN子句，ADODB的参数机制也不兼容这种用法，这就是你报错“wrong datatype”的原因。

正确实现方式：动态生成参数占位符并逐个绑定参数 #

核心思路是根据数组长度生成对应数量的参数占位符（?），再将数组中的每个元素单独作为参数绑定到Command对象，既保留预编译的优势，又避免SQL注入风险。

修改后的代码如下：

Function OpenStandardView(ID_Customer() As Long, NumberType As Long, Number As String) As ADODB.Recordset
    Dim CMD As New ADODB.Command
    Dim paramPlaceholders As String
    Dim i As Integer

    ' 生成IN子句对应的参数占位符
    paramPlaceholders = ""
    For i = LBound(ID_Customer) To UBound(ID_Customer)
        If paramPlaceholders <> "" Then paramPlaceholders = paramPlaceholders & ", "
        paramPlaceholders = paramPlaceholders & "?"
    Next i

    With CMD
        .ActiveConnection = CurrentProject.Connection
        .CommandType = adCmdText
        ' 拼接带动态占位符的SQL语句
        .CommandText = "SELECT * FROM CUSTOMERS WHERE ID_CUSTOMER IN (" & paramPlaceholders & ") AND NUMBERTYPE = ? AND NUMBER = ?"
        .Prepared = True

        ' 逐个绑定ID_CUSTOMER数组中的元素作为参数
        For i = LBound(ID_Customer) To UBound(ID_Customer)
            .Parameters.Append .CreateParameter("ID_CUSTOMER_" & i, adInteger, adParamInput, , ID_Customer(i))
        Next i

        ' 绑定固定参数
        .Parameters.Append .CreateParameter("NUMBERTYPE", adInteger, adParamInput, , NumberType)
        .Parameters.Append .CreateParameter("NUMBER", adVarWChar, adParamInput, 255, Number)
    End With

    Set OpenStandardView = New ADODB.Recordset
    With OpenStandardView
        .CursorLocation = adUseClient
        .CursorType = adOpenForwardOnly
        .CacheSize = 50
        .LockType = adLockReadOnly
        .Open CMD
    End With
End Function

关键说明： #

• 动态生成占位符：根据ID_Customer数组的长度生成对应数量的?，确保每个ID都有独立的参数位置
• 逐个绑定参数：将数组中的每个Long类型元素作为adInteger类型参数添加，符合ADODB参数绑定规则
• 预编译仍然有效：虽然SQL语句的占位符数量会随数组长度变化，但数据库仍能缓存相同参数数量的执行计划，同时完全避免了拼接字符串带来的SQL注入风险

内容的提问来源于stack exchange，提问作者Aranxo