[VB]获取Access数据库的全部对象

最新推荐文章于 2024-12-01 06:31:39 发布

miaozk2006

最新推荐文章于 2024-12-01 06:31:39 发布

阅读量409

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82422254

这篇博客分享了如何使用VB来获取Access数据库中的全部对象，包括表、查询、窗体、报表等。通过这段代码，开发者可以方便地进行数据库对象的管理和操作。

一个函数，获取Access数据库的全部对象。

Public Function GetAllinDB()
    Dim i As Integer, tdf As TableDef, qdf As QueryDef
    Debug.Print "--------------------所有表-------------"

    For i = 0 To CurrentDb.TableDefs.Count - 1
        Debug.Print CurrentDb.TableDefs(i).Name
    Next i
    Debug.Print "--------------------所有查询-------------"

    For i = 0 To CurrentDb.QueryDefs.Count - 1
        Debug.Print CurrentDb.QueryDefs(i).Name
    Next i
    Debug.Print "--------------------所有窗口-------------"

    For i = 0 To CurrentProject.AllForms.Count - 1
        Debug.Print CurrentProject.AllForms.Item(i).Name
    Next i
    Debug.Print "--------------------所有模块-------------"

    For i = 0 To CurrentProject.AllModules.Count - 1
        Debug.Print CurrentProject.AllModules.Item(i).Name
    Next i
    Debug.Print "--------------------所有报表-------------"

    For i = 0 To CurrentProject.AllReports.Count - 1
        Debug.Print CurrentProject.AllReports.Item(i).Name
    Next i
End Function

转自：枕善居