SQL Server数据选择性导入MS Access出现VBA运行时错误3421咨询

• 在创建表字段的循环中添加调试代码，在VBA编辑器按Ctrl+G调出立即窗口即可查看映射结果：

For Each viewfld In myview.Fields
    ' 原有类型判断逻辑不变
    Debug.Print "字段名：" & viewfld.Name, "ADODB类型值：" & viewfld.Type, "映射DAO类型值：" & mytype
    Set fld = tdf.CreateField(viewfld.Name, mytype)
    ' 其他逻辑不变
Next

• 表创建完成后也可以直接遍历验证：

For Each fld In tdf.Fields
    Debug.Print fld.Name, fld.Type
Next

常见DAO类型常量对应值：dbText=10、dbInteger=3、dbLong=4、dbDouble=7、dbDate=8、dbMemo=12。

错误3421本质是数据类型与字段定义不匹配，你代码里存在几个典型的映射错误：

1. 整数类型映射错误
   你当前把ADODB的adInteger（值为3，对应SQL Server的4字节int类型）映射到了dbInteger，但DAO的dbInteger是2字节短整型，仅支持-32768~32767的数值，只要SQL Server的int字段值超过这个范围就会触发类型不匹配。
   修复：修改类型映射规则

Select Case viewfld.Type
    Case 200,202   'VarChar/VarWChar
        If viewfld.DefinedSize > 255 Then
            mytype = dbMemo
        Else
            mytype = dbText
            fld.Size = viewfld.DefinedSize ' 显式指定文本字段长度，避免默认255截断
        End If
    Case 3 'SQL Server int（4字节）
        mytype = dbLong ' 对应DAO长整型
    Case 2 'smallint（2字节）
        mytype = dbInteger
    Case 5 'Double
        mytype = dbDouble
    Case 7 '日期类型
        mytype = dbDate
    Case 20 'bigint（8字节）
        mytype = dbDouble ' 或者根据业务需求映射为dbText
    Case Else
        mytype = dbText
End Select

2. 空值处理缺失
   如果SQL Server字段存在Null值，直接赋值可能触发类型转换失败，修改赋值逻辑：

myrecordset.Fields(viewfld.Name).Value = Nz(viewfld.Value, Null)

3. 不必要的重复打开记录集
   你现在每次循环插入行都重新打开一次Access表的记录集，效率极低还可能引发异常，把记录集初始化放到循环外：

Dim myrecordset As DAO.Recordset
Set myrecordset = CurrentDb.OpenRecordset(Table)
Do While Not myview.EOF
    myrecordset.AddNew
    For Each viewfld In myview.Fields
        myrecordset.Fields(viewfld.Name).Value = Nz(viewfld.Value, Null)
    Next
    myrecordset.Update
    myview.MoveNext
Loop
myrecordset.Close
Set myrecordset = Nothing

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