标题: 关于用代码关闭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 '打开数据库