Obtener valor de una celda de un DBGrid

[Neftali [Germán.Estévez]]

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

[Albano]

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:

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.

[Albano]

Tenia mal la propiedad de "connection", la corregi y ahora cambio el error:

No se han especificado valores para algunos parametros requeridos

se genera en la linea

Código Delphi [-]
Query1.Open;

[Ricardojosep]

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!!

[Albano]

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.