Probelma: Query con SUM no la reconoce delphi

[Inon]

Hola gente de Club Delphi, vengo ante ustedes con una duda:
tengo la siguientes instrucciones para crear un query:

Cadena:='SELECT SUM(costo) AS monto FROM mi_tabla';
Query2.SQL.Clear;
Query2.SQL.Add(Cadena);
Query2.ExecSQL;
LMonto.Caption:=Query2.FieldByName('monto').AsString;  <--Aqui esta el problema

costo es de tipo DECIMAL

y LMonto es tipo LAbel solo para mostrar la suma de todos los registros de la tabla.
pero me sale el siguiente error Query2: Field 'monto' not found.

lo raro es que en phpmyadmin si me muestra el resultado sin problemas.

[Inon]

Ya descubri el error:
Yo tenia esto:

Cadena:='SELECT SUM(costo) AS monto FROM mi_tabla';
Query2.SQL.Clear;
Query2.SQL.Add(Cadena);
Query2.ExecSQL;
LMonto.Caption:=Query2.FieldByName('monto').AsString;

Y el problema se corrigio activando la Query para que me reconozca el campo "monto", de tal forma que el codigo queda así:

Cadena:='SELECT SUM(costo) AS monto FROM mi_tabla';
Query2.SQL.Clear;
Query2.SQL.Add(Cadena);
Query2.ExecSQL;
Query2.Active:=True;  <-- Se activa para poder ver el campo "monto"
LMonto.Caption:=Query2.FieldByName('monto').AsString;
Query2.Active:=False;  <-- Se desactiva porque ya no se requiere

Bueno espero que a alguno le sirva, Saludos.

[Casimiro Notevi]

Código Delphi [-]
Query2.Close;
Query2.SQL.Text:='SELECT SUM(costo) AS monto FROM mi_tabla';
Query2.ExecSQL;
LMonto.Caption:=Query2.Fields[0].AsString;

Si quieres asignar el valor devuelto por el select entonces te vale mejor así.

[defcon1_es]

Hola.
Esto es redundante:

Código Delphi [-]
Query2.ExecSQL; //Puedes quitar esta línea de código
Query2.Active:=True;

[ecfisa]

Hola Inon.

Simplificando un poco y para redondear, las diferencias entre ExecSQL y Open (o Active:= True) son:

El método ExecSQL se usa para realizar consultas que no devuelven un resultado como por ejemplo: INSERT, UPDATE, DELETE, CREATE.

Para realizar consultas de las que esperamos devuelvan un resultado se debe usar el método Open o la propiedad Active.

La propiedad Active permite determinar o verificar si un TDataSet está abierto o cerrado. Llama a los métodos Open o Close según su valor sea puesto en True o False, por lo que también es redundante hacer:

Código Delphi [-]
  Query.Active:= True;
  Query.Open;
  // o 
  Query.Active:= False;
  Query.Close;

Saludos.