如何连接带密码的access数据库

Question

如何连接带密码的access数据库？

Answer 1

我这里有段原代码，很好用的，就算程序拿到其它机，都可以直接运行，不用手动设置ODBC  getdir(0,APath);
  APath:=APath+'\数据库名.mdb';
  strCon:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
    +APath+';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'
    +'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="ACCESS密码";Jet OLEDB:Engine Type=5;'
    +'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'
    +'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'
    +'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';
  with ADOCon do
  begin
    if Connected then Connected:=false; // 关闭连接
    ConnectionString :=strCon;          // 设置连接
    Connected:=true;
    ADO.Connection :=ADOCon;
    ADO.Active:=true;          // 激活连接
  end;  //end with呵呵，好用记得给分喔