Dim dbs As Database
Set dbs = OpenDatabase("Item_Bank.mdb")
dbs.Execute "INSERT INTO Item_Bank5 SELECT * FROM Item_Bank4,Item_Bank3,Item_Bank2,Item_Bank1"
dbs.Close
Item_Bank是你要写入的数据库的名称,Item_Bank4,Item_Bank3,Item_Bank2,Item_Bank1是你要合并的数据库。
追问:
关键是mdb文件有70多个、
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)