CreateOleObject('ADODB.Connection')怎么用?

Question

var
  Intf: IDispatch;
begin
  Intf := CreateOleObject('ADODB.Connection');
  用Intf进行操作...
  Intf := nil;
end;

Answer 1

  private
    { Private declarations }
    adoc : Variant;
    adocmd : Variant;
    ador : Variant;procedure TForm1.btnConnectionClick(Sender: TObject);
begin
  adoc := CreateOleObject('ADODB.Connection');
  adoc.Open ('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=F:\Leewei\Books\Delphi5\Book3\Datas\Northwind.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False');
end;procedure TForm1.btnOpenTableClick(Sender: TObject);
begin
  ador := CreateOleObject('ADODB.RecordSet');
  ador.ActiveConnection := adoc;
  ador.Open('Select * from め', adoc, adOpenStatic, adLockOptimistic, adCmdText); 
  fillData;
end;

Answer 2

private
    { Private declarations }
    adoc : Variant;
    adocmd : Variant;
    ador : Variant;procedure TForm1.btnConnectionClick(Sender: TObject);
begin
  adoc := CreateOleObject('ADODB.Connection');
  adoc.Open ('master', 'sa', '');
end;procedure TForm1.btnOpenTableClick(Sender: TObject);
begin
  ador := CreateOleObject('ADODB.RecordSet');
  ador.ActiveConnection := adoc;
  ador.Open('Select * from tablename'); 
  //访问字段
  ador.Fields['xxxxx'].value;
end;