Pegar valor da soma da variável no quot;SUMquot;!!!!

Delphi

29/07/2003

Em minha tabela existe os campos CODPROD, DATA, REF, SALDOLOJA, SALDODEP e QDE, e eu quero somar as quantidades de cada código com a data em que eu desejar, mas como faço para pegar essa soma em que eu jogo na variável VTOTAL? como mostra a seguir...

with Query4 do
begin
if Active then
Close;
SQL.Clear;
SQL.Add(´SELECT CODPROD, SUM(QDE) AS VTOTAL´);
SQL.Add(´FROM MOVV ´);
SQL.Add(´WHERE DATA= Date´);
SQL.Add(´GROUP BY CODPROD´);
Open;
end;

Vtot:=Query4.fieldbyname(´Sum of VTOTAL´).asfloat;
eu fiz isso para pegar a variável VTOTAL mas dá inválido fildbyname VTOTAL....


Rodrigo51

Rodrigo51

Curtidas 0

Respostas

Luciano Pimenta®

Luciano Pimenta®

29/07/2003

Tente assim:
Vtot:=Query4.fieldbyname(´VTOTAL´).asfloat;

:)


GOSTEI 0
Rodrigo51

Rodrigo51

29/07/2003

Vtot:=Query4.fieldbyname(´VTOTAL´).asfloat;

[color=darkblue:f9cc8653e8][b:f9cc8653e8]Eu tentei desse jeito mas deu Field ´VTOTAL´ not found....
Será que deve ser jogado o valor da variável VTOTAL pra uma outra variável global dentro da SQL????[/b:f9cc8653e8][/color:f9cc8653e8]


GOSTEI 0
Kotho

Kotho

29/07/2003

qual o banco que voce esta usando? Se for interbase, substitua date por current_date... Se for oracle, substitua date por sysdate...

Apesar de que se esse for o problema, sua query nao seria aberta, pois acusaria erro. Por acaso voce esta abrindo sua query?


GOSTEI 0
Bugbear

Bugbear

29/07/2003

Dentro da query vc coloca isso

Select Sum(Campo) as Teste From TAbela
Where
Codigo=:Codigo

..depois vai com o botão direito do mouse em cima da query e adcionar fields , vc vai perceber que apareceu uma variavel chamada (Teste),

fazendo isso .. vai aonde vc está fazendo a pesquisa ou sei lá oque

e faz isso

query.close;
query.parambyname(´Codigo´).asstring:=edit1.text;
query.prepare;
query.open;
variavel:=queryteste.asstring;

eh mais ou menos isso ..não esqueça de configurar a query com o Banco de dados certinho e verificar se os campos que vc está usando exista mesmo na tabela do bd ... falow qualquer duvida é só tc


GOSTEI 0
Mysys

Mysys

29/07/2003

mude o select

de

Select Sum(Campo) as Teste From TAbela
Where
Codigo=:Codigo

para

Select Sum(Campo)Teste From TAbela
Where
Codigo=:Codigo

retire o as e coloque o nome temporario junto so sum
dependendo do Banco de dados que vc Utiliza esse comando ele
e diferente

Edit1.text := Query.FieldByName(teste).asString;


GOSTEI 0
POSTAR