怎样用ado联结带有密码的access数据库

[newair]

怎样用ado联结带有密码的access数据库

[sysu]

连接串设置：
Provider=Microsoft.Jet.OLEDB.4.0;Password=123;Data Source=D:\Test.mdb;Persist Security Info=True

[footballboy]

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:DataBase Password=yourpassword;"

[sysu]

记错了，应该用DataBase Password

[footballboy]

不好意思，上面贴的是VB代码

ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=yourpassword';

[PaPaCong]

Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=D:\_网络扑手\wlbs.mdb;Persist Security Info=False;Jet OLEDB:Database Password=HuangYong

也可以在adoconnection中database password项得到密码

[boyandman]

可以将ADOConnection的LoginPrompt的属性设为false试试

[chwdong]

mima :='AAAAA';//密码
strCon:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source='+strpath+';'+
'Mode=Share Deny None;Extended Properties="";'+
'Locale Identifier=2052;Persist Security Info=False;'+
'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+mima+';'+
'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';