用VBA打开另一个access数据库的方法

时　间:2012-03-09 10:10:52
作　者:杜超   ID：16058  城市：江阴
摘　要:用VBA打开另一个Access数据库的方法
正　文:

Dim db2_path As String '另外一个数据库文件的路径
db2_path = CurrentProject.Path & "\db2.mdb" '要求打开的文件相对路径
Dim mypassword As String '将要打开数据库的密码
mypassword = "123"
Dim new_db '用于创建文件
Set new_db = CreateObject("access.application") '创建一个新的ACCESS文件
new_db.OpenCurrentDatabase db2_path, False , mypassword '在新文件中打开数据库文件
'MsgBox "[db2] 的 [窗体1] 已经打开,本数据库即将关闭!" '提示
'new_db.UserControl = True '用户激活新打开的文件
'new_db.DoCmd.OpenForm "窗体1" '打开指定的窗体
'Application.Quit '关闭当前的文件


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店