如何用ado连接加密的ACCESS数据库？

Question

我的程序是ADO连接ACCESS数据库的，在没有加密之前一切都正常，但是加密了之后，我修改了ado的连接参数，输入了密码，可是就连不上！提示“工作组信息文件丢失，或是已被其他以独占方式打开”而我检查不出到底哪里有问题！

Answer 1

些密码在所有－》Jet OLEDB:Database Password
连接中把保存密码钩上

Answer 2

当我们使用ADO控件的CONNECTIONSTRING属性时候,弹出自动连接字符串配置向导.共四个页面(PROVIDER\CONNECTION\ADVANCED\ALL),只要将该向导翻到ALL页面,然后在Jet OLEDB:Database Password项目添上ACCESS数据库密码就可以.而CONNECTION的页面只需要选择一下数据库所在的目录就可以了(DELPHI5需在该页输入ACCESS数据库密码,DELPHI6不需要,空着就可以了)

Answer 3

还有一个方法，我试了可以用的
ADO控件组一般都用来连接ACCESS数据库的。在数据库没有设密码的时候，用CONNECTSTRING就可以实现连接，但是如果有密码的，这时这个属性就不能用了，无论你怎么设置都无法连接！
   该怎么解决呢？我问了一下朋友，对有密码的ACCESS数据库如果用ADO只能动态设定，而且这里面的参数很复杂，其实并不是设的东西负责而是这个语句很繁琐！
下面我把代码贴出，以供参考！const{TADOConnection 连接数据库的参数}  ADOLinkString ='Provider=Microsoft.Jet.OLEDB.4.0;'          + 'Password=%s;'     //用户工作组(*.mdw)密码          + 'User ID=%s;'     //用户工作组(*.mdw)用户名Admin          + 'Data Source=%s;'    //数据库文件(*.mdb)位置          + 'Persist Security Info=True;'          + 'Mode=ReadWrite;'               // 数据库打开方式          + 'Extended Properties=""'       //默认值为空          + 'Jet OLEDB:System Database=""' //用户工作组文件          + 'Jet OLEDB:Registry Path=""'   //注册路径          + 'Jet OLEDB:Database Password=%s;' //数据库密码          + 'Jet OLEDB:Engine Type=1;'          + 'Jet OLEDB:Database Locking Mode=1;'          + 'Jet OLEDB:Global Partial Bulk Ops=2;'          + 'Jet OLEDB:Global Bulk Transactions=1;'          + 'Jet OLEDB:New Database Password=%s;'    //?密码          + 'Jet OLEDB:Create System Database=False;'          + 'Jet OLEDB:Encrypt Database=False;'          + 'Jet OLEDB:Don''t Copy Locale on Compact=False;'          + 'Jet OLEDB:Compact Without Replica Repair=False;'          + 'Jet OLEDB:SFP=False';var mainDBPath,    mdwPassword,    mdwUserID,    mdbDataSource,    mdbUserID,    mdbPassword,    mdbNewPassword:string;begin  mainDBPath :=ExtractFilePath(ParamStr(0));  mdwPassword :='';  mdwUserID :='Admin';  mdbDataSource :=mainDBPath+'data\hongyu.mdb';  mdbUserID :='Admin';  mdbPassword :='123456';  mdbNewPassword :='';  //－－－这样设置完后再连接到控件的属性上就可以了！－－－//    with ADOQry_User do    begin    {以上是给变量赋值}      Active :=False;      ConnectionString :=Format(ADOLinkString, [mdwPassword,  mdwUserId,                  mdbDataSource, mdbPassword, mdbNewPassword]);{初始连接参数}      end;end;

Answer 4

to:Roc_fu(专业菜鸟) 
非常感谢你！头痛了好久，终于从你这儿找到了解决的方法，谢谢，请楼主尽快给分！