循環(huán)追加數(shù)據(jù)

apeng

a.mdb中有很多格式相同的表，b.mdb要對(duì)a.mdb中每一個(gè)表進(jìn)行計(jì)算，得到結(jié)果保存。我想知道，怎樣才能實(shí)現(xiàn)逐一讀取a.mdb的表，計(jì)算，保存，再讀取，在計(jì)算。。。。。。a.mdb中每個(gè)表名不一樣

[此貼子已經(jīng)被作者于2006-11-15 18:33:54編輯過]

qlm

鏈接表,最簡單。

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

apeng

我需要的是一個(gè)ADO循環(huán)導(dǎo)入的過程

qlm

幫頂!

andymark

讀取所有表可以 用Alltables集合實(shí)現(xiàn)

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