为何Acess2000数据库加上密码后,ADO打不开(100分)

  • 主题发起人 主题发起人 lhony
  • 开始时间 开始时间
L

lhony

Unregistered / Unconfirmed
GUEST, unregistred user!
近日用Delphi5开发一数据库程序,使用Acess2000数据库,选用Adoconnection,OLE DB采用
Microsoft Jet 4.0 OLE DB Provider,数据库没有加密码时,能够连上,但加上密码时,总是
报错,错误提示如下:初始化提供者发生错误,测试连接失败。无法启动应用程序。工作组
信息丢失,或是已被其它用户以独占方式打开。
 
你的密码加的不是地方。
 
请看:

//连接数据库
strConnect:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Persist Security Info=False;'+
'Data Source='+AppPath+'Data/Rule.mdb;'+
'Mode=ReadWrite;'+
'Jet OLEDB:Database Password=zzzzzzz'; //这才是数据库密码
With AConnection do
Begin
ConnectionString := strConnect ;
Connected := True;
End;
 
Var Temp:String;
begin
_syspath:=ExtractFilePath(Application.ExeName);
Temp:=Temp+'Provider=Microsoft.Jet.OLEDB.4.0;';
Temp:=Temp+'Password="";';
Temp:=Temp+'Data Source='+_SysPath+'Data.mdb;';
Temp:=Temp+'Jet OLEDB:Database Password=你的密碼;';
Adocon.ConnectionString:=Temp;
Try
adocon.Open;
Except
MessageBox(Application.handle,'數據庫路徑不正確或者丟失!!!',pchar('信息窗口'),mb_IconInformation+mb_OK);
Application.Terminate ;
End;
 
多人接受答案了。
 
后退
顶部