Query aus einem Dataset

[ibp]

so:

Delphi-Quellcode:

//...
qryWerte.SQL.Add('select * from table 1 where feld1 = 1000');
qryWerte.Open;  // datenmenge öffnen
if not qryWerte.eof then  // daten vorhanden ?
begin
  qryWerte.first;  // erster datensatz
  while not qryWerte.eof do  // solange daten vorhanden
  begin
    wertfeldl:=qryWerte.FieldByName('feld1').AsInteger; // wert aus datensatz lesen
    qryWerte.next; // nächster datensatz
  end; // while
end; // if
//...