大神快来帮忙啊。。。。
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
#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
#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 ...