delphi怎样不通过BDE和ODBC直接连接ACCESS数据库

Question

买一张delphi的控件光盘,比如第三方控件大全,
里面有这个控件,

Answer 1

procedure TDataMo.ADOConnection1Login(Sender: TObject; Username,
  Password: String);
var
  tmpstr : string;
begin
  tmpStr:=  r.GetProgramPath;  //从注册表中读mdb的路径
  if tmpStr = '' then Exit;
  ADOConnection1.LoginPrompt := false;
  if not ADOConnection1.Connected then
  begin
    ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'
               +'Data Source='+r.GetProgramPath+'\lib\LayerDB\LayerMngrDB.mdb;'
               +'Mode=Read|Write;'
               +'Persist Security Info=False';
  end;
end;