Abfrage auf Generator

**Rippo**

Hallo

ich habe eine abfrage auf einen generatoren erstellt :

SDS_GenPTV.DataSet.CommandText := ' SELECT Gen_ID(Status,0) from rdb$database ' ;
klappt alles

meine frage also

wie schaffe ich es dass bei wenn bei der abfrage eine zahl die höher ist als 0 kommt, dass der button farblich markiert wird und wenn man denn zurücksetzt auf 0 dann wieder in eine andere farbe markiert wird??

danke im voraus

**mkinzler**

Wie kann einen Abfrage farbig sein?

Du musst das in Delphi anhand des zurückgegebenen Wertes entscheiden.

**OrNEC**

markieren

Delphi-Quellcode:

			if StrToInt(SDS_GenPTV.DataSet.CommandText) = 0 then

  Button1.Color := clRed

else Button1.Color := clBlue;

**Rippo**

bekomme die fehlermeldung das es kein gültiger integerwert ist

**Klaus01**

.. was steht denn in "SDS_GenPTV.DataSet.CommandText" drin?

Grüße
Klaus

**OrNEC**

Dann muss wohl StrToInt weg.

In CommandText steht das auszuführende Statement.
Man sollte dieses einfach mal ausführen und dann das Ergebnis abfragen. Ist das 0 dann diese Farben ansonsten jene.

Das Statement selbst läßt keinen Rückschluss auf das Ergebnis zu.

**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.

Abfrage auf Generator

Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

AW: Abfrage auf Generator

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 AW: Abfrage auf Generator 2. Feb 2016, 13:26 Wie kann einen Abfrage farbig sein? Du musst das in Delphi anhand des zurückgegebenen Wertes entscheiden. Markus Kinzler
	Zitat

OrNEC Registriert seit: 6. Nov 2009 493 Beiträge FreePascal / Lazarus	#3 AW: Abfrage auf Generator 2. Feb 2016, 13:28 markieren Delphi-Quellcode: if StrToInt(SDS_GenPTV.DataSet.CommandText) = 0 then Button1.Color := clRed else Button1.Color := clBlue;
	Zitat

Rippo Registriert seit: 10. Feb 2015 75 Beiträge Delphi 10 Seattle Professional	#4 AW: Abfrage auf Generator 2. Feb 2016, 13:43 bekomme die fehlermeldung das es kein gültiger integerwert ist
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.757 Beiträge Delphi 10.4 Sydney	#5 AW: Abfrage auf Generator 2. Feb 2016, 13:44 .. was steht denn in "SDS_GenPTV.DataSet.CommandText" drin? Grüße Klaus Klaus
	Zitat

OrNEC Registriert seit: 6. Nov 2009 493 Beiträge FreePascal / Lazarus	#6 AW: Abfrage auf Generator 2. Feb 2016, 13:44 Dann muss wohl StrToInt weg.
	Zitat

nahpets (Gast) n/a Beiträge	#7 AW: Abfrage auf Generator 2. Feb 2016, 13:47 In CommandText steht das auszuführende Statement. Man sollte dieses einfach mal ausführen und dann das Ergebnis abfragen. Ist das 0 dann diese Farben ansonsten jene. Das Statement selbst läßt keinen Rückschluss auf das Ergebnis zu.
	Zitat

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#8 AW: Abfrage auf Generator 2. Feb 2016, 14:09 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 Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

Rippo Registriert seit: 10. Feb 2015 75 Beiträge Delphi 10 Seattle Professional	#9 AW: Abfrage auf Generator 2. Feb 2016, 14:16 @Nahpets das bekomme ich wenn ich deine lösung bei mir nehme Zugriffsverletzung bei Adresse 0***** in Modul 'Project***.exe'. Lese von Adresse 000000.
	Zitat