如何用ADOConnection1连接一个带有密码的ACCESS数据库文件

Question

connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password=ggggg;Data Source=F:\db1.mdb;Mode=ReadWrite;Persist Security Info=True'

Answer 1

不好意思，上面的缺少了用户：
connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Password=ggggg;User ID=ggggghh;Data Source=F:\db1.mdb;Mode=ReadWrite;Persist Security Info=True'

Answer 2

ADOConnection.Connectstirng 
选择：MS Jet 4.0 OLE DB Provider，下一步，选择你的Access数据库，去除“空白密码”，输入你的密码，选择保存密码，Ok.

Answer 3

tygh2000(峰) 不行的
 提示是无法启动程序
 关注
 我用ODBC再ADO就可以，我也在找方法

Answer 4

在连接串中的passwore 和 userid中添上就可以了

Answer 5

在数据库连接属性的所有页编辑Password的属性值即可

Answer 6

多嘴一句：把loginprompt设为false

Answer 7

ADOConnection1.Connected := false;
path:=ExtractFilePath (ParamStr(0))+'db1.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=;Data Source='+path+';Persist Security Info=False';
ADOConnection1.Connected := true;
adoquery1.Open ;

Answer 8

再多事一下：
try
         ADOConnection.Connected       :=False;
         ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='
                                        +GetCurrentDir+'\Data.mdb'
                                        +';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'
                                        +'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine '
                                        +'Type=5;Jet OLEDB:Database Locking Mode=0;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';
        ADOConnection.Connected :=True;
    Except
        ADOConnection.Connected :=False;
        MessageDlg('无法找到数据库文件Data.Mdb！',mtError,[MBOK],0);
    end;zhenkong(方舟) (  ) 信誉：100  2002-05-22 11:24:00  得分:0  
  多嘴一句：把loginprompt设为false

Answer 9

To:lanbada(lanbada) 
    不好意思，我就是将 楼三wolfAone(¤一步一步网上爬¤) 的过程转化成了代码，没经过测试，可以参考楼三wolfAone(¤一步一步网上爬¤) 的！