Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
Como se puede hacer una suma en delphi

bueno muchas les expongo mi problema yo quisiera hacer una suma en delphi pero los datos estan
en una base de datos quisiera saber como se hace miren le dejo el proyecto para que lo descargen y
me pueden indicar como se podria hacer aqui les dejo el link espero su ayuda ante mano muchas gracias

http://fileden.com/files/2008/8/11/2045044/Ejemplo.zip

Última edición por Casimiro Notevi fecha: 02-08-2012 a las 09:54:52.
Responder Con Cita
  #2  
Antiguo 02-08-2012
Avatar de champy
champy champy is offline
Miembro
 
Registrado: sep 2003
Ubicación: Alicante, España
Posts: 75
Poder: 22
champy Va por buen camino
No he visto el proyecto, pero me atreveré a anticipar la respuesta que te van a dar.

Paso1. Leer los datos de la base de datos.

Paso2. Sumarlos.

Paso3. Mostrar un mensaje con el resultado.

Si tienes alguna duda concreta, especifica la pregunta, o dudo que nadie te pueda ayudar.

Espero haberte sido de ayuda
Responder Con Cita
  #3  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
si eso es lo de seguro pero echale un ojo es que lo que pasa que no encuento la forma de hacerlo
en la base de datos que tengo local que es mysql desde el workbench si lo ago con el codigo query
pero no se como hacerlo en delphi dale un visto y me cuentas

gracias amigo por responder
Responder Con Cita
  #4  
Antiguo 02-08-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Supongamos que tienes en la base de datos una tabla que se llama tbArticulos.
Supongamos que en la tabla tbArticulos, entre otros, tienes los siguientes campos: id, nombre, precio, stock1, stock2
Supongamos que quieres saber la suma del stock en almacen1 (stock1) y del almacen2 (stock2) que tienes.
Bien, entonces:
Código SQL [-]
select id, nombre, precio, stock1+stock2 as sumastock from tbarticulos
Y si es eso lo que preguntas, entonces esa es la respuesta.
Responder Con Cita
  #5  
Antiguo 02-08-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bien, ahora veo lo que has enlazado, podías haber puesto esas 'instrucciones' y estaría más claro, la pego aquí:

Cita:
Buenas amigos aqui le dejo la iformacion a ver si se pude

yo quisiera saber si se puede hacer esta operacion

la cual es de la siguiente manera;

quiero que el progrma sume en la base de datos mediante un query u otro
componente el total de la venta quiere dicer

que deceo que sume los totales de las oredenes que son iguales digamos

idventa Norden Pcodigo Precio cantidad total
1 1 5 160 1 160
2 1 2 150 2 300
3 1 3 200 2 400
4 2 1 125 2 250
5 2 2 250 2 500





SELECT SUM(total)

FROM `venta.db`

WHERE norden = ¡¡ aqui quiero que vaya los datos de un Edit1.text que
seria ya sea 1 o 2 dependiendo el Norden;

y que el resultado me lo tire ya sea en una label o en un edit

espero susrespuestas


solo cual quiero que sume

idventa Norden Pcodigo Precio cantidad total
1 1 5 160 1 160
2 1 2 150 2 300
3 1 3 200 2 400

label o edit daria como resultado total a pagar 860
Responder Con Cita
  #6  
Antiguo 02-08-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Por lo pegado en el mensaje de Casimiro a grosso modo pienso que sería algo así:
Código Delphi [-]
...
var
  elTotal: Double;
begin
  Query.Close;
  Query.SQL.Text:= 'SELECT SUM(TOTAL) AS TOTAL FROM VENTA WHERE NORDEN = :PORDEN');
  Query.ParamByName('PORDEN').Value:= StrToInt(Edit.Text);
  Query.Open;
  elTotal:= Query.FieldByName('TOTAL').Value;
  Query.Close;
  Caption:= Format('%8.2f',[elTotal]);
  ...
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 02-08-2012 a las 14:19:50.
Responder Con Cita
  #7  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
voy a provar una pregunta mas tendria que poner algo en el query o solo lo pongo asi
pregunto por que talvez en el Sql sting lleve algun contedino solo aso es
Responder Con Cita
  #8  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
Prove y no me funciono me quedo algo asi
Código SQL [-]
var
  Form1: TForm1;elTotal: Double;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Query1.Close;
  Query1.SQL.Text:= 'SELECT SUM(TOTAL) AS TOTAL FROM VENTA WHERE NORDEN = :PORDEN');
  Query1.ParamByName('PORDEN').Value:= StrToInt(Edit1.Text);
  Query1.Open;
  elTotal:= Query1.FieldByName('TOTAL').Value;
  Query1.Close;
  Label1.Caption:= Format('%8.2f',[elTotal]);
Responder Con Cita
  #9  
Antiguo 02-08-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Y por qué no te funcionó?.
Es que no somos adivinos, hace falta que lo expliques
Responder Con Cita
  #10  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
Query1.SQL.Text:= 'SELECT SUM(TOTAL) AS TOTAL FROM VENTA WHERE NORDEN = :PORDEN');

corri el progrma y en esta linea se queda de ahi no pasa
Responder Con Cita
  #11  
Antiguo 02-08-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿ cómo?
Responder Con Cita
  #12  
Antiguo 02-08-2012
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
Cita:
Empezado por beteta Ver Mensaje
Query1.SQL.Text:= 'SELECT SUM(TOTAL) AS TOTAL FROM VENTA WHERE NORDEN = :PORDEN');

corri el progrma y en esta linea se queda de ahi no pasa
Te sobra el paréntesis final. Quítalo.

// Saludos
Responder Con Cita
  #13  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
aqui les dejo el protecto para que vean que no me funciono la verdad no se como espicarlo por que para eso soy muy malo pero bueno que mas explicacion mirelon aqui el proyecto

fileden.com/files/2008/8/11/2045044/ejemplo2.zip
Responder Con Cita
  #14  
Antiguo 02-08-2012
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
Lee mi mesaje, ya te dije cuál es el problema.

Y una recomendación. Intenta aclarar bien lo que expones. Cuando dices

Cita:
corri el progrma y en esta linea se queda de ahi no pasa
realmente no corriste el programa, es decir, nunca lo ejecutaste porque el compilador falló en esa línea. Entonces habría sido más claro si hubieras escrito:

Cita:
Hay un error de compilación en esa línea
// Saludos
Responder Con Cita
  #15  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
bueno ya leei tu mensje gracias y mira la verdad noce mucho de esto apenas estoy empezando este es un
proyecto de la escuela y la verdad no se mucho pues pero ya resolvi algunos errores pero ahora no se puede ejecutar la consulta saber encerio que es lo que pasa mira lo

fileden.com/files/2008/8/11/2045044/ejemplo3.zip

si puedes hacer que corra te agradeceria mucho encerio
Responder Con Cita
  #16  
Antiguo 02-08-2012
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
A ver, tu código actual dice esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT SUM(Total) FROM Venta.DB WHERE NORDEN = :PORDEN';
  Query1.ParamByName('PORDEN').Value:= StrToInt(Edit1.Text);
  Query1.Open;
  elTotal:= Query1.FieldByName('TOTAL').Value;
  Query1.Close;
  label6.Caption:= Format('%8.2f',[elTotal]);
end;

A tu consulta le quitaste el AS TOTAL que estaba antes y claro, ahora no reconoce ese campo cuando lees:

Código Delphi [-]
elTotal:= Query1.FieldByName('TOTAL').Value;

Pero no podemos andar adivinando todo por ti. Te marcó un error de ejecución y debiste ponerlo aquí.

// Saludos
Responder Con Cita
  #17  
Antiguo 02-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
y entonces que debo de hacer ahi volver a poner AS TOTAL para que si me pueda funcionar
Responder Con Cita
  #18  
Antiguo 03-08-2012
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
Sí.

// Saludos
Responder Con Cita
  #19  
Antiguo 03-08-2012
beteta beteta is offline
Miembro
NULL
 
Registrado: jul 2012
Posts: 19
Poder: 0
beteta Va por buen camino
gracias amigo eso precisamente estaba buscando
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Se puede hacer esto en Delphi?? gersonmaba Servers 5 30-09-2011 18:34:50
¿Se puede hacer aplicaciones en delphi para D.O.S.? Gran Cacique Varios 6 18-03-2008 18:03:08
Qué NO se puede hacer con Delphi. Caral Debates 31 06-03-2007 19:59:48
¿Se puede hacer un update en delphi?¿Como? nachobic Conexión con bases de datos 1 30-04-2006 18:38:37
Como se puede hacer un MDI en Delphi k2k2k2 Varios 5 23-05-2004 13:19:18


La franja horaria es GMT +2. Ahora son las 01:21:49.


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