用vb 或是别的方法、把access多个mdb文件、其中的表名和字段名完全一样、如何合并成一个md
答案:2 悬赏:70
解决时间 2021-01-12 05:12
- 提问者网友：兔牙战士
- 2021-01-11 13:34
用vb 或是别的方法、把access多个mdb文件、其中的表名和字段名完全一样、如何合并成一个md
最佳答案
- 二级知识专家网友：醉吻情书
- 2021-01-11 14:16
类似的一个程序：
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多个、一个一个输名字的话也很费事、你的方法是DAO的吧、追答你的数据库命名有规律吗？如果有，假如是Item_Bank_x,这个x是数字并且递增，你直接用变量就可以了。举例子：
A0 A1 ...A10
dim str as string
str= "INSERT INTO Item_Bank5 SELECt * FROM"
For i = 0 to 10
str = str +"Item_Bank"+Cstr(i)
if i <>10 then
str = str +","
end if
End For
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
如果你觉得费事的话，你可以用filedialog，调入文件，然后基本和这个差不多就可以实现了。追问filedialog是什么、相当余vb中的filelistbox
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多个、一个一个输名字的话也很费事、你的方法是DAO的吧、追答你的数据库命名有规律吗？如果有，假如是Item_Bank_x,这个x是数字并且递增，你直接用变量就可以了。举例子：
A0 A1 ...A10
dim str as string
str= "INSERT INTO Item_Bank5 SELECt * FROM"
For i = 0 to 10
str = str +"Item_Bank"+Cstr(i)
if i <>10 then
str = str +","
end if
End For
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
如果你觉得费事的话，你可以用filedialog，调入文件，然后基本和这个差不多就可以实现了。追问filedialog是什么、相当余vb中的filelistbox
全部回答
- 1楼网友：污到你湿
- 2021-01-11 15:07
可以用VB，编写一个程序，合并MDB文件。需要可以联系我。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息