Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-09-2004
ebeltete ebeltete is offline
Miembro
 
Registrado: may 2003
Posts: 236
Poder: 21
ebeltete Va por buen camino
mostrar la suma de un campo

Hola amigos, uso delphi 5 y tablas paradox, estoy haciendo una consulta a una tabla con un query, hago esta consulta:

select * from "mitabla.db"
where codigo='gggg'

hasta aca voy bien, muestro el resultado en un dbgrid.
Pero tambien quiero mostrar en un label la suma de todos los renglones de uno de los campos del resultado que es del tipo number, como hago?
espero hacer la consulta y despues sumo??
no puedo usar GROUP BY porque nesecito ver el resultado con los renglones.
Gracias y un abrazo a la distancia.
Responder Con Cita
  #2  
Antiguo 03-09-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Puedes simplemente hacer una consulta aparte:

Código SQL [-]
select sum(campo) from mitabla

// Saludos
Responder Con Cita
  #3  
Antiguo 04-09-2004
Avatar de Pablo Carlos
Pablo Carlos Pablo Carlos is offline
Miembro
 
Registrado: jun 2004
Ubicación: Mendoza - Argentina
Posts: 270
Poder: 20
Pablo Carlos Va por buen camino
Mira.. yo hago esto...
Código Delphi [-]
var Total : Currency;
begin
Total := 0;
With qVentasGral do
begin
While not eof do
begin
Total := FieldByName('FAC_Total').Value +
Total;
Next
end;
end;
frmInformes.eTotalV.Caption := CurrToStr(Total);
end;

alli tienes un bucle en el evento afteropen del query....
de esta manera abro el query con ciertos parametros y una vez abierto realizo el bucle, una vez llegado al último de los datos extraidos por el query paso ese valor "total" a un string, como lo ves, y obtengo el total que necesito en un label....
Espero te sirva.. saludos
__________________
Por qué todas las personas saben exactamente cómo debemos vivir nuestra vida, y nunca tienen idea de cómo deben vivir sus propias vidas.

Última edición por Pablo Carlos fecha: 04-09-2004 a las 01:46:25. Razón: Correción de etiquetas :)
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 06:24:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi