Soma de valores via SQL (SUM)

Delphi

08/04/2003

Bom dia pessoal.
Estou com o seguinte código:

query1.Close;
query1.sql.Clear;
query1.sql.Add(´select SUM(valorcompra) from extratoconta´);
query1.Prepare;
query1.ExecSQL;

O comando SUM me dá a soma de todos os valores do campo ´valorcompra´ da tabela extratoconta. O problema é como jogar a soma em um edit ou label?

Grato pela atenção.


Hacson Menezes

Hacson Menezes

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

08/04/2003

Clique duas vezes sobre a Qry.
Clique com o botão direito sobre a janela do Fields Editor.
Escolha Add Fields...
Clique Ok.

Utilize o código:

Edit1.Text:=Query1Campo1.Value;

Onde Campo1 é um dos campos que aparecem na Janela Fields Editor.


GOSTEI 0
Marcelo.c

Marcelo.c

08/04/2003

Ah. ia me esquecendo. Provavelmente você terá que utilizar inttostr para converter o valor da soma.


GOSTEI 0
Andrewsporto

Andrewsporto

08/04/2003

Testa isso aí!
query1.Active:=false;
query1.sql.Clear;
query1.sql.Add(´select SUM(area)as soma from Country´);
query1.Prepare;
query1.active:=true;
edit1.Text:=query1.FieldValues[´soma´];

Quando se utiliza select vc não usa execsql... utiliza active:= false;coloca o q deve colocar e depois active:=true;
Ok? qualquer duvida!!
andrews@redespectrum.com.br


GOSTEI 0
POSTAR