如何打开有密码的数据库

zhengjialon

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=0002assword=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编辑过]

zhengjialon

是否要在什么地方指定.MDW文件？

majian77

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

zhengjialon

已OK，谢谢！

majian77

你以上的代码是哪里出现了问题呢,可否解释一下!

majian77

还有，根本不用编写VBA代码也可以打开后台带有密码的数据库（拆分后的数据库）。

zhengjialon

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