请问：怎样在Delphi中打开带有数据库密码的Access数据库？

Question

str+="Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;";
        str+="Data Source="+ExtractFilePath(ParamStr(0))+"fingerprint.mdb;Mode=Share Deny None;";
        str+="Extended Properties='';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';";
        str+="Jet OLEDB:Database Password=";
        str+=password;
        str+=";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;";
        str+="Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;";
        str+="Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;";
        str+="Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;";
        str+="Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        adoCon->ConnectionString=str;

Answer 1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1204932足够了。

Answer 2

编辑数据库软件时，为了数据安全，往往需要在数据库里加入密码，打开时就需要密码才能浏览，但是当我们在程序里调用时也需要不时的输入密码，这就照成了不遍，所以利用以下办法，输入密码后才打开数据库：
Session.AddPassword('abc');{发送的密码}
Table1.Open;