Excel VBA使用MySQL ODBC执行参数化SQL查询报Unknown column 'p1'错误

MySQL ODBC 5.1驱动默认不支持ADODB的命名参数机制，你写在SQL语句中的p1/p2等命名占位符不会被识别为参数，会直接作为SQL语法的一部分提交给MySQL解析，因此MySQL会将p1当作字段名查找，抛出"Unknown column 'p1' in 'field list'"错误。

• 将SQL中的参数占位符全部替换为位置占位符?，参数按顺序添加即可，不需要匹配命名
• 后期绑定ADODB对象时，需要手动声明ADODB常量，否则常量默认值为0会导致参数配置失效
• 插入操作不需要返回记录集，可添加adExecuteNoRecords参数提升执行效率

' 手动声明后期绑定需要的ADODB常量
Const adCmdText As Integer = 1
Const adParamInput As Integer = 1
Const adLongVarChar As Integer = 201
Const adExecuteNoRecords As Integer = &H80

For y = 0 To 20000
    If alltix.Range("A2").Offset(y, 0) = "" Then Exit For
    
    ' 预生成带?占位符的SQL语句
    qry = "INSERT INTO ticket_system.ticket_weekly_snapshot (issue_type,key_name,summary,assignee,reporter,priority,status,resolution,created,updated,due_date,project,linked_issues,parent_link,epic_link,parent_undefined,label,comment) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
    
    Dim adoCmd As Object
    Set adoCmd = CreateObject("ADODB.Command")
    With adoCmd
        .ActiveConnection = cnn
        .CommandType = adCmdText
        .CommandText = qry
        .NamedParameters = False ' 显式关闭命名参数，适配MySQL ODBC驱动
        
        ' 按顺序添加参数，不需要设置参数名
        For x = 0 To 17
            Dim cellVal As Variant
            cellVal = alltix.Range("A2").Offset(y, x).Value
            Dim l As Integer
            l = Len(cellVal)
            If l = 0 Then l = 10
            .Parameters.Append .CreateParameter("", adLongVarChar, adParamInput, l, IIf(IsNull(cellVal), "", cellVal))
        Next x
        ' 执行插入，不需要返回记录集
        .Execute , , adExecuteNoRecords
    End With
    Set adoCmd = Nothing
Next y

可以将Command对象的创建和SQL预编译提到循环外部，只修改参数值重复执行，性能会提升30%以上，适合大批量数据插入场景。

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