如何用Delhpi6(5)的ADO连接ACCESS2000O数据库？能否提供源代码？谢谢！

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  sDefaultDB, sConStr: String;
begin
  sDefaultDB := 'e:\test.mdb';    //Access数据库文件路径  sConStr := 'Provider=MSDASQL.1;Persist Security Info=False;' +
             'User ID=admin;Data Source=MS Access Database;' +
             'Extended Properties="DSN=MS Access Database;' +
             'DBQ=' + sDefaultDB + ';FIL=MS Access;MaxBufferSize=2048;' +
             'PageTimeout=5;UID=admin;";Initial Catalog=' + sDefaultDB;  with ADOConnection1 do begin
    Close;
    Connected := False;
    ConnectionString := '';
    ConnectionString := sConStr;
    try
      Connected := True;
    except
      //错误信息
    end;
  end;
end;

Answer 1

{设置连接字符串}
  strConn :=           'Provider=Microsoft.Jet.OLEDB.4.0;';
  strConn := strConn + 'User ID=Admin;';
  strConn := strConn + 'Data Source='
                     + ExtractFilePath(Application.ExeName)
                     + 'BDMS2K.mdb;';
  strConn := strConn + 'Jet OLEDB:Database Password=密码;';
  adocBDMS.Connected         := False;
  adocBDMS.ConnectionString  := strConn;
  adocBDMS.ConnectionTimeout := 5;
  try
    adocBDMS.Connected := True;
  except
    ShowMessage('无法打开数据文件！');
  end;

Answer 2

不用代码，直接设置各倥件的属性
adoconnection1; 属性connectionstring(双击出现设计器)
adotable1           connection:=adoconnetion1
                    tablename:=yourtablename;
                    active:=true;
datasource1          dataset:=adotable1;
dbgrid              datasource:=datasource1
最好找本书看看