Datenbanken + TextBoxen

[ConTaCt]

Hi

Ich habe eine Datenbank, und will mir gewisse Werte in Textboxen ausgeben lassen

z.b.
Ich habe Eine Datenbank mit "Vorname", "Nachname", "Klasse" und "Geschlecht"
(Es sind vorhanden: 3 Männliche, 4 Weibliche Schüler

die Datenbank wird mir in einem Grid ausgegeben!

Unter dem Grid sind 3 TextBoxen mit folgenden Namen:

- Schüler Gesamt
- Schüler Männlich
- Schüler Weiblich

Jetzt sollte in den Textboxen folgendes stehen:

Schüler Gesamt: 7
Schüler Männlich: 3
Schüler Weiblich: 4

wie schreibt man das??

[joachimd]

Zitat:

Zitat von ConTaCt

Ich habe Eine Datenbank mit "Vorname", "Nachname", "Klasse" und "Geschlecht"
(Es sind vorhanden: 3 Männliche, 4 Weibliche Schüler
...
Schüler Gesamt: 7
Schüler Männlich: 3
Schüler Weiblich: 4

pack 'ne Query drauf:
Query.SQL.Text := 'select count(*) from schueler';
Query.Open;
gesamt:=Query.Fields[0].AsInteger;
Query.Close;
Query.SQL.Text := 'select count(*) from schueler where Geschlecht like '+QuotedStr('männlich');
Query.Open;
maennlich:=Query.Fields[0].AsInteger;
Query.Close;
weiblich:=gesamt-maennlich;

Memo.Lines.Add('Schüler Gesamt: '+inttostr(gesamt));
...
den Rest kannst Du Dir hoffentlich denken (Forum<>Hausaufgabenbeantwortungszentrale)

[shmia]

Das kann man in einer einzigen SQL-Abfrage erledigen:

SQL-Code:

SELECT Geschlecht, Count(*) AS Anzahl
FROM Tabelle
GROUP BY Geschlecht
UNION ALL
SELECT 'Gesamt' AS Geschlecht, Count(*) AS Anzahl
FROM Tabelle

Lass die die Abfrage einfach in einem zweiten DBGrid anzeigen.
Das ist eleganter als die Textboxen und funktioniert auch dann, wenn als
Geschlecht z.B. "unbestimmt" oder "unbekannt" hinzukommt.