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

Question

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

Answer 1

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

Answer 2

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

Answer 3

记错了，应该用DataBase Password

Answer 4

不好意思，上面贴的是VB代码ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=yourpassword';

Answer 5

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项得到密码

Answer 6

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

Answer 7

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';