VB 历遍某个文件夹,将该文件夹下的所有Access数据库名显示在Combox中

再逐一进行链接操作.  求教老师们. 如何循环或数据库变量名

对每个链接的Access数据库进行SQL语句查找

[ 本帖最后由 sml 于 2013-6-23 20:23 编辑 ]

Private Sub Form_Load()
DealFolder "C:\Documents and Settings\user\桌面"
End Sub
'----------------------------------'
Private Sub DealFolder(Folder As String, Optional File As String = "*.mdb")
Dim t As String
t = Dir(Folder & IIf(Asc(Right(Folder, 1)) = 92, "", "\") & File)
Combo1.Clear
While Len(t)
     Combo1.AddItem t
     t = Dir
Wend
End Sub

问题一我做好了,接下来链接怎么连 要自动循环 Combo1.AddItem 链接数据库 每链接个做SQL查询语句.

有多个ACCESS数据库文件分别是“1.mdb”、“2.mdb”、“3.mdb”....，各个数据库里面都有多个同名的“表格1”、“表格2”、“表格3”、...，只是各个数据库的同名表的结构相同但表格里的记录不一样，我要将各个数据库里的各个名字相同表格的记录合并生成一个新数据库，
比如：1.mdb里的“表1”的记录为：张三/18/1390000118  2.mdb里的“表1”的记录为：李四/21/1378888999    我要合并成“汇总.mdb"，里面建立"表1"汇总1.mdb和2.mdb里的“表1”的数据。

'---------------------------------------------------'
或者这样 我不用每个链接,汇总总表. 指定一表数据库进行SQL语句查询