大神快来帮忙啊。。。。
4 个解决方案
#1
Dim appAccess As New Access.Application
appAccess.OpenCurrentDatabase ("db1.mdb")
appAccess.DoCmd.CopyObject "db2.mdb", , acTable, "Table1"
Set appAccess = Nothing
appAccess.OpenCurrentDatabase ("db1.mdb")
appAccess.DoCmd.CopyObject "db2.mdb", , acTable, "Table1"
Set appAccess = Nothing
#2
![VB 实现将Access数据库中的一张表复制到另一个数据库 VB 实现将Access数据库中的一张表复制到另一个数据库](https://image.shishitao.com:8440/aHR0cHM6Ly93d3cuaXRkYWFuLmNvbS9nby9hSFIwY0hNNkx5OW1iM0oxYlM1amMyUnVMbTVsZEM5UWIybHVkRVp2Y25WdEwzVnBMM05qY21sd2RITXZZM05rYmk5UWJIVm5hVzR2TURBekwyMXZibXRsZVM4eE1pNW5hV1k9.jpg?w=700&webp=1)
#3
用语句:
select * into 新表 from 表1
#4
有数据结构 INSERT INTO DB1..TA SELECT * FROM DB2..TB WHERE ...
无表结构 SELECT * INTO DB1..TA FROM DB2..TB WHERE ...
无表结构 SELECT * INTO DB1..TA FROM DB2..TB WHERE ...
#1
Dim appAccess As New Access.Application
appAccess.OpenCurrentDatabase ("db1.mdb")
appAccess.DoCmd.CopyObject "db2.mdb", , acTable, "Table1"
Set appAccess = Nothing
appAccess.OpenCurrentDatabase ("db1.mdb")
appAccess.DoCmd.CopyObject "db2.mdb", , acTable, "Table1"
Set appAccess = Nothing
#2
![VB 实现将Access数据库中的一张表复制到另一个数据库 VB 实现将Access数据库中的一张表复制到另一个数据库](https://image.shishitao.com:8440/aHR0cHM6Ly93d3cuaXRkYWFuLmNvbS9nby9hSFIwY0hNNkx5OW1iM0oxYlM1amMyUnVMbTVsZEM5UWIybHVkRVp2Y25WdEwzVnBMM05qY21sd2RITXZZM05rYmk5UWJIVm5hVzR2TURBekwyMXZibXRsZVM4eE1pNW5hV1k9.jpg?w=700&webp=1)
#3
用语句:
select * into 新表 from 表1
#4
有数据结构 INSERT INTO DB1..TA SELECT * FROM DB2..TB WHERE ...
无表结构 SELECT * INTO DB1..TA FROM DB2..TB WHERE ...
无表结构 SELECT * INTO DB1..TA FROM DB2..TB WHERE ...