将Access表中记录导入对应的SQL表中的方法-杨雪专栏

按照下列步骤可以将Access表中记录导入对应的SQL表中：

1.建这样一个表，第一个字段记录是链接过来的SQL 的链接表名称，第二个字段是对应的access 表名称。

2.建一个模块，运行这段代码，就导入成功了。

Sub Test()
    Dim dbs: Set dbs = CurrentDb
    Dim rst: Set rst = CurrentDb.OpenRecordset("要导数据的表")
    Do Until rst.EOF
        DoCmd.RunSQL "Delete FROM [" & rst!表名SQL & "]"
        'dbs.Execute "Delete FROM [" & rst!表名SQL & "]"
        DoCmd.RunSQL "Insert INTO [" & rst!表名SQL & "] Select * FROM [" & rst!表名Access & "]"
        'dbs.Execute "Insert INTO [" & rst!表名SQL & "] Select * FROM [" & rst!表名Access & "]"
        rst.MoveNext
    Loop
    rst.Close
End Sub

注意事项：

1.因为导入的过程可能会出现一点错误提示，建议一个或者俩个表慢慢的导入。

2.如果提示下面这种错误。就检查对应的主键，字段数据类型，索引，关系，有效性规则匹配不，总之就是看提示找问题了。

3.还有一种就是不可以删除SQL 表记录或者追加SQL 表记录，但是代码里又没有明确提示原因。

（1）找到SQL 链接表，手动删除一条记录试试，这里会提示具体是什么原因导致不能删除的。一般会提示关联了另一个表。

删除A----提示和B 表有关联，那么就应该先删除B表内容，再删除A表。追加过程相反，先追加A表，再追加B表。