ADODB.Recordset auslesen, wie?

[Markus]

Hallo,

ich habe nun ein ADODB.Recordset, in dem das Ergebnis meiner Abfrage gespeichert ist. Aber wie kann ich nun auf einzelne Zellen zugreifen? Ich kann zwar durchgehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   oConn, oRs: variant;
   sQuery: String;
   i,j: integer;
begin
   oConn := CreateOleObject('ADODB.Connection');
   oRs := CreateOleObject('ADODB.Recordset');
   oConn.Open('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=D:\datenbank.mdb');
   sQuery := 'SELECT * FROM Tabelle1';
   oRs.Open(sQuery, oConn, adOpenStatic, adLockReadOnly, adCmdText);

   for i := 0 to oRs.RecordCount - 1 do begin
      for j := 0 to oRs.Fields.Count - 1 do begin
        //Hier möchte ich auf die Zelle [i][j] zugreifen, aber wie?
      end;
   end;
end;

[Jens Schumann]

Hallo,
hier findest Du viele Antworten auf Deine Fragen ADO Objektmodell

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
   oConn, oRs: variant; 
   sQuery: String; 
   i,j: integer; 
begin 
   oConn := CreateOleObject('ADODB.Connection'); 
   oRs := CreateOleObject('ADODB.Recordset'); 
   oConn.Open('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=D:\datenbank.mdb'); 
   sQuery := 'SELECT * FROM Tabelle1'; 
   oRs.Open(sQuery, oConn, adOpenStatic, adLockReadOnly, adCmdText); 
   While Not oRs.EOF do
     begin
     For i:=0 to oRs.fields.Count-1 do // Über alle Felder iterieren.
       aRs.fields.Item[i].Value; // Und den Wert lesen oder was auch immer    
     oRS.MoveNext;
     end; 
end;

[Markus]

Vielen Dank, damit gehts wunderbar :-)