TADO Query

[DonManfred]

Zitat von value is NULL:

Delphi-Quellcode:

function query(sQuerySQL : string) : string;

begin
oTmpQry := TADOQuery.Create(nil);
try
  try
    oTmpQry.Connection := Conn;
    oTmpQry.CommandTimeout := 5000;
    oTmpQry.SQL.Text := sQuerySQL;
    oTmpQry.Active := True;
    result := oTmpQry.Fields[0].asString;
  except
    on e : exception do begin
      assert := e.message;
      Writeln(assert);
      halt(1);
    end;
  end;
Finally
  oTmpQry.free;
end;
end;

Delphi-Quellcode:

oTmpQry.Active := True;
if oTmpQry.RecordCount > 0 then begin
  oTmpQry.First;
  while not oTmpQry.eof do begin
    wert := oTmpQry.Fields[0].asString;
    // oder
    wert := oTmpQry.FieldByName['feldname'].asString;
    // mach was mit wert ...

    // nächsten Datensatz holen
    oTmpQry.Next;
  end;
end;

so ungefähr!? Oder meinstest Du was anderes?