Como sumar los datos de un dbgrid!!!

[MARLON1]

Empezado por juanelo

No entiendo lo que quieres decir ...

hola perdon por no explicarme bien, lo que quiero decir es ke no me muestra ningun resultado, o mas bien como le hago para que el resultado de la consulta me lo muestre en un edit.espero ke me entiendas gracias

[keyboy]

Es que creo que citaste a juanelo cuando en realidad te referías a mi propuesta. Si es así, supongo que tienes ya un Query para la consulta:

Código Delphi [-]
Query1.SQL.Text := 'select sum(columna) from tabla';
Query1.Open;

En tal caso sólo tienes que tomar el valor así:

Código Delphi [-]
Edit1.Text := Query1.Fields[0].Value;

Si te referías a la propuesta de juanelo, entonces tendrás que explicar a qué codigo te refieres.

Bye

[MARLON1]

Empezado por keyboy

Es que creo que citaste a juanelo cuando en realidad te referías a mi propuesta. Si es así, supongo que tienes ya un Query para la consulta:


Código Delphi [-]
Query1.SQL.Text := 'select sum(columna) from tabla';
Query1.Open;





En tal caso sólo tienes que tomar el valor así:


Código Delphi [-]
Edit1.Text := Query1.Fields[0].Value;





Si te referías a la propuesta de juanelo, entonces tendrás que explicar a qué codigo te refieres.

Bye

GRACIAS POR LA AYUDA Y PERDON SI NO ME EXPLIQUE BIEN , ME SIRVIO TODO GRACIAS

de nuevo yo aki una duda y si para hacer la consulta utilizo un boton y le pongo el codigo:

query1.Close;
query1.SQL.Clear;

query1.SQL.Add('Select Sum(imp) AS total From seg1 WHERE idcli=:cla && obr=bra');
query1.ParamByName('cla').Value:=Edit1.Text;
query1.ParamByName('obra').Value:=Edit4.Text;


query1.Open;

como tengo ke tomar el valor pra mostrarlo en el edit. muchas gracias

[jirbert]

buenas, trate de usar el mismo codigo en algo parecido que estoy haciendo pero no me resulto!! lo que quiero es que me sume todos los campos que se encuentra en un dbgrid el cual se esta cargando constantemente pero no editable sino que se le agrega, trabajo en delphi 6 gracias!!!

[rolandoj]

Hola,

En primer lugar, hay que tener en cuenta que en el TDBGrid puede haber campos calculados, en cuyo caso, la solución basada en usar un TQuery para obtener la suma con un :

Código SQL [-]
Select Sum(CampoBuscado) From Tabla

no serviría, a menos que pudieras reproducir en el Select el campo calculado lo que no siempre es posible o fácil. Sin embargo, en la mayoría de los casos el Select es una buena solución

Para usar otro enfoque, no debes trabajar con el TDBGrid sino con su dataset asociado, y realizar la suma con un While. Veamos un ejemplo con un solo campo a sumar:

Código Delphi [-]
Function TMiFormulario.SumarCampoouble;
Var
  Suma:          Double; 
Begin
     Suma := 0;
     Try
        With MiDataSet Do Begin
             DisableControls;  
             First;
             While Not EoF Do Begin
                   Suma := Suma + MiDataSetCAMPO.AsFloat;
                   Next;
             End;
        End; 
     Finally
        MiDataSet.EnableControls;
     End; 
     SumarCampo := Suma;
End;

En este caso MiDataSet es típicamente un TQuery y MiDataSetCAMPO es un campo permanente correspondiente al campo de la base de datos que se desea sumar. Observa el uso de DisableControls y EnableControls; esto se hace para evitar refrescar la pantalla mientras se calcula la suma.

Creo que te será facil adaptar esta solución a varios campos.

Suerte

[jirbert]

Código PHP:

Var
Suma:Double;
Begin
     Suma:=0;
     Try
        With query1 Do Begin
             DisableControls;
             First;
             While Not EoF Do Begin
                   Suma := Suma + Query1.AsFloat;
                   Next;
             End;
        End;
     Finally
        query1.EnableControls;
     End;
     SumarCampo := Suma;
End; 


buenas gracias por responder!! bueno hice lo que me dijestes pero me arrojo 2 errores

undeclared identifier:'asfloat'
undeclared identifier:'sumarcampo'

[rolandoj]

Hola,

Mira, SumarCampo te lo indica como no definido seguramente porque no has definido la función en la clase correspondiente al formulario. Típicamente necesitas tenerlo en la sección Private; o sea :

Código Delphi [-]
Private
   Function sumarcampo : Double;

Respecto al AsFloat, es porque en lugar de usar el objeto que representa al campo permanente pusiste fué el Query1. Si tú campo se llama por ejemplo VALOR, la línea debería ser :

Código Delphi [-]
Suma := Suma + Query1VALOR.AsFloat;

Ahora, disculpa la pregunta; pero, sabes como se crean campos permanentes ?. Query1VALOR debe ser un campo permanente y necesitas saber como crearlo

Suerte