hacer un SUM de una consulta ya hecha

[[enecumene]]

A ver, intenta lo siguiente:

Código Delphi [-]
Var
Suma: Double;
Campo:  TField; 
Begin
     Suma:=0;
     Try
        With query1 Do Begin
             DisableControls;
             ElCampo := fieldbyname('Field');
             First;
             While Not EoF Do Begin
                   Suma := Suma + Campo.AsFloat;
                   Next;
             End;
        End;
     Finally
        query1.EnableControls;
     End;
     Edit1.Text := Floattostr(Suma);
End;

Saludos.

[egarc]

Gracias por sus respuestas.
De la manera que tengo el codigo ahora es haciendo un ciclo desde el principio del Query hasta el final y acumulando en una variable el valor del campo monto. Necesito saber si hay alguna forma que no sea tan lenta, ya que un ciclo que va desde 1 hasta 50,000 es un poco lento.

Gracias...

[Casimiro Noteví]

¿Y no te sirve ninguna de las respuestas?

Aclara un poco más lo que haces, adjunta tu código, etc.

[egarc]

Ok, Trabajo con SQL 2005 y Delphi 2007

Hago la siguiente consulta

Código SQL [-]
Select CodigoCliente, Numero, Fecha, Monto 
from FACTURAS
 
where fecha between :Fecha1 and :Fecha2

Luego paso los parámetros, etc.etc.

La consulta me devuelve mas o menos 5,000 registros, y ejecuto el siguiente codigo para sacar el total de la suma del campo MONTO

Código Delphi [-]
Var Total:real;
Begin     total:=0;     
Try        With query1 Do 
Begin             
First;             
While Not EoF Do Begin                 
  Total := Total+ Query1.fielbyName('Monto').AsFloat;                   
Next;             
End;        
End;     Finally    
End;     
Edit1.Text := Floattostr(Total);
End;

Entonces, en el calculo que deseo poner en el edit1 me tarda mucho tiempo, ya que mientras mas registros tenga la consulta, mas tiempo tardará en dar el resultado.

Gracias anticipadas

[Casimiro Noteví]

¿Pero por qué no haces la suma en el select?

Select CodigoCliente, Numero, Fecha, Monto, sum(Monto) as Total 
from FACTURAS 
where fecha between :Fecha1 and :Fecha2

[[egostar]]

Empezado por Casimiro Notevi

¿Pero por qué no haces la suma en el select?

Select CodigoCliente, Numero, Fecha, Monto, sum(Monto) as Total 
from FACTURAS 
where fecha between :Fecha1 and :Fecha2

Pero eso te va a dar un error amigo Casimiro, requieres el Group by, yo creo que lo mas facil es hacer un campo calculado y mostrarlo cuando y donde lo requieras.

Salud OS

Edito

Suponiendo que el campo Calculado sea Total

En el evento OnCalcFields se hace esto

Código Delphi [-]
    Query1TOTAL.Value := Query1TOTAL.Value + Query1Monto.Value;

[Casimiro Noteví]

je, je... ¿en qué estaría pensando yo?, por supuesto que lo que he puesto no sirve