SUM a edit o variable

[Chuma87]

Buenas, como dice el titulo...Necesito que, en un ButtonX, sume todos los importes que hay en el DBGrid(dataset)...la consulta seria:

Código SQL [-]
'select SUM(importe) from FACTURA

y por algun lugar lei que guardandolo en una variable seria asi:

Código SQL [-]
'select SUM(importe) as VariableX from FACTURA

Ahora, como seria para que me lo muestre en un edit?

Código Delphi [-]
EditX.text := 'select SUM(importe) from factura';

?????????

lo unico que quiero, es que de la tabla en donde hay 10 items, sume los importes de cada uno, y me lo muestre en un editX.

Graciela

[jhonny]

Pues la cosa es sencilla, si tu dataset es un ClientDataSet puedes activar los TAgregates, es muy sencillo trabajar con ellos... si no, solo debes recorrer el dataset e imprimir el resultado en dicho Edit, asi:

Código Delphi [-]
var
  Total: Extended;
begin
  Total := 0;
  Dataset1.DisableControls;  
  try  
    Dataset1.First;
    while not Dataset1.Eof do
    begin
      Total := Total + Dataset1.FieldByName('Importe').AsFloat;
    Dataset1.Next;
    end;

    EditX.text := FloatToStr(Total);
  finally
    Dataset1.EnableControls;
  end;
end;

Y ya.

[marcoszorrilla]

También con una simple Consulta.

Código Delphi [-]
EditX.text:=Query1.Fields[0].AsString;

Un Saludo.

[jhonny]

Empezado por marcoszorrilla

También con una simple Consulta.

Código Delphi [-]EditX.text:=Query1.Fields[0].AsString;



Un Saludo.

Ahhh, claro, yo lo había visto era desde el punto de vista donde es necesario sumar los registros, luego de digitar algun valor por medio de un control como el DBGrid.