显示数据库中的所有表及查询

时　间:2012-06-27 07:06:55
作　者:殷小宝   ID：11152  城市：芜湖
摘　要:遍历数据库所有的表及查询,将表及查询以一变量存之,在立即窗口中输出
正　文:

技术要点:遍历数据库所有的表及查询,将表及查询以一变量存之,在立即窗口中输出.

据此可以自定义某表或某查询是否存在的函数.

Public Sub AllTables()

    Dim db As Database

    Dim i As Integer

    Set db = DBEngine.Workspaces(0).Databases(0)

     For i = 0 To db.TableDefs.Count - 1

        a = db.TableDefs(i).Name

        Debug.Print a

    Next

    Set db = Nothing

End Sub

Public Sub AllQuery()

    Dim db As Database

    Dim i As Integer

    Set db = DBEngine.Workspaces(0).Databases(0)

    For i = 0 To db.QueryDefs.Count - 1

        a = db.QueryDefs(i).Name

        Debug.Print a

    Next

    Set db = Nothing

End Sub