VB如何遍历mdb的表名.

ning84

在Access的MDB中,遍历mdb的表名方法是

Sub lss()
  For Each otab In Application.CurrentData.AllTables
    Debug.Print otab.Name
  Next
End Sub

这段语句移植到VB中如何写.谢谢

wudixin96

set   objAcc   =   CreateObject( "Access.Application ")
set objCur=objAcc.OpenCurrentDatabase   "dbfile.mdb "
objAcc.Visible   =   True


类似这样

ning84

wudixin96 发表于 2011-8-22 10:41
set   objAcc   =   CreateObject( "Access.Application ")
set objCur=objAcc.OpenCurrentDatabase   "db ...

谢谢回复.
表的定义?

roych

引用DAO 3.6库，用TableDef来处理：
Sub test()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Set db = DAO.OpenDatabase("E:\MyDB.mdb")
For Each tbl In db.TableDefs
Debug.Print tbl.Name
Next
End Sub
印象中，VB里是可以定义Table对象的。不过现在不玩VB了，所以以上代码仅在Excel里进行了测试。