Excel VBA中OLEDBConnection.CommandText用LIKE运算符报错求助

问题场景 #

通过Excel VBA的第3个连接（Connection 3）访问远程SQL Server数据库时，使用=运算符的SQL查询能正常执行，但改用LIKE运算符进行模糊查询时，触发运行时错误1004。

可正常运行的代码 #

With ActiveWorkbook.Connections(3)
    .OLEDBConnection.CommandType = xlCmdSql
    .OLEDBConnection.CommandText = "SELECT * FROM testSystems WHERE partGroup='CLV'"
    .Refresh
    Debug.Print .OLEDBConnection.CommandText
End With

触发错误的代码 #

With ActiveWorkbook.Connections(3)
    .OLEDBConnection.CommandType = xlCmdSql
    .OLEDBConnection.CommandText = "SELECT * FROM testSystems WHERE partGroup LIKE 'CLV%'"
    .Refresh
    Debug.Print .OLEDBConnection.CommandText
End With

排查与解决步骤 #

• 改用参数化查询：直接拼接LIKE语句时，部分OLEDB驱动可能对通配符%的解析出现异常，参数化查询能避免这类问题，同时提升安全性：

  Dim adoCmd As Object
  Dim adoRs As Object
  
  Set adoCmd = CreateObject("ADODB.Command")
  With adoCmd
      .ActiveConnection = ActiveWorkbook.Connections(3).OLEDBConnection.ActiveConnection
      .CommandText = "SELECT * FROM testSystems WHERE partGroup LIKE ?"
      ' 添加参数，200对应ADODB的adVarChar类型，50为字段长度，可根据实际调整
      .Parameters.Append .CreateParameter("param_partGroup", 200, 1, 50, "CLV%")
      Set adoRs = .Execute
  End With
  
  ' 将查询结果写入工作表（示例：写入Sheet1）
  If Not adoRs.EOF Then
      Sheet1.Range("A1").CopyFromRecordset adoRs
  End If
  
  ' 释放对象
  adoRs.Close
  Set adoRs = Nothing
  Set adoCmd = Nothing
  

• 检查数据库权限：确认连接SQL Server的账号拥有对testSystems表执行模糊查询的权限，部分权限策略可能限制LIKE语法的使用。
• 更新OLEDB驱动：使用最新版的SQL Server OLEDB驱动（如MSOLEDBSQL），旧版驱动可能存在语法兼容问题，导致LIKE语句解析失败。
• 验证SQL语法：在SQL Server Management Studio（SSMS）中直接执行SELECT * FROM testSystems WHERE partGroup LIKE 'CLV%'，确认语句本身在数据库端能正常运行，排除数据库层面的语法或数据问题。

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