求助：access表数据写入另一个access的表

access新新新手

有1、access数据库（数据库名：数据库a ，表名：数据库a表）
有2、access数据库（数据库名：数据库b ，表名：数据库b表）
数据库在同一路径下，数据库字段完全相同（公司名、公司名简称、日期）
请问如何把数据库a中的数据库a表中的数据写入数据库b中的数据库b表中

roych

链接表后做追加查询即可。例如，打开A库，链接B库的B表，然后创建追加查询，即可把A表的数据追加到B表，或者把B表的数据追加到A表。
如果希望使用复杂点的玩法，就用ADO，这个需要写代码。

access新新新手

roych 发表于 2016-3-3 14:09
链接表后做追加查询即可。例如，打开A库，链接B库的B表，然后创建追加查询，即可把A表的数据追加到B表，或 ...

谢谢版主，就是希望复杂的，其实我想用vb实现。

roych

access新新新手 发表于 2016-3-3 17:11
谢谢版主，就是希望复杂的，其实我想用vb实现。

dim rs1 as new adodb.recordset
dim cnn2 as new adodb.connection
dim rs2 as new adodb.recordset
dim i as long
rs1.open "表1",currentproject.connection…………
'光标格式请根据实际来选择，具体请搜索ADO。
cnn2.open "provider=……data source="&数据库路径
'cnn2的链接字符串需要根据Access版本来选择引擎。mdb格式用jet 4.0，更高版本用ace 12.0
rs2.open "表2",cnn2………………
do until rs2.eof
rs1.addnew
for i=0 to rs1.fields.count-1
  rs1(i)=rs2(i)
next
rs1.update
rs2.movenext
loop
大体语句就是这样了。

access新新新手

roych 发表于 2016-3-3 17:22
dim rs1 as new adodb.recordset
dim cnn2 as new adodb.connection
dim rs2 as new adodb.recordset

谢谢版主。我发个附件请帮我看看可否实现，如果您说不可以实现我就放弃了。
因为您是高手中的高手。

roych

这是表示我帮你做完，然后还要为此感激你给这个机会，付你2个金钱的意思吗？

等你发到常规交流板块再说吧。

access新新新手

roych 发表于 2016-3-4 08:47
这是表示我帮你做完，然后还要为此感激你给这个机会，付你2个金钱的意思吗？

等你发到常规交流板块再说 ...

谢谢版主，我还真不知道这个论坛如何发帖。
现在才知道发求助帖要发到常规交流板块

roych

access新新新手 发表于 2016-3-4 08:57
谢谢版主，我还真不知道这个论坛如何发帖。
现在才知道发求助帖要发到常规交流板块

所有在源码的附件，下载都需要扣点。
事实上，源码的帖子应该是用来提供源码以及展示实例的。斑竹fan0217在线的时间较少，转移帖子这种事情做得比较少。
求助贴应该去这里发：
http://www.office-cn.net/forum-2-1.html

access新新新手

roych 发表于 2016-3-4 09:04
所有在源码的附件，下载都需要扣点。
事实上，源码的帖子应该是用来提供源码以及展示实例的。斑竹fan021 ...

谢谢版主，现在知道了。