将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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)