VBA实现Access跨库数据复制遇主键重复无法插入问题求助

问题本质 #

自动编号类型的主键自带唯一约束，你当前使用的SELECT *语法会将源表的主键值一同插入目标表，当两边主键值重复时会触发唯一约束拦截，导致对应记录插入失败。

方案1：忽略源表主键，由目标库自动生成新主键（最常用，适合主键无业务意义的场景） #

无需插入源表的主键值，只选择除主键外的所有业务字段插入，目标库的自增主键会自动生成新的唯一值，完全避免冲突。
示例代码（假设主键字段名为item_id，替换为你实际的主键名即可）：

' 仅写入除主键外的业务字段
strSQL = "INSERT INTO [tbl_items] (item_name, price, create_time) SELECT item_name, price, create_time FROM [tbl_items] IN 'C:\temp\itemsdb.mdb';"
CurrentDb.Execute strSQL, dbFailOnError

如果表字段较多不想手动罗列，可以用VBA遍历字段自动拼接字段列表：

Dim fld As Field
Dim fieldStr As String
fieldStr = ""
' 遍历目标表字段，排除主键字段
For Each fld In CurrentDb.TableDefs("tbl_items").Fields
    If fld.Name <> "item_id" Then ' 替换为实际主键名
        If fieldStr <> "" Then fieldStr = fieldStr & ","
        fieldStr = fieldStr & "[" & fld.Name & "]"
    End If
Next
' 拼接最终SQL
strSQL = "INSERT INTO [tbl_items] (" & fieldStr & ") SELECT " & fieldStr & " FROM [tbl_items] IN 'C:\temp\itemsdb.mdb'"
CurrentDb.Execute strSQL, dbFailOnError

方案2：保留源表主键，仅插入目标库不存在的记录（适合主键有业务意义，重复主键直接跳过的场景） #

通过NOT EXISTS过滤掉源表中与目标表主键重复的记录，仅插入目标库没有的主键对应的记录。
示例代码：

strSQL = "INSERT INTO [tbl_items] SELECT s.* FROM [tbl_items] s IN 'C:\temp\itemsdb.mdb' " & _
         "WHERE NOT EXISTS (SELECT 1 FROM [tbl_items] t WHERE t.item_id = s.item_id)"
CurrentDb.Execute strSQL, dbFailOnError

方案3：保留源表主键，覆盖目标库同主键的记录（适合需要用源表数据更新目标库重复主键记录的场景） #

先删除目标库中与源表主键重复的记录，再插入所有源表记录，实现同主键内容的覆盖更新。
示例代码：

' 先删除目标库中重复主键的记录
strSQL = "DELETE FROM [tbl_items] WHERE item_id IN (SELECT item_id FROM [tbl_items] IN 'C:\temp\itemsdb.mdb')"
CurrentDb.Execute strSQL, dbFailOnError
' 再插入所有源表记录
strSQL = "INSERT INTO [tbl_items] SELECT * FROM [tbl_items] IN 'C:\temp\itemsdb.mdb'"
CurrentDb.Execute strSQL, dbFailOnError

注意事项 #

• 执行SQL时添加dbFailOnError参数，可以在执行出错时主动抛出异常，方便定位问题，避免静默失败。
• 操作前建议先备份两个数据库，避免误操作导致数据丢失。

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