关于用代码关闭MDB文件的问题

qdjqx

　请问，如何在一个打开的MDB文件中，用代码关闭另一个打开的MDB文件，请指教，谢谢！

一点通

Dim MyXL As Object

Set MyXL = GetObject("D:\db1.mdb")  '将D:\db1.mdb修改为你的路径及文件名
MyXL.Application.Quit
Set MyXL = Nothing

qdjqx

谢谢指导。

qdjqx

谢谢指导，但是，使用时还是不能在打开的MDB文件中关闭另一个已经打开的MDB文件，如何使用相对路径。

一点通

Dim MyXL As Object
Dim strDB As String     ' 将字符串初始化为数据库的路径。
strDB = CurrentProject.Path & "\db2.mdb"

Set MyXL = GetObject(strDB)
MyXL.Application.Quit
Set MyXL = Nothing

qdjqx

再次请教，应用代码后，两个打开的MDB文件全部关闭，并退出ACCESS系统了，我的意思是关闭其中一个打开的MDB文件。谢谢!

fan0217

Dim appAccess As Access.Application
Dim strDB As String

strDB = CurrentProject.Path & "\db2.mdb"

    Set appAccess = CreateObject("Access.Application")
        appAccess.OpenCurrentDatabase strDB '打开数据库
   
   
        appAccess.CloseCurrentDatabase '关闭数据库
    Set appAccess = Nothing

xlyw

很有启发