用代碼打開Access文件的兩種方法

1、只需打開,不需控制打開后的文件:
    Application.FollowHyperlink "D:\db1.mdb"
    2、打開后可控制所打開數(shù)據(jù)庫及其中的對象:
    '當指向 Application 對象的變量超出范圍時，它所表示的 Microsoft access 實例也將關閉。所以，必須在模塊級說明這個變量。
    Dim appAccess As access.Application
    Sub CreateForm()
    '打開D:\DB1.MDB文件并創(chuàng)建一個窗體之后關閉
    Const strConPathToSamples = "D:\"
    Dim frm As Form, strDB As String
    '把文件路徑賦給變量
    strDB = strConPathToSamples & "db1.mdb"
    ' 創(chuàng)建一個新的access對象
    Set appAccess = CreateObject("access.Application")
    ' 打開指定的access文件
    appaccess.OpenCurrentDatabase strDB
    '用下面這句可顯示被打開的文件,否則不顯示
    appaccess.Visible = True
    ' 創(chuàng)建新窗體
    Set frm = appaccess.CreateForm
    ' 保存新窗體
    appaccess.DoCmd.Save , "NewForm1"
    ' 關閉access文件
    appaccess.CloseCurrentDatabase
    Set appaccess = Nothing
    End Sub