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

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 :o

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

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.

Bien, ahora veo lo que has enlazado, podías haber puesto esas 'instrucciones' y estaría más claro, la pego aquí:

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.

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

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]);

¿Y por qué no te funcionó?.
Es que no somos adivinos, hace falta que lo expliques ;)

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

¿:confused: cómo?

Te sobra el paréntesis final. Quítalo.

// Saludos

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

Lee mi mesaje, ya te dije cuál es el problema.

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

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:

// Saludos

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

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

y entonces que debo de hacer ahi volver a poner AS TOTAL para que si me pueda funcionar

Sí.

// Saludos

gracias amigo eso precisamente estaba buscando