同结构的ACCESS数据库如何实现合并

wwwbjwww

如题,手头含有70个子公司的ACCESS数据库,每个数据库数据库数量一样,结构一样,该如何实现合并到一个合并数据库中,以下语句可以实现两个同结构数据库的合并,但我要求实现的是70的数据库合并:是否连续执行69次宏即可,如果可以,能否用循环语句实现,谢谢!(我的思路法是;用VBA新建一地址表获取各数据库所在路径及文件名(假设都在同一文件夹内:D盘),然后执行地址指针循环运行代码
Public Sub ImportData()
   
          Dim strPath     As String
          strPath = "D:\db2.MDB"
          Dim strSQL     As String
          Dim Cnn     As New ADODB.Connection
          Dim Rst     As New ADODB.Recordset
          Set Cnn = CurrentProject.Connection
            
          strSQL = "SELECT   *   FROM   MSysObjects   WHERE   Flags=0   AND   Type=1"
          Rst.Open strSQL, Cnn, adOpenKeyset, adLockReadOnly
          If Not Rst.EOF Then
                  Rst.MoveFirst
                    
                  Do While Not Rst.EOF
                          strSQL = "insert   into   " & Rst!Name & "   select   *   from   " & Rst!Name & "   in   '" & strPath & "'"
                          Cnn.Execute strSQL
                          Debug.Print strSQL
                          Debug.Print Rst!Name
                          Rst.MoveNext
                  Loop
          End If
            
          MsgBox "OK
  End Sub

[ 本帖最后由 wwwbjwww 于 2010-1-30 10:12 编辑 ]

leecg

union all连接

leecg

select * from T1
union all
select * from T2
union all
select * from T3
union all
select * from T4
union all
select * from T5
..................
select * from T70

wwwbjwww

请问大侠,该代码写在何处,好象没看到70个库合并到哪个数据库,是新建一个数据库然后引用代码合并吗

leecg

新建一个查询，改成sql模式，就可以输入了

wwwbjwww

谢谢leecg大侠,以上语句是否可以用变量表示数据表,因为表实在太多了,比如用
for i=1 to 70
form&i&的形式表示1到70的数据表

[ 本帖最后由 wwwbjwww 于 2010-1-29 20:57 编辑 ]

安贤

本人同结构的表.关注中

leecg

原帖由 wwwbjwww 于 2010-1-29 20:55 发表
谢谢leecg大侠,以上语句是否可以用变量表示数据表,因为表实在太多了,比如用
for i=1 to 70
form&i&的形式表示1到70的数据表

access中 的vba试试

但是应该也是相当于
for i=1 to 70
循环先合并生成sql语句，然后再执行

或者你先用循环赋值

之后把这个值手工贴到查询里面

leecg

当然也可以用excel下拉形成所需要的
查询语句，然后组合
再贴入


至于在sql中直接用循环查询，可能可以，
因为在查询语句中甚至可以使用变量等。。。。。。

现在水平没有到，还不会