Como se puede hacer una suma en delphi

[Casimiro Noteví]

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

[beteta]

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

[Casimiro Noteví]

¿ cómo?

[beteta]

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

[roman]

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

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

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:

Hay un error de compilación en esa línea

// Saludos

[beteta]

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

[roman]

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

[roman]

Empezado por beteta

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