VBA ADODB查询中值拼接作为匹配键的写法正确性咨询

首先，你原来的表达式写法存在两个关键问题，导致无法生成期望的53/350匹配键：

1. 数据库字段被错误识别为字符串常量：你把prod.cd_produit用单引号包裹成了'prod.cd_produit'，这会让数据库把它当成字面字符串"prod.cd_produit"，而不是读取字段里的实际值53。
2. VBA字符串拼接语法混乱：原写法的引号嵌套逻辑错误，最终生成的SQL语句会不符合语法规范。

修正后的直接拼接写法 #

如果你的场景是内部可控的变量（注意：这种方式存在SQL注入风险，仅适合信任的变量输入），可以把那行代码改成这样：

" sousc.lp_etat_doss not in ('ANNUL','A30','IMPAY') and sousc.is_produit = prod.is_produit" & _
" and prod.cd_produit || '/' || '" & strQ & "' = proto.cd_protocole "

修正点说明：

• 去掉prod.cd_produit周围的单引号，让数据库识别为字段引用
• 用'/'作为SQL里的分隔符字符串
• 正确嵌入VBA变量strQ：通过" & strQ & "把变量值插入到SQL字符串中，外面的单引号确保它在SQL里被当作字符串处理

更安全的参数化查询写法（推荐） #

为了避免SQL注入风险，同时彻底解决引号嵌套问题，建议使用参数化查询。示例代码如下：

Public Sub INFO_PROTO34(ByRef strQ As String)
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim sql As String
    
    ' 假设你已经完成了conn连接的初始化
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    
    ' 构建带参数占位符的SQL语句
    sql = "SELECT * FROM your_table_name " & _
          "WHERE sousc.lp_etat_doss not in ('ANNUL','A30','IMPAY') " & _
          "AND sousc.is_produit = prod.is_produit " & _
          "AND prod.cd_produit || '/' || ? = proto.cd_protocole"
    
    cmd.CommandText = sql
    ' 添加参数，注意匹配数据库字段的类型和长度
    cmd.Parameters.Append cmd.CreateParameter("strQParam", adVarChar, adParamInput, Len(strQ), strQ)
    
    ' 执行查询并处理结果
    Dim rs As ADODB.Recordset
    Set rs = cmd.Execute
    ' 后续业务逻辑...
End Sub

这种方式把变量strQ作为参数传递，不需要手动处理引号，既安全又能避免语法错误。

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