Einzelnen Beitrag anzeigen

Robert_G
(Gast)

n/a Beiträge
 
#4

Re: Daten eines Feldes in einer Query addieren

  Alt 20. Jul 2004, 19:08
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]
  Mit Zitat antworten Zitat