两种方法用VBA打开非*.mdb扩展名的access数据库

时　间:2007-10-18 13:26:49
作　者:Trynew   ID：42  城市：广州
摘　要:两种方法用VBA打开非*.mdb扩展名的access数据库
正　文:

来源：Access中国 作者： Trynew

第一种方法：
用Shell命令（calc.Mdb改名为calc.txt）：
Shell "msaccess c:\windows\desktop\calc.txt"

第二种方法：

也可以用Access.Application对象调用：
' 在模块的声明节中包含以下语句。
Dim appAccess As Access.Application
'(appAccess为模块级变量，详见帮助里OpenCurrentDatabase 方法示例)
' 将字符串初始化为数据库的路径。
Dim strDB As String
strDB = CurrentProject.Path & "\calc.txt"
' 创建 Microsoft Access 的实例。
Set appAccess = _
CreateObject("Access.Application")
' 在 Microsoft Access 窗口中打开数据库。
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True

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