Abfrage auf Generator

[nahpets]

Und wo genau?

Wie wäre es, wenn Du uns mal den gesamten Quelltext zur Verfügung stellst?
Von welchem Typ ist denn z. B. SDS_GenPTV?

Delphi-Quellcode:

// auszuführendes SQL-Statement zuweisen
SDS_GenPTV.DataSet.CommandText := ' SELECT Gen_ID(Status,0) from rdb$database ' ;
// Abfrage öffnen
SDS_GenPTV.DataSet.Open;
if not SDS_GenPTV.DataSet.Eof then begin
  // Ergebnis auswerten
  case SDS_GenPTV.DataSet.Fields[0].AsInteger of
    0 : Button6.Color := clGreen
  else
    Button6.Color := clRed;
  end;
end else begin
  ShowMessage('Ups, kein Ergebnis!');
end;
// Abfrage schließen
SDS_GenPTV.DataSet.Close;