用代码打开外部MDB的几种方法

andymark

方法1：
   
    Dim AccessPath As String
    Dim DbPath As String

    AccessPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"
    DbPath = "C:\db1.mdb"
    Shell AccessPath & " " & DbPath

方法2：
   
    Dim DbPath As String

    DbPath = "C:\db1.mdb"
    Application.FollowHyperlink DbPath

方法3：
     
     Private Declare Function ShellExecute Lib "shell32.dll" _
                Alias "ShellExecuteA" _
                (ByVal hwnd As Long, _
                ByVal lpOperation As String, _
                ByVal lpFile As String, _
                ByVal lpParameters As String, _
                ByVal lpDirectory As String, _
                ByVal nShowCmd As Long) As Long

    Sub OpenBd()
    Dim DbPath As String

    DbPath = "C:\db1.mdb"
    ShellExecute 0&, vbNullString, DbPath, vbNullString, vbNullString, 0&
   
    End Sub

方法4：
   
   Dim DbPath As String
   Dim oApp As Access.Application

    DbPath = "c:\db1.mdb"
   
    Set oApp = New Access.Application
   
    With oApp
        
        .Visible = True
        
        .OpenCurrentDatabase DbPath
        
        .DoCmd.OpenForm "MyForm"
        
        .DoCmd.OpenReport "MyReport", acViewPreview
        
        .Run "MyFuncion"
    End With
   
    Set oApp = Nothing

[此贴子已经被作者于2006-11-6 14:16:41编辑过]

好学

andymark版主的都是好方法!收藏了。

zhycfb2006

能告诉一下具体的操作过程吗？

谢谢！

c101

謝謝