怎样用ADO连接一个加了密的ACCESS数据库

                            
看到下面这篇文章,但试过提示:   
  “指定的初始化字符串不符合   OLE   DB   规定!”  
   
   
   
   
  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(application.ExeName);  
      mdwPassword   :='';  
      mdwUserID   :='Admin';  
      mdbDataSource   :=mainDBPath+'ysxt.mdb';  
      mdbUserID   :='Admin';  
      mdbPassword   :='123';  
      mdbNewPassword   :='';     //---这样设置完后再连接到控件的属性上就可以了!---//  
      with   ADOtable1   do  
      begin         {以上是给变量赋值}  
          close;  
          ConnectionString   :=Format(ADOLinkString,   [mdwPassword,mdwUserId,mdbDataSource,   mdbPassword,   mdbNewPassword]);{初始连接参数}  
          open;  
      end;  
  end;

查看回复