Spalte gruppieren

[Privateer3000]

Hallo alle'zsamm,

ich habe leider keinen passenden Thread zu meinem Problem gefunden.
(Oder nicht richtig gesucht ;-) )
Ich möchte einen Rückgabewert der mir sagt wieviele Datensätze
vorhanden, gruppiert nach Inhalt der Spalte 'gruppe'.
Ausserdem, wie sieht der Typ der Rückgabe aus (Stringlist?)
der dazu erforderlich ist?

Besten Dank

[mkinzler]

SQL-Code:

select count(*) from <tabelle> group by gruppe;

[DeddyH]

SQL-Code:

SELECT gruppe, COUNT(*) AS Anzahl
FROM Tabelle
GROUP BY gruppe

Meinst Du das?

[Privateer3000]

Danke Leute,
mein Problem ist der Rückgabewert.
Ich habe keine Ahnung was sql zurückgibt.
Die von euch erwähnten Beispiele müssen
ja verarbeitet werden.

[DeddyH]

Pack das SQL als Eigenschaft SQL in eine Query. Diese öffnest Du mit Open und kannst anschließend über z.B. Query.FieldByName('gruppe').AsString auf das Feld Gruppe zugreifen.

[Privateer3000]

Danke Deddy
ich hab da ne Blockade,
String ist String wie passen da die Ergebnisse rein
die aus einer Gruppierung resultieren?

Mein gewünschtes Ergebnis soll ja zB so aussehen:
Gruppe 1: 23 (Datensätze)
Gruppe 2: 12 (Datensätze)
egal ob das dann in 'nem Memo oder Grid steht.

[Jelly]

Ich glaub Deddy, das war nicht was Privateer meinte.

Prinzipiell kriegst du, wenn du eine TQuery öffnest, eine Datenmenge kompatibel zum Datentyp TDataset zurück. (Siehe OH).
Ein Dataset besteht aus Zeilen und Spalten. Du bist aber immer nur auf einer Zeile positioniert. Dann kann man, wie Deddy korrekt erwähnte, über die Funktion FieldByName des Dataset auf den Wert der angegeben Spalte zurückgreifen. Es wird aber dabei natürlich nur der Wert der aktuell positionierten Zeile zurückgegeben.

Um auf eine andere Zeile zu springen, dafür gibts zum einen die Methoden Next, Prior, First und Last (selbssprechend), zum anderen auch Suchfunktionen wie z.B. Locate, mit der du nach einem Wert einer (oder gar mehreren) Spalten suchen kannst. Wird ein Eintrag gefunden, so wird auf den ersten der gefundenen Eintäge positioniert, und du kannst wieder mit FieldByName auslesen.

Ich hoffe, du kannst jetzt den hellen Punkt am Ende des Tunnels schon erkennen :zwinker:

PS: Übrigens, neben den Methoden des Dataset, kannst du auch noch ein TDataSource an dein Dataset binden (also deine TQuery), und ein DBGrid kannst du dann wiederum an die Datasource binden. Dadurch wird die komplette Ergebnismeng als Grid dargestellt.

[Privateer3000]

Danke Jelly,

offen gesagt versteh ich nur Bahnhof
und fahren nur Güterzüge durch
Die Beispiel zu Query & Co in der OH sind ja auch n Witz.

Delphi-Quellcode:

Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;

Ist nun "Anzahl" vom Typ Integer den ich nun benutzen kann?

:roll: :gruebel:

[mkinzler]

http://www.dsdt.info/tutorials/?cat=6

[PaulJr]

Hallo Privater3000 :???:

Falls ich Dich richtig verstanden habe:
(…)
„Ich möchte einen Rückgabewert der mir sagt wieviele Datensätze
vorhanden, gruppiert nach Inhalt der Spalte 'gruppe'.
Ausserdem, wie sieht der Typ der Rückgabe aus (Stringlist?)
der dazu erforderlich ist?“
(…)

Falls Du die SQL-Anweisung von DeddyH in einer Query (Namens: Query1) benutzen solltest (Empfohlen) :idea: :

SELECT gruppe, COUNT(*) AS Anzahl
FROM Tabelle
GROUP BY gruppe

Dann bekommst Du die Antwort auf die Frage: „wie viele Datensätze“ z.B. so:

Query1.FieldByName('ANZAHL').AsInteger;

Die Anzahl ist dann von DatenTyp Integer.

Darüberhinaus kannst Du ein Datentyp auch so ausläsen:

Query1.FieldByName('ANZAHL').DataType; // TFieldType

Viele Grüße
PaulJr

[Privateer3000]

Kann man auch das Ergebnis zählen,
also wieviele Gruppen gefunden wurden?
Denn ich muss ja sicherlich eine Schleife machen
die die Ergebnisse durchgeht um alle anzuzeigen..

[Privateer3000]

Im Moment sieht der Spaß so aus:

Delphi-Quellcode:

Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;
dbmemo1.Lines.Add(query1.FieldValues['gruppe']+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));

im memo wird die letzte Gruppe mit der korrekten Anzahl dargestellt.
aber eben nur die letzte...nicht alle ergebnisse

[Jelly]

Kuck dir einfach mal TDataset an... Da gibt es einige interessante Eigenschaften (RecordCount für deinen konkreten Fall z.B.)

[Privateer3000]

nein , ich komm nicht weiter

damit zeigts mir 3mal das gleiche ergebnis:

Delphi-Quellcode:

Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;
banz:=query1.RecordCount;
for i:=0 to banz -1 do begin
dbmemo1.Lines.Add(Query1.fieldbyname('gruppe').AsString+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));
end;

[DeddyH]

Delphi-Quellcode:

Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;
Query1.First; //auf ersten Datensatz
banz:=query1.RecordCount;
//solange noch Sätze vorhanden
while not Query1.EOF do
  begin
    dbmemo1.Lines.Add(Query1.fieldbyname('gruppe').AsString+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));
    Query1.Next; //nächster Datensatz
  end;
{for i:=0 to banz -1 do begin
dbmemo1.Lines.Add(Query1.fieldbyname('gruppe').AsString+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));}
end;

[Privateer3000]

Schwere Geburt
aber jetzt perfekt!
Habs sogar verstanden :-)
Dank an alle
besonders an Deddy