Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

将Access表中记录导入对应的SQL表中的方法

时 间:2017-11-28 08:29:51
作 者:杨雪   ID:42182  城市:南京
摘 要:最近遇到的 将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表。




Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助