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
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´Select sum(Salari) from Tabela´);
Query1.Open;
[]´s
Anonymous
Curtir tópico
+ 0
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;
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
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
Clique aqui para fazer login e interagir na Comunidade :)