导入超255字符至MS Access数据库时遇3001无效参数错误

我正在编写脚本将JSON文件导入Microsoft Access数据库，目前除字符数超过255的notes字段外，其余字段均能正常导入。为解决该问题，我添加了字段长度检查逻辑：当notes字段内容超255字符时，将内容拆分存入notes_split1和notes_split2列，同时清空notes列；若未超过则直接存入notes列。但执行该逻辑时触发错误3001：无效参数，仅处理超255字符的记录时出现此问题，其余记录导入正常。

相关代码： #

If Len(element("notes")) > 255 Then
    Dim notesValue As String
    notesValue = element("notes")

' Split the notes value into two parts
    Dim maxLength As Integer
    maxLength = 255
    Dim notessplit As String
    Dim notessplit2 As String

    If Len(notesValue) > maxLength Then
        notessplit1 = Left(notesValue, maxLength)
        notessplit2 = Mid(notesValue, maxLength + 1)
    Else
        notessplit1 = notesValue
        notessplit2 = ""
    End If

    qdef!notes_split1 = notessplit1
    qdef!notes_split2 = notessplit2
    qdef!notes = ""
Else
    qdef!notes = element("notes")
    qdef!notes_split1 = ""
    qdef!notes_split2 = ""
End If

QDEf.execute

错误原因及修复方案 #

1. 变量未定义（核心问题）

代码中声明了Dim notessplit As String，但实际使用的变量是notessplit1——这个变量未被显式声明，VBA会默认它为Variant类型，赋值给Access字段时可能导致参数类型不匹配，触发错误3001。

修复：把Dim notessplit As String改为Dim notessplit1 As String，确保变量正确声明。

2. 冗余判断逻辑

外层已经判断过Len(element("notes")) > 255，内层无需再次判断Len(notesValue) > maxLength，可以直接执行拆分，减少冗余代码。

3. 特殊字符转义

如果notes内容包含单引号等Access SQL敏感字符，直接赋值会导致SQL语法错误，进而触发参数无效的报错。需要对特殊字符进行转义。

修复后的代码：

If Len(element("notes")) > 255 Then
    Dim notesValue As String
    notesValue = element("notes")

    ' Split the notes value into two parts
    Dim maxLength As Integer
    maxLength = 255
    Dim notessplit1 As String
    Dim notessplit2 As String

    notessplit1 = Left(notesValue, maxLength)
    notessplit2 = Mid(notesValue, maxLength + 1)

    ' 转义单引号避免SQL语法错误
    notessplit1 = Replace(notessplit1, "'", "''")
    notessplit2 = Replace(notessplit2, "'", "''")

    qdef!notes_split1 = notessplit1
    qdef!notes_split2 = notessplit2
    qdef!notes = ""
Else
    Dim normalNotes As String
    normalNotes = element("notes")
    ' 同样转义特殊字符
    normalNotes = Replace(normalNotes, "'", "''")
    qdef!notes = normalNotes
    qdef!notes_split1 = ""
    qdef!notes_split2 = ""
End If

QDEf.execute

额外排查点 #

• 确认Access数据库中notes_split1和notes_split2的字段类型为Text（最大长度255）或Memo，确保字段能容纳拆分后的内容。
• 用Debug.Print notessplit1, notessplit2输出拆分后的内容，检查是否包含不可见字符或异常格式。
• 验证qdef对应的SQL语句中，参数绑定的字段名称是否与数据库中的字段完全一致。

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