xp professional 2002 sp2 连接access时出错：未找到提供程序,该程序可能未正确安装。(50)

ADOCon_Eng: TADOConnection;procedure TForm1.Button1Click(Sender: TObject);var ConStr: string;begin ConStr := ExtractFilePath(Application.ExeName) + 'openenglish.mdb'; ADOCon_Eng.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ConStr + ';' +'Jet OLEDBatabase Password=DZDSoft;Persist Security Info=true'; Memo1.Lines.Clear; try try ADOCon_Eng.Connected := true; Memo1.Lines.Add('用 Provider=Microsoft.Jet.OLEDB.4.0 连接方式,数据库连接成功！'); except on e: exception do begin Memo1.Lines.Add('用 Provider=Microsoft.Jet.OLEDB.4.0 连接方式，出现错误：'+ e.Message); end; end; finally ADOCon_Eng.Close; end;end;

如题。。

这问题写得也太简单了吧不过你可以先检查一下连接串，对比配置连接数据库的信息，要么把你的连接串发出来看看

procedure TForm1.Button1Click(Sender: TObject);var ConStr: string;begin ConStr := ExtractFilePath(Application.ExeName) + 'openenglish.mdb'; ADOCon_Eng.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ConStr + ';' +'Jet OLEDBatabase Password=DZDSoft;Persist Security Info=true'; Memo1.Lines.Clear; try try ADOCon_Eng.Connected := true; Memo1.Lines.Add('用 Provider=Microsoft.Jet.OLEDB.4.0 连接方式,数据库连接成功！'); except on e: exception do begin Memo1.Lines.Add('用 Provider=Microsoft.Jet.OLEDB.4.0 连接方式，出现错误：'+ e.Message); end; end; finally ADOCon_Eng.Close; end;end;

直接点connectstring手动联试试，如果联得通，那估计是string的问题，如果手动都联不通，那检查一下其它问题吧。

在有的机器上死活不行。在其他机器上就可以。

更新或安装一下ado(MDAC_TYP.EXE)2.7试试

多人接受答案了。