Abfrage auf Generator

[nahpets]

Sorry, aber was hast Du vor?

in CommandText steht doch duie Zeichenfolge: ' SELECT Gen_ID(Status,0) from rdb$database ' ; Die kann doch niemals = '0' sein.

Also,wenn ich jetzt nicht total auf dem falschen Dampfer unterwegs bin, täte ich mal sowas in der Art probieren:

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;
// Ergebnis auswerten
case SDS_GenPTV.DataSet.Fields[0].AsInteger of
  0 : Button6.Color := clGreen
else
  Button6.Color := clRed; 
end;
// Abfrage schließen
SDS_GenPTV.DataSet.Close;

Button.Font.Color färbt die Beschriftung des Buttons.
Soll sich die Farbe des Buttons ändern, dann ändert man Button.Color. (Da hab' ich micht durch die Eigenschaft Color in der Delphi-7-Hilfe irritieren lassen, sie ist nicht veröffentlicht

[p80286]

Zitat von Rippo:

bekomme die fehlermeldung das es kein gültiger integerwert ist

Dann wird das wohl so sein, bleibt die Frage, was ist es.

Gruß
K-H

[Rippo]

@Nahpets
das bekomme ich wenn ich deine lösung bei mir nehme
Zugriffsverletzung bei Adresse 0******* in Modul 'Project*****.exe'. Lese von Adresse 000000.

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

[frankyboy1974]

hallo,

[OT]

Zitat:

Zugriffsverletzung bei Adresse 0******* in Modul 'Project*****.exe'. Lese von Adresse 000000.

Das du den Namen deines Programms ausblendest, kann ich ja gerade noch verstehen. Warum du aber die (Speicher-)Adresse nicht preisgeben möchtest, bleibt mir verborgen.

[/OT]

mfg