请教个弱问题，如何用代码打开另一个MDB！？

sxgaobo

同题，以前做过，现在忘了，不好意思！！！

sxgaobo

谢谢版主的解释！

roych

sxgaobo 发表于 2014-12-27 22:13
谢谢版主的关注！
我在论坛里找到了另种方法（不好意思，忘了是哪位朋友发的）
Dim RetVal

都差不多吧。反正一个是创建组件去打开文件，另一个是直接调用程序去打开文件。
如果说有什么区别的话，组件创建后，如果不写上app.Quit，那么每次都会创建一个组件，当组件比较多的时候会影响到性能（这个可以从任务管理器里查看）。

sxgaobo

roych 发表于 2014-12-27 09:48
加上New试试？
Dim appAcc As New Access.Application
appAcc.OpenCurrentDatabase "D:\ABC\A1.mdb"最好 ...

谢谢版主的关注！
我在论坛里找到了另种方法（不好意思，忘了是哪位朋友发的）
Dim RetVal
RetVal = Shell("msaccess.exe " + Chr(34) + "D:\A1.mdb" + Chr(34), vbMaximizedFocus)
两种相比有什么不同和优劣啊 ？！

roych

加上New试试？
Dim appAcc As New Access.Application
appAcc.OpenCurrentDatabase "D:\ABC\A1.mdb"最好加上appAcc.visible=true，以便可视化。
另外，这个不适合打开包含工作组文件的mdb文件，如果需要打开工作组的，建议使用workspace

sxgaobo

admin 发表于 2014-12-26 20:43
Dim appAcc As Access.Application
  appacc.OpenCurrentDatabase "c:\db1.mdb"

谢谢 ！可是不行啊！！！？？？
Private Sub Command0_Click()
Dim appAcc As Access.Application
appAcc.OpenCurrentDatabase "D:\ABC\A1.mdb"
End Sub

admin

Dim appAcc As Access.Application
  appacc.OpenCurrentDatabase "c:\db1.mdb"