ADODB.Recordset auslesen, wie?

[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;