SQL-Abfrage nach Monat gruppieren

[norbert3]

Hey Leute,

ich komme einfach nicht weiter.

Ich habe ein DBChart-Modul eingesetzt und es mit einer Abfrage verbunden. Dies funktioniert soweit auch.

Delphi-Quellcode:

with ABSQuery1 do
  begin
    ABSQuery1.Close;
    ABSQuery1.SQL.Text := 'SELECT t1."Datum", SUM(t1."GesamtNetto") AS "sumGesamtNetto" 
FROM "tblRechnung" t1 
WHERE (t1."Datum" Like "%"+:Jahr)
GROUP BY t1."Datum", t1."GesamtNetto" 
HAVING ((EXTRACT(MONTH FROM t1."Datum")))';
    ABSQuery1.ParamByName('Jahr').asString := cboJahr.Text;
    ABSQuery1.Open;
   end

Nun möchte ich aber, dass die Werte der einzeln angezeigten Tage summiert und das auch noch pro Monat ausgegeben werden soll. (Gesammtsumme pro Monat)

Hat jemand eine Idee?

Mfg Norbert

[mkinzler]

GROUP BY EXTRACT(MONTH FROM t1."Datum"), t1."GesamtNetto"

[marabu]

Hallo Markus,

ABS erlaubt keine Ausdrücke in der GROUP BY Klausel - besser so:

SELECT EXTRACT(MONTH FROM datum) AS monat, SUM(gesamtnetto) FROM rechnungen GROUP BY monat ORDER BY monat DESC Grüße vom marabu

[mkinzler]

Ich kenn mich halt mit diesem DBMS nicht aus.

[norbert3]

Hey Leute,

danke an alle, ich habe es nun so eingebaut und läuft sehr gut!!

Delphi-Quellcode:

procedure TfrmUmsatz.FormActivate(Sender: TObject);
begin
cboJahr.Text := FormatDateTime('yyyy',date);
with ABSQuery1 do
  begin
    ABSQuery1.Close;
    ABSQuery1.SQL.Text := 'SELECT EXTRACT(MONTH FROM datum) AS monat, SUM(gesamtnetto)AS sumGNetto FROM tblRechnung WHERE (Datum Like "%"+:Jahr) GROUP BY monat ORDER BY monat DESC';
        ABSQuery1.ParamByName('Jahr').asString := cboJahr.Text;
    ABSQuery1.Open;
   end

end;

mfg Norbert

[marabu]

Nur ein wenig Kosmetik:

Delphi-Quellcode:

procedure TfrmUmsatz.FormActivate(Sender: TObject);
begin
  with ABSQuery1 do
  begin
    SQL.Text := 'SELECT EXTRACT(MONTH FROM datum) AS monat, '
              + 'SUM(gesamtnetto) AS sumGNetto FROM tblRechnung '
              + 'WHERE EXTRACT(YEAR FROM datum) = :jahr) '
              + 'GROUP BY monat ORDER BY monat DESC';
    Params.ParamValues['jahr'] := CurrentYear;
    Open;
  end;
end;

Vielleicht solltest du nochmal prüfen, ob das Ereignis OnActivate() der Form die optimale Stelle für die Query ist.

Gute Nacht

marabu