如何用ADOConnection连接加密数据库

Question

Dim con As ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=你的密码;Data Source=ACCESS数据库全路径文件名;Persist Security Info=True"
con.Open

Answer 1

呵呵，Access用D5的ADOConnection连接是不能加密码的，有密码的Access库根本就没有办法连接。

Answer 2

'得到连接字符串
    ReadConnectionString = "DBQ=" & App.Path & "\content.mdb;DefaultDir=" & App.Path & "\DataBase;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;Password=123"过年了,即使得不到我所需的答案, 大家开心了也不错.
呵呵.
分算什么东西.快乐才是最重要的!还有一个270分的问题,其实不是技术问题,只是一个常识问题, 此问题每一个小时增加10分,每个U..P者均有分!
http://www.csdn.net/Expert/topic/497/497690.shtm

Answer 3

genphone_ru(票票):
   
    呵呵,你的说法不对喔,我的程序连接的就是带密码的Access库,至今工作的很好.
如果想看看源码,可以给我来信,我发给你.
  
    一点补充: 上面的字符串是采用的 VB字符串的形式, 其中& 标识连接其前后两个字符串. App.Path 标识得到当前运行的路径.  

Answer 4

Wind_LQ(风):按照你的方法，出现错误：“工作组信息文件丢失，或已被其他用户以独占方式打开”　

Answer 5

用ADO连接ODBC就很简单（ACCESS被加密）

Answer 6

tpProgramer(tp编程者):按照你的方法，出现错误：“工作组信息文件丢失，或已被其他用户以独占方式打开”。请你发给我一份连接成功的事例的源码，我的Emai是：[email protected]　

Answer 7

snjun(^O^，其实我不高兴):不用ODBC怎么连？

Answer 8

还没找到办法，要比尔帮忙改改access应该就行

Answer 9

var conn:TAdoConnection;
begin
  conn:=Tadoconnection.Create(self);
  conn.LoginPrompt:=false;
  conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=111111;Data Source=d:\xsgl\xsgl.mdb;Persist Security Info=True';
  conn.open ;
  conn.close;
  conn.free;
end;

Answer 10

其实 Wind_LQ(风) 的方法对，稍微改改就可以了，当然，他的是vb
另外，最简单的办法，在连接对话框里设置连接，然后把连接串copy/paste,OK啦

Answer 11

fontain():Thank you！按你的方法成功了。