SOMANDO VALORES VIA SQL

31/03/2003

0

na verdade gostaria de mostrar o valor somado geral num edit

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´Select sum(Salari) from Tabela´);
Query1.Open;


[]´s


Anonymous

Anonymous

Responder

Posts

31/03/2003

Okama

Edit1.Text := Query1.Fields[0].AsString;


ou
==

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´Select sum(Salari) [b:b9add52570]as Total [/b:b9add52570]from Tabela´);
Query1.Open;

Edit1.Text := Query1.FieldByName(´Total´).AsString;


Responder

31/03/2003

Anonymous

Um pouco melhor:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´Select sum(Salari) as Total from Tabela´);
Query1.Open;

{Valores em Reais}
Edit1.Text := currtostrf(Query1.FieldByName(´Total´).Ascurrency,ffcurrency,2);
{Valores formatados}
Edit1.Text := formatfloat(´#,,00.00´,Query1.FieldByName(´Total´).Asfloat);

Espero ter ajudado!

salomaosoares@bol.com.br


Responder

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar