Daten eines Feldes in einer Query addieren

[Robert_G]

Du willst die Summe aller gefundenen ZIanzahl? -> Warum fragst du deine DB nicht genau danach?

Delphi-Quellcode:

with SomeADOQuery do
begin
  SQL.Text :=
    'SELECT sum(ZIanzahl) SumOfZIanzahl' + #10 +
    'FROM   fest' + #10 +
    '      ,kunden' + #10 +
    '      ,zwischen' + #10 +
    '      ,inventar' + #10 +
    'WHERE  zwischen.ZInr = inventar.Inr And' + #10 +
    '       zwischen.ZFnr = fest.Fnr     And' + #10 +
    '       fest.fKnr     = kunden.Knr   And' + #10 +
    '       (:i_Datum Between fest.fBeginn And fest.fEnde) And' + #10 +
    '       zwischen.ZInr = :i_IQuInr';
  // Parse Statement um Variablen zu erkennen
  Prepared := True;
  // Parameterzuweisung
  with Parameters do
  begin
    ParamByName('i_Datum').DataType  := ftDateTime;
    ParamByName('i_IQuInr').DataType := ftString;

    ParamByName('i_Datum').Value  := Datum;
    ParamByName('i_IQuInr').Value := DatMod.IQuInr.AsString;
  end;
  // Ausführen
  Open();

  if not Eof then
    AnzahlDatum := Fields[0].AsInteger
  else
    AnzahlDatum := // Was auch immer rein soll, wenn du nix gefunden hast
end;

Ich bezweifel, dass du die Tabelle Inventar wirklich brauchst.

Zum Thema SQL & Stringbasteleien dürftest du in dem Suchlink unten genügend Predigten von mir finden.
[dp:5f37332a04=schwachfug or käse or boom or tag or monat and datum and parameter]Klick[/dp:5f37332a04]