Soma de valores no banco de dados
Olá estou com a seguinte dúvida, criei um banco de dados para teste de valores, onde criei uma tabela valo somente com um campo valores, nesse campo adicionei varios valores, gostaria de somar todos esses valores e armazenar eles dentro de uma variável no Delphi, eu consegui isso usando Campos Agregados, sendo que eu queria fazer isso usando SQL dentro do delphi, Obrigado a todos !!!!
Xstickerrx
Curtidas 0
Respostas
Pestana_
13/03/2008
tente assim:
flw.
select sum(nomeCampo) from nomeTabela ...
flw.
GOSTEI 0
Xstickerrx
13/03/2008
hmm, to ligado nesse comando, mas como eu faço pra armazenar esse resultado numa variavel e mostrar ele num Label por exemplo
GOSTEI 0
Pestana_
13/03/2008
query.close;
query.text := select sum(nomeCampo) from nomeTabela ...
query.open;
label.caption := query.fields[0].AsString;
flw.
query.text := select sum(nomeCampo) from nomeTabela ...
query.open;
label.caption := query.fields[0].AsString;
flw.
GOSTEI 0
Xstickerrx
13/03/2008
Foi nao, no label ele mostrou so o primeiro valor do campo e nao a soma de todos =/
o meu codigo ta assim
o meu codigo ta assim
procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
text:=(´select sum(valores) from valor´);
open;
end;
Label1.Caption:=ADOQuery1.Fields[0].AsString;
end;
GOSTEI 0
Diegus
13/03/2008
Foi nao, no label ele mostrou so o primeiro valor do campo e nao a soma de todos =/
o meu codigo ta assim
procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
text:=(´select sum(valores) from valor´);
open;
end;
Label1.Caption:=ADOQuery1.Fields[0].AsString;
end;
No seu ADOQuery1 tem quais FIELDS inseridos no Fields Inspector (nem sei se eh este o nome que se dá... DOIS CLIQUES NO ADOQUERY1...)?
GOSTEI 0
Xstickerrx
13/03/2008
tem 2 , código e valores
GOSTEI 0
Diegus
13/03/2008
tem 2 , código e valores
Ta meio estranho isso...
faz o seguinte ... coloca um segundo AdoQuery2...
Muda o SQL para:
´select sum(valores) as SOMA from valor´
Lembrando de conectar o adoquery no banco (AdoConnection)...
procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery2.close;
adoquery2.open
Label1.Caption:=ADOQuery2.FieldByName(´SOMA´).asString
end;
GOSTEI 0
Xstickerrx
13/03/2008
Agoraa fooiii !!! =D Valeuu ai, muito obrigado !!!
GOSTEI 0