Fórum Erro na função SUM #351027
24/12/2007
0
Senhores uso o Delphi com ADO e MSDE e não estou conseguindo obter o resultado de uma consulta SUM.
O resultado da variavel TotalVal fica zempre ZERO.
Mostro abaixo a procedure usada.
procedure TForm1.Button1Click(Sender: TObject);
var
strsql:string;
totalval:real;
begin
Totalval:=0;
StrSql:=´select SUM(Valor) as Totalval from DAMS´;
Dm.Q1.Close;
dm.Q1.SQL.Clear;
dm.Q1.SQL.Add(strsql);
dm.Q1.Open;
edit1.Text:=floattostr(totalval);
end;
Agradeço ajuda.
Sds
O resultado da variavel TotalVal fica zempre ZERO.
Mostro abaixo a procedure usada.
procedure TForm1.Button1Click(Sender: TObject);
var
strsql:string;
totalval:real;
begin
Totalval:=0;
StrSql:=´select SUM(Valor) as Totalval from DAMS´;
Dm.Q1.Close;
dm.Q1.SQL.Clear;
dm.Q1.SQL.Add(strsql);
dm.Q1.Open;
edit1.Text:=floattostr(totalval);
end;
Agradeço ajuda.
Sds
Rounilo
Curtir tópico
+ 0
Responder
Posts
24/12/2007
Cn.sistemas
edit1.Text:=floattostr(totalval);
tem que ser assim
edit1.Text:=floattostr(dm.Q1.FieldByName(´QUANTITY´).Asfloat);
tem que ser assim
edit1.Text:=floattostr(dm.Q1.FieldByName(´QUANTITY´).Asfloat);
Responder
Gostei + 0
24/12/2007
Cn.sistemas
opa, escrevi errado
é assim
edit1.Text:=floattostr(dm.Q1.FieldByName(´Totalval´).Asfloat);
é assim
edit1.Text:=floattostr(dm.Q1.FieldByName(´Totalval´).Asfloat);
Responder
Gostei + 0
24/12/2007
Pestana_
tambem pode ser feito assim:
pelo jeito está variavel (totalval) não tem uma importância maior neste código, pode ser removido.
flw.
edit1.Text := dm.Q1.FieldByName(´Totalval´).AsString; ou edit1.Text := dm.Q1.Fields[0].AsString;
pelo jeito está variavel (totalval) não tem uma importância maior neste código, pode ser removido.
flw.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)