Office中国论坛/Access中国论坛

标题: 循环追加数据 [打印本页]

作者: apeng 时间: 2006-11-16 02:30
标题: 循环追加数据
a.mdb中有很多格式相同的表，b.mdb要对a.mdb中每一个表进行计算，得到结果保存。我想知道，怎样才能实现逐一读取a.mdb的表，计算，保存，再读取，在计算。。。。。。a.mdb中每个表名不一样

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

作者: qlm 时间: 2006-11-16 02:38
链接表,最简单。

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

作者: apeng 时间: 2006-11-16 03:11
我需要的是一个ADO循环导入的过程

作者: qlm 时间: 2006-11-22 06:07
帮顶!

作者: andymark 时间: 2006-11-22 07:23
读取所有表可以用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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)