Pesquisa entre datas com soma de valores

Delphi

11/10/2003

Fiz uma pesquisa em SQL, até aí tudo bem.
Essa pesqisa me retorna os valores do movimento de uma empresa durante o periodo especificado.
Agora eu queria que a soma desses valores fossem mostrados em um Edit ou em um Label.

Podem me ajudar?

Denysk


Denysk

Denysk

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

11/10/2003

var i, t: Integer;

begin
  Query.First;
  t:=QueryCampo.AsInteger;
  for i := 1 to Query.Recorcount -1 do
  begin
    t:=t+QueryCampo.AsInteger;
    Query.Next;
  end;
  Edit1.Text:= InttoStr(t);
end;
Você também pode obter o total através de código SQL:

Select Sum(Campo) as Total from Tabela where Data between data1 and data2
Então utilize:

Edit1.Text:=QueryTotal.AsString;



GOSTEI 0
POSTAR