Addieren aller Zeilen eins Datenfeldes

[Coder18]

Hallo Leutz!

Hab ein Problem mit dem Addieren aller Zeilen eines Datenbankfeldes. Das Problem ist,
dass ich nicht weiß wie es geht!

In jeder Zeile eines bestimmten Datenfeldes steht eine Zahl, diese Zahlen sollen zusammengerechnet werden. Das Ergebnis soll dann anschließend am Bildschirm ausgegeben werden.

Ich hoffe ihr versteht was ich meine!

Danke und Gruß

Tim

[Pseudemys Nelsoni]

ich verstehs nich genau...


also addieren kann man wunderbar mit dem "+"

[Sharky]

Zitat von Coder18:

Hallo Leutz!

Hab ein Problem mit dem Addieren aller Zeilen eines Datenbankfeldes. Das Problem ist,
dass ich nicht weiß wie es geht!...

Hai Tim,

einfach den Server rechnen lassen
SELECT SUM(feld_name) AS summe FROM tabllen_name

[Coder18]

Also ich versuchs mal mit nem Beispiel darzustellen:

Delphi-Quellcode:

Datenbankfeld1 | Datenbankfeld2 | DatenbankFeld3
------------------------------------------------
bla            | a              | 1
blabla         | b              | 2
blablabla      | c              | 1

So das soll jetzt eine Datenbanktabelle darstellen.
In dieser Datenbanktabelle möchte ich die Daten der letzten Spalte addieren.

Ich hoffe es ist jetzt klar geworden worauf ich hinaus möchte!

[Coder18]

Danke Sharky!

Werde das gleich probieren!

[Coder18]

So ich hab jetzt, dank Sharkys Tip, das Ganze so umgesetzt:

Delphi-Quellcode:

...
var 
   Summe : Integer;
...

with Querry1 do begin
     Active := false;
     SQL.Clear;
     SQL.Add('select Sum(Datenbankfeld3)');
     SQL.Add('from "Datenbank.db"');
     ExecSQL;
     Active := false;
     TblAuswertung.Refresh;
end;

Die Abfrage funktioniert.
Doch wie bekomme ich das Ergebnis der SQL-Abfrage in meine Variable "Summe"?

[Jens Schumann]

Hallo,
so sollte es klappen:

Delphi-Quellcode:

...
var
   Summe : Integer;
...

with Querry1 do begin
     Active := false;
     SQL.Clear;
     SQL.Add('select Sum(Datenbankfeld3) AS Summe');
     SQL.Add('from "Datenbank.db"');
     Active:=True;
     Summe:=FieldByName('Summe').AsInteger;
     Active := false;
     TblAuswertung.Refresh;
end;

[Coder18]

Hallo Jens!

Funktioniert leider nicht! Das Programm meldet "Feld 'Summe' nicht gefunden!

[Sharky]

Zitat von Coder18:

Hallo Jens!

Funktioniert leider nicht! Das Programm meldet "Feld 'Summe' nicht gefunden!

Hai Coder18,

hast Du genau den Code von Jens verwendet? Du darst z.B. das Query nicht mit ExecSQL ausführen.

[Coder18]

Hab den Fehler gefunden. Der Fehlehr lag bei mir.
Ich habe vergessen ExecSQL durch Active := True zu ersetzen!

Jetzt funktioniert es so wie ich es brauche!

Danke!