混合数据类型数组用于WHERE IN子句时出现数据类型不匹配错误

核心原因 #

Office的Jet/ACE数据库引擎（如Access）处理包含整数和字符串的混合列时，会自动根据列中占多数的数据类型设置列的"隐含数据类型"，少数类型的数据会被识别为Null。哪怕生成的SQL语法看似正确，引擎也会因类型判断逻辑抛出数据类型不匹配错误。

具体解决步骤 #

1. 强制将列值转为字符串查询 #

不管原列里是数字还是字符串，统一把列值转成字符串后再匹配，SQL里用CStr()函数处理目标列：

' 假设数组元素为item，生成查询条件时
Dim condition As String
If VarType(item) = vbString Then
    condition = "CStr([ID no#]) = '" & Replace(item, "'", "''") & "'"
Else
    condition = "CStr([ID no#]) = '" & CStr(item) & "'"
End If
' 把condition拼入WHERE子句执行查询

这里用Replace(item, "'", "''")是为了处理字符串中的单引号，避免SQL语法错误。

2. 用参数化查询替代SQL拼接 #

参数化查询能绕过引擎的类型自动判断问题，同时避免SQL注入风险，可靠性更高：

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourFile.accdb;"

Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM YourTable WHERE [ID no#] = ?"

' 遍历数组元素执行查询
Dim item As Variant
For Each item In yourArray
    cmd.Parameters.Refresh
    cmd.Parameters(0).Value = item
    ' 执行并处理查询结果
    Dim rs As Object
    Set rs = cmd.Execute
    ' ... 这里添加记录集处理逻辑
    rs.Close
    Set rs = Nothing
Next item

conn.Close
Set cmd = Nothing
Set conn = Nothing

3. 修改源列数据类型（若有权限） #

如果能修改源文件的列属性，直接把[ID no#]列改成文本类型，所有值都会被当作字符串处理，后续查询就不会有类型匹配问题。

额外注意点 #

• 确认数组元素的实际类型：有时看似数字的元素，实际可能是字符串类型（比如从单元格读取时带格式），可用TypeName(item)检查。
• 单独处理Null值：如果混合列里存在Null值，需在查询条件中单独添加OR [ID no#] IS NULL的判断。

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