GARANTIR DESCONTO

Fórum Soma de valores no banco de dados #355300

13/03/2008

0

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

Xstickerrx

Responder

Posts

13/03/2008

Pestana_

tente assim:

select sum(nomeCampo) from nomeTabela ...


flw.


Responder

Gostei + 0

13/03/2008

Xstickerrx

hmm, to ligado nesse comando, mas como eu faço pra armazenar esse resultado numa variavel e mostrar ele num Label por exemplo


Responder

Gostei + 0

13/03/2008

Pestana_

query.close;
query.text := select sum(nomeCampo) from nomeTabela ...
query.open;

label.caption := query.fields[0].AsString;


flw.


Responder

Gostei + 0

13/03/2008

Xstickerrx

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;




Responder

Gostei + 0

13/03/2008

Diegus

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...)?


Responder

Gostei + 0

13/03/2008

Xstickerrx

tem 2 , código e valores


Responder

Gostei + 0

13/03/2008

Diegus

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;


Responder

Gostei + 0

13/03/2008

Xstickerrx

Agoraa fooiii !!! =D Valeuu ai, muito obrigado !!!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar