Sql sumar campo sum()

[[Caral]]

Hola
Acuerdate de usar las etiquetas.

Código SQL [-]
Select sum(Importe) as ST from presprod where Codpres= res

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
total: real;
begin
QSuma.Close;
QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FileByName('ST').Value;
TPresupuestosSumaTotal.AsFloat:=total;
end;

Saludos

[[enecumene]]

Hola, primero que todo deberias especificar que base de datos utilizas, Access, Mysql que componentes usas ADO, Zeos, BDE, etc., en fin, creo que el codigo debe ser asi:

Si es en Access.

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
total: real;
begin
QSuma.Close;
QSuma.Parameters.ParamByName('Pres').Value:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FileByName('ST').Value;
TPresupuestosSumaTotal.AsFloat:=total;
end;

Si es en Mysql con ZEOS u otra base de datos o componentes :

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
total: real;
begin
QSuma.Close;
QSuma.ParamByName('Pres').Value:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FileByName('ST').Value;
TPresupuestosSumaTotal.AsFloat:=total;
end;

Saludos.

[teclilla]

Hola Caral, muchas gracias por tu respuesta, (disculpa por las etiquetas soy nueva en el foro), he cambiado el siguiente codigo :

Código Delphi [-]
total:=QSuma.FieldByName('ST').Value;

y me da el siguiente error:
'Invalid variant type conversion'

[[enecumene]]

Hola, tiene que ser asi:

Código Delphi [-]
total:=QSuma.Fields[0].Value;

Saludos.

[[Caral]]

Hola
El campo es Real osea Double.
La suma es double, el nombre del campo es Importe conocido como ST, no veo el error, tal vez asi?

Código Delphi [-]
total:=QSuma.FileByName('Importe').Value;

No se, inténtalo, pero es extraño.
Saludos

[teclilla]

Muchas gracias por la respuesta, uso Paradox 7 (disculpad por no haberlo dicho antes), he añadido esto a la función:

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
        import, total: real;
begin
        import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value;
        TPresupuestosSumaTotal.AsFloat:=total;
end;

y ejecuto paso a paso para depurar y resulta que el TPresProdDetalle es tabla detalle y hasta que no confirmo el presupuesto no realizo TPresProdDetalle, no se si el error puede venir por ahí, ya que si pruebo solo con un producto en el detalle el importe que recoge es un numero erroneo, a pesar de que a esta funcion se le llama en el evento TPresProdDetalleAfterInsert, no se si vosotros tendreis alguna idea. Muchas Gracias.

[[Caral]]

Hola
No dices si te da problemas o que problemas te da, cero que no da la informacion?.
Haz este y veras que dato envia:

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
        import, total: real;
begin
        import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value;
        
        ShowMessage(import);
        ShowMessage(total);

        TPresupuestosSumaTotal.AsFloat:=total;
end;

Asi veremos quien es el que tiene la informacion, supongo.
Saludos

[teclilla]

import = 0
y genera el error 'Invalid variant type conversion'

Código Delphi [-]
import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        ShowMessage(FloatToStr(import));
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value; //genera el error
        ShowMessage(FloatToStr(import));
        TPresupuestosSumaTotal.AsFloat:=total;

Muchas gracias Caral

[[Caral]]

Hola
Segun me dicen ST tiene un valor NULL, por eso manda el error.
No se a que se debe, se supone que es la suma del campo importe y si este contiene datos no deberia dar ese problema.
Para mi por alguna razon no esta reconociendo ST como un campo.
Quedo un poco corto en la apreciacion del problema, no lo termino de entender.
Espero lo puedas solucionar, o esperar a un maestro, ya vendrán.
Saludos