点击下载此附件

通过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