怎样在A.mdb里打开B.mdb?

zhenghu

怎样在A数据库里打开B数据库?

hi-wzj

用shell函数来打开。

kennylee

用shell好象只能打开.EXE程序.(计算器)Private Sub open_Click()

Dim appAccess As Access.Application

    ' 将字符串初始化为数据库路径。

    Const strConPathToSamples = "f:\销售管理\报价管理.mdb"   

    Set appAccess = CreateObject("Access.Application")

    ' 在 Microsoft Access 窗口中打开数据库。

    appAccess.OpenCurrentDatabase strConPathToSamples

End Sub

zwu009

这是我收集的资料：

   Dim RetVal

   RetVal = Shell("msaccess.exe " + Chr(34) + "c:\my documents\彩票统计.mdb" + Chr(34), vbMaximizedFocus)

   DoCmd.Quit