标题: 关于用代码关闭MDB文件的问题 [打印本页] 作者: qdjqx 时间: 2006-3-29 05:58 标题: 关于用代码关闭MDB文件的问题 请问，如何在一个打开的MDB文件中，用代码关闭另一个打开的MDB文件，请指教，谢谢！作者: 一点通 时间: 2006-3-29 19:17
Dim MyXL As Object
Set MyXL = GetObject("D:\db1.mdb") '将D:\db1.mdb修改为你的路径及文件名
MyXL.Application.Quit
Set MyXL = Nothing作者: qdjqx 时间: 2006-3-29 21:31
谢谢指导。作者: qdjqx 时间: 2006-3-30 17:17
谢谢指导，但是，使用时还是不能在打开的MDB文件中关闭另一个已经打开的MDB文件，如何使用相对路径。作者: 一点通 时间: 2006-3-30 18:21
Dim MyXL As Object
Dim strDB As String ' 将字符串初始化为数据库的路径。
strDB = CurrentProject.Path & "\db2.mdb"
Set MyXL = GetObject(strDB)
MyXL.Application.Quit
Set MyXL = Nothing作者: qdjqx 时间: 2006-3-30 23:14
再次请教，应用代码后，两个打开的MDB文件全部关闭，并退出ACCESS系统了，我的意思是关闭其中一个打开的MDB文件。谢谢!作者: fan0217 时间: 2006-3-31 04:19
Dim appAccess As Access.Application
Dim strDB As String
strDB = CurrentProject.Path & "\db2.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB '打开数据库