＃怎样用ACCESS打开无“扩展名”的access数据库？＃

eio

不能识别！

zhengjialon

打开之前首先把名称改掉（加上扩展名）

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

[此贴子已经被Trynew于2002-12-7 13:31:39编辑过]

eio

例如密码是 3216888

lymin

先收藏备用

changweiren

收藏代码,谢谢!