Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-07-2005
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 20
Albano Va por buen camino
Obtener valor de una celda de un DBGrid

Hola a todos...
Tengo un problema, necesito obtener la suma de los datos de una columna de un DBGrid, pero parece ke no se puede hacer, si alguien sabe como se puede hacer, por favor digame...
Tal vez la unica opcion es realizar la suma directamente desde la base de datos con el query.
Responder Con Cita
  #2  
Antiguo 03-07-2005
JulioGO JulioGO is offline
Miembro
 
Registrado: ago 2004
Posts: 94
Poder: 20
JulioGO Va por buen camino
Si de preferencia te recomiendo que crees un query desde la BD, pues evitarias usar menos codigo el cual haria tu aplicacion mas pesada...

Saludos.
Responder Con Cita
  #3  
Antiguo 04-07-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Albano
...Tal vez la unica opcion es realizar la suma directamente desde la base de datos con el query.
Hay componentes que te permiten realizar éstas sumas, como por ejemplo el DBGrid de las Quantum, pero tienen el inconveniente de que se deben cumplir unas determinadas condiciones para que puedan realizar las sumas y totales -en concreto que todos los datos deben estar cargados en memoria, y eso no siempre es posible-.
Si no deseas utilizar componentes externos, la opción de generar un SQL que te haga la suma es la más rápida y la más sencilla.

Código SQL [-]
   SELECT SUM(Importe) AS Total FROM Tabla1
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 22-07-2005
ramdo ramdo is offline
Registrado
 
Registrado: abr 2005
Posts: 3
Poder: 0
ramdo Va por buen camino
Lightbulb bueno creo k hay algo por ahy...

buenas, mira no soy muy esperto pero creo que hay otra forma...

puedes hacer un bucle while notEOF do

if notvarisnull(table1.fieldbyname('nombre del campo de la columna').value then

entonces declaras un acumulador para que te valla sumando..

es mas o menos la idea el codigo no se si esta del todo bien por que lo he hecho hace mucho tiempo en otro lenguaje..

si no lo consigues el lunes te lo publico...
Responder Con Cita
  #5  
Antiguo 22-07-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
Hola:

Lo más óptimo en rendimiento es hacer lo que menciona Neftali.
Responder Con Cita
  #6  
Antiguo 12-01-2006
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 20
Albano Va por buen camino
Un poco tarde

Teia un tiempo sin trabajar en este proyecto y ahorita estoy un poco empolvado con esto de los querys.
Voy a hacer la suma por medio del query, como lo menciona Neftaly, pero ¿como hago para mostrar el resultado? ¿en que componente lo puedo mostrar?
Responder Con Cita
  #7  
Antiguo 12-01-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Albano
¿como hago para mostrar el resultado?
¿en que componente lo puedo mostrar?
Una vez que hayas ejecutado la consulta lo obtienes vía y lo colocas en un TEdit, por ejemplo:

Código Delphi [-]
  // suponiendo que usues la consulta anterior...
  Value := query1.FieldByName('Total').AsInteger;
  Edit1.Text := IntToStr(Value);
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #8  
Antiguo 13-01-2006
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 20
Albano Va por buen camino
Error

Ya hice mas o menos lo que me dijiste Nefatli, use el codigo que me diste, nada mas que la opcion de "FieldByName" no me aparece, por eso la cambie por "FieldValues". El codigo me quedo de la siguiente manera:

Código Delphi [-]
Query1.close;
Query1.SQL.Clear;
Query1.SQL.Add('select sum(Importe) as total from egresos where Ano = :Num');
Query1.Parameters.ParamValues['Num'] := StrToInt(editano.text);
Query1.Open;
Suma := Query1.FieldValues['total'];
Label1.caption := FloatToStr(Suma);

Al correr el programa, en la parte donde se ejecuta este codigo me genera el siguiente mensage de error:
Cita:
Query1: Parameter 'Num' not found.
Cual es mi error?

Me faltaba mencionar algo: Este mismo parametro (Num) lo uso en otro Query, en el que tengo enlazado al DBGrid que menciono antes, ahi no pasa nada, si encuentra el parametro y me genera bien la consulta.

Última edición por Albano fecha: 13-01-2006 a las 02:19:07.
Responder Con Cita
  #9  
Antiguo 13-01-2006
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 20
Albano Va por buen camino
Tenia mal la propiedad de "connection", la corregi y ahora cambio el error:
Cita:
No se han especificado valores para algunos parametros requeridos
se genera en la linea
Código Delphi [-]
Query1.Open;
Responder Con Cita
  #10  
Antiguo 13-01-2006
Ricardojosep Ricardojosep is offline
Miembro
 
Registrado: sep 2003
Ubicación: Sgo del estero (Argentina)
Posts: 75
Poder: 21
Ricardojosep Va por buen camino
utiliza este codigo

Prueba con este codigo.

Código Delphi [-]
Query1.SQL.Clear;
Query1.SQL.Add('select sum(Importe) as total from egresos where Ano = :Num');
Query1.ParamByName('Num').AsString := editano.text;
Query1.Active := True;
Label1.caption := Query1.FieldByName('total').AsString;

Creo que con eso deberia andar.

Saludos!!
__________________
La amistad es la union de dos almas para formar una sola.
Responder Con Cita
  #11  
Antiguo 13-01-2006
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 20
Albano Va por buen camino
Cambio de componente

Creo que acabo de dar con el problema, estoy usando un ADOQuery en lugar de un Query, voy a checar cambiando de componente y voy a probar el codigo que me han dado. Despues les cuento como me fue.
Gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 21:41:18.


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