fazer um SUM e aparecer o resultado em um label ou botao

Delphi

22/06/2017

Amigos Delphianos, Boa tarde.

Por favor, alguém poderia me ajudar ?
tenho este select "SELECT SUM(ESTADOROMANEIO) FROM romaneio WHERE ESTADOROMANEIO='5' " e gostaria que o resultado dele saísse em um label ou edit.
Como faço isso ?

estou usando as paletas SQLconnection ,Simpledatset,datasource e Query

Desde já muito obrigado.
Watson

Watson

Curtidas 0

Melhor post

Watson

Watson

23/06/2017

Raimundo muito obrigado pela ajuda, Deus abençoe..
Caso alguém esteja com o mesmo problema segue abaixo : (Resolvido)

begin
with QRY do
begin
QRY.CLOSE;
QRY.sql.Clear;
QRY.sql.Text := 'SELECT SUM(ESTADOROMANEIO) ' +
'AS SOMA_ESTADOROMANEIO FROM romaneio WHERE ESTADOROMANEIO =' + '5';
QRY.open;
Painel_Resultado.caption :=CurrToStr(FieldByName('SOMA_ESTADOROMANEIO').AsCurrency);
end;
end;
GOSTEI 2

Mais Respostas

Igor Lisboa

Igor Lisboa

22/06/2017

Boa tarde, Watson!

Para fazer isso você só precisa incrementar o "AS" no seu código, ficando mais ou menos assim:

SELECT SUM(ESTADOROMANEIO) AS SOMA_ESTADOROMANEIO FROM romaneio WHERE ESTADOROMANEIO = '5' 


Depois só jogar o valor do "SOMA_ESTADOROMANEIO" da query em um edit.

Espero que seja isso.
GOSTEI 0
Watson

Watson

22/06/2017

Igor, Bom dia.
Muito obrigado pelo retorno.
Fiz dessa forma abaixo , ele dá erro no final do meu select aqui ---->> '5' , o que devo colocar aqui ?

begin
with Qry do
begin
Qry.close;
Qry.sql.clear;
Qry.sql.add('SELECT SUM(ESTADOROMANEIO) AS SOMA_ESTADOROMANEIO FROM romaneio WHERE ESTADOROMANEIO = '5'');
Qry.open;
panel2.Caption:= currtostr(fieldbyname('ESTADOROMANEIO').AsCurrency);
end;
end;

end.
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

22/06/2017

Posta a estrutura da Tabela
romaneio
campo desejado para somar e condição
GOSTEI 0
Watson

Watson

22/06/2017

A estrutura da tabela é muito grande, mas vê se ajuda ...
(null) WMAS ROMANEIO 3 ESTADOROMANEIO NUMBER 10 0 0 10 1 (null) (null) 0 0 22 7 YES (null) (null) (null) (null) NO
GOSTEI 0
Watson

Watson

22/06/2017

Amigo, caso queira , por favor me add no skype eu te envio e te explico melhor .
meu skype rocha325
GOSTEI 0
Watson

Watson

22/06/2017

RESOLVIDO
GOSTEI 0
Pedro Lucas

Pedro Lucas

22/06/2017

Raimundo muito obrigado pela ajuda, Deus abençoe..
Caso alguém esteja com o mesmo problema segue abaixo : (Resolvido)

begin
with QRY do
begin
QRY.CLOSE;
QRY.sql.Clear;
QRY.sql.Text := 'SELECT SUM(ESTADOROMANEIO) ' +
'AS SOMA_ESTADOROMANEIO FROM romaneio WHERE ESTADOROMANEIO =' + '5';
QRY.open;
Painel_Resultado.caption :=CurrToStr(FieldByName('SOMA_ESTADOROMANEIO').AsCurrency);
end;
end;


Obrigado cara, me ajudou muito!
GOSTEI 0
POSTAR