VBA操作SQLite跨库更新时报'only one SQL statement allowed'错误求助

问题根源 #

1. 字符串拼接破坏SQL语法：如果mTranslation或mWordId包含单引号（比如翻译内容里的don't），直接拼接会导致SQL语句语法错乱，SQLite驱动会误判为多个SQL语句。
2. UPDATE操作错误绑定记录集：SQLite的UPDATE操作不返回结果集，强行用Set rs2 = cnn2.Execute(qExec)会触发驱动异常。
3. 字段类型不匹配：如果_id是数值类型，加单引号会引发SQL语法异常，进一步触发驱动的错误判断。

修复方案 #

1. 用参数化查询替代字符串拼接（核心解决方法） #

通过ADODB.Command创建参数化查询，彻底避免单引号导致的语法问题，同时杜绝SQL注入风险。

2. 正确执行UPDATE操作 #

执行UPDATE时无需获取记录集，直接通过Execute的RecordsAffected参数判断是否有记录被更新。

修改后的完整代码 #

Sub IterateThruDB1andUpdateDB2()
    Dim mCounter As Long, mCounterNotFound As Long
    Dim mWordId As Variant, mWord As String, mTranslation As String
    Dim cnn1 As ADODB.Connection, cnn2 As ADODB.Connection
    Dim rs1 As ADODB.Recordset
    Dim cmdUpdate As ADODB.Command
    Dim resp As VbMsgBoxResult

    ' 初始化第一个数据库连接
    Set cnn1 = New ADODB.Connection
    cnn1.ConnectionString = "DSN=SomeDSN1;"
    cnn1.Open

    ' 初始化第二个数据库连接及更新命令
    Set cnn2 = New ADODB.Connection
    cnn2.ConnectionString = "DSN=SomeDSN2;"
    cnn2.Open

    Set cmdUpdate = New ADODB.Command
    With cmdUpdate
        .ActiveConnection = cnn2
        .CommandText = "UPDATE someTable2 SET translation = ? WHERE _id = ?"
        .CommandType = adCmdText
        ' 添加参数（参数顺序需与SQL中的?对应）
        .Parameters.Append .CreateParameter("pTranslation", adVarChar, adParamInput, 255) ' 根据实际字段长度调整
        .Parameters.Append .CreateParameter("pId", adInteger, adParamInput) ' 若_id是字符串类型，改为adVarChar
    End With

    mCounter = 0
    mCounterNotFound = 0

    If cnn1.State = adStateOpen Then
        ' 只查询需要的字段，提升效率
        Set rs1 = cnn1.Execute("SELECT _id, word, translation FROM someTable1")
        Do Until rs1.EOF
            mWordId = rs1.Fields("_id").Value
            mWord = rs1.Fields("word").Value
            mTranslation = rs1.Fields("translation").Value & "Some text"

            ' 给参数赋值
            cmdUpdate.Parameters("pTranslation").Value = mTranslation
            cmdUpdate.Parameters("pId").Value = mWordId

            ' 执行更新，获取受影响的行数
            cmdUpdate.Execute RecordsAffected:=mCounter

            If mCounter = 0 Then
                mCounterNotFound = mCounterNotFound + 1
                resp = MsgBox("未找到对应记录，无法更新! [" & mWordId & "]", vbOKCancel)
                If resp = vbCancel Then Exit Do
            End If

            rs1.MoveNext
        Loop
        rs1.Close
    End If

    ' 清理资源
    Set cmdUpdate = Nothing
    cnn1.Close
    cnn2.Close
    Set rs1 = Nothing
    Set cnn1 = Nothing
    Set cnn2 = Nothing

    MsgBox "更新完成：成功更新 " & mCounter & " 条记录，未找到 " & mCounterNotFound & " 条记录"
End Sub

关键修改说明 #

• 参数化查询：用?作为占位符传递参数，彻底避免单引号导致的语法错误。
• 移除无效记录集绑定：UPDATE操作不返回结果，通过RecordsAffected参数直接判断更新效果。
• 匹配字段类型：根据_id的实际类型设置参数类型，避免类型不匹配的语法问题。
• 精简查询字段：原代码用SELECT *，改为明确查询所需字段，提升执行效率。

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