循环追加数据

apeng

a.mdb中有很多格式相同的表，b.mdb要对a.mdb中每一个表进行计算，得到结果保存。我想知道，怎样才能实现逐一读取a.mdb的表，计算，保存，再读取，在计算。。。。。。a.mdb中每个表名不一样

[此贴子已经被作者于2006-11-15 18:33:54编辑过]

qlm

链接表,最简单。

不过可能不是你想要的。。。

apeng

我需要的是一个ADO循环导入的过程

qlm

帮顶!

andymark

读取所有表可以 用Alltables集合实现

Sub AllTables()  '列出所有表
  
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllTables
      If Left((obj.Name), 4) <> "MSys" And Left((obj.Name), 1) <> "~" Then
         Me.LstTable.AddItem "表 :" & obj.Name
        End If
    Next obj
End Sub