ADO连接Access2000数据库的问题

Question

ADOConnection1.ConnectionString 中已经包含'UserName=asd;Passward=dss'了，直接
ADOConnection1.Open;
或者去掉'UserName=asd;Passward=dss'，使用ADOConnection1.Open('asd','dss');—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

你直接用
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'Data Source=D:\testdb1.mdb;' +'Persist Security Info=False;' +
'UserName=asd;Passward=dss';
就可以了

Answer 2

有个问题似乎带参数的语句是要加上 ‘:’ 的吧，
'UserName=：asd;Passward=：dss';
另外，access的密码似乎可以在ADO向导的最后一项里填写

Answer 3

Access在“设置数据库密码”里设置密码，连接串里应该是
Jet OLEDB:Database Password=12345

Answer 4

这样做，肯定行，我已经试通了  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'User ID=Admin;' +
    'Data Source=C:\My Documents\db1.mdb;' +
    'Mode=ReadWrite;Extended Properties="";' +
    'Jet OLEDB:System database="";' +
    'Jet OLEDB:Registry Path="";' +
    'Jet OLEDB:Database Password=口令;' +  //HERE
    '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';