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多个、
有多种方式:1、直接在mxd文件中添加分幅的地形图,然后发布服务,这样看上去是合并的了
2、新建一个MDB数据库,然后将数据按图层分别合并到一个图层里
地形图合并的关键在于是否要接边,如果接边的话工作量就很大了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)