读取指定路径的数据库

         通过DAO方法中的OpenDatabase可以读取指定位置的数据库，该方法实际上并不在Access窗口中打开第二个数据库，而是返回一个表示第二个数据库的Database变量，其具体语法：

       OpenDatabase([打开文件完整路径])

        如果需要获取数据库中窗体或者报表，需要使用数据库对象的Containers属性：

        Containers([容器类型])

        其中，窗体的容器类型为Forms,报表的容器类型为Reports。

图示：

源   码:

'获取当前数据库的路径

Private Sub cmd_数据库_Click()

    On Error GoTo 没有文件

    '定义DAO数据库对象变量

    Dim db As DAO.Database

    '将打开的数据库赋值给变量

    '   Set db = OpenDatabase(CurrentProject.Path & '\示例.accdb')

    Set db = OpenDatabase(CurrentProject.Path & '\示例.accdb')

    '输出打开的数据库的路径及其包含窗体个数

    '    MsgBox db.Name & '  包含窗体个数为：' & db.Containers _

         '           ('Forms').Documents.Count

    MsgBox db.Name & '  包含' & Chr(10) & _

           '表的个数为：' & db.Containers('Tables').Documents.Count & Chr(10) & '' _

         & '窗体的个数为：' & db.Containers('forms').Documents.Count

    '    MsgBox db.Name & '  包含模块的个数为：' & db.Containers _

         '           ('Modules').Documents.Count

    '    MsgBox db.Name & '  包含报表个数为：' & db.Containers _

         '           ('Reports').Documents.Count

    '关闭数据库，释放数据库对象变量

    db.Close: Set db = Nothing

    If 0 Then

没有文件:

        MsgBox '指定文件不存在！'

    End If

End Sub