Office中国论坛/Access中国论坛

标题: 如何打开有密码的数据库 [打印本页]

作者: zhengjialon 时间: 2003-1-18 00:15
是否要在什么地方指定.MDW文件？

作者: zhengjialon 时间: 2003-1-18 01:26
标题: 如何打开有密码的数据库
Private Sub 命令0_Click()
On Error GoTo 11

Dim cn As New ADODB.Connection
Dim strFilename As String

strFilename = "C:\Documents and Settings\Administrator\My Documents\mdw\原料仓库.mdb"

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open strFilename & ";Use ID=0002

assword=8888;"

Exit Sub

11: MsgBox Err.Description & Err.Number

End Sub

'以上代码提示找不到ISAM,其中“原料仓库.mdb”是被用了安全机制工作组信息文件的(可以换成任一有
'或没有安全机制的MDB文件)，User=0002,Password=8888
'是正确的用手工输入可以打开不知如何改上面的程式才可用？

[此贴子已经被zhengjialon于2003-1-17 17:26:15编辑过]

作者: majian77 时间: 2003-1-22 00:02
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open strFilename & ";Use ID=0002

assword=8888;"
之间加上cn.Properties("Jet OLEDB:System database")= _
"C:\Documents and Settings\Administrator\My Documents\mdw\system.mdw" '安全机制工作组信息文件
不知是否可行,没有测试.

作者: zhengjialon 时间: 2003-1-22 00:05
已OK，谢谢！

作者: majian77 时间: 2003-1-22 00:12
你以上的代码是哪里出现了问题呢,可否解释一下!

作者: majian77 时间: 2003-1-22 00:26
还有，根本不用编写VBA代码也可以打开后台带有密码的数据库（拆分后的数据库）。

作者: zhengjialon 时间: 2003-1-22 01:07
以前的代码不能打开，因为没有指定MDW文件，
“根本不用编写VBA代码也可以打开后台带有密码的数据库（拆分后的数据库）。”是什么意思，用手工输入吗，我要的是打开工作组文件里的密码，不是你说的密码。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)