Somar coluna de uma tabela com parâmetro!

Delphi

16/11/2006

Boa tarde a todosm tentei encontrar no forum o que eu precisava, mais acho q por burrice minha não achei então é o seguinte, eu tenho uma tabela e quero somar alguns itens dessa coluna baseado num código, etnão tenho uma query com o seguinte código:

SELECT SUM (TOTAL) FROM TABVENDA2

ai no botão para somar eu tentei fazer isso:

procedure TFormVenda2.BitTerminarClick(Sender: TObject);
var
totalvenda:real;
begin
QuerySomaColuna.Open;
totalvenda := QuerySomaColuna.FieldValues(´total´).asfloat;
tabvenda.Edit;
TabVendaCodvenda.AsInteger := strtoint(edit1.Text);
TabVendaCodcli.AsInteger := 1;
TabVendaDatavenda.AsDateTime := date;
TabVendaTotalvenda.asfloat := totalvenda;
TabVenda.Post;
end;

só que não está dando certo, se alguém puder ajudar agradeço.

Detalhe: Delphi 7, Paradox

Grato


Japasc

Japasc

Curtidas 0

Respostas

Japasc

Japasc

16/11/2006

Desculpe a sql da query contém o seguinte código:

SELECT SUM (TOTAL) FROM TABVENDA2 WHERE CODVENDA = :COD


GOSTEI 0
Joaoshi

Joaoshi

16/11/2006

Colega, se ainda não resolveu.

Esta é a sua instrução:
SELECT SUM (TOTAL) FROM TABVENDA2
Desta forma você não tem uma field TOTAL, deve ter algo do tipo SUM OF TOTAL.

Você deve dar um ´apelido´ para o ´SUM´.
SELECT SUM (TOTAL) [b:202a9a629d]AS TOTAL[/b:202a9a629d] FROM TABVENDA2

Espero ter ajudado.


GOSTEI 0
Japasc

Japasc

16/11/2006

Olá amigo consegui fazer o que eu queria dessa forma

QuerySomaColuna.Active := FALSE;
QuerySomaColuna.ParamByName(´COD´).ASINTEGER := StrToInt(Edit1.Text);
QuerySomaColuna.Active := TRUE;

tabvenda.Edit;
TabVendaCodcli.AsInteger := 1;
TabVendaDatavenda.AsDateTime := date;
TabVendaTotalvenda.asfloat := DBEdit1.Field.AsFloat;
TabVenda.Post;


Mais essa forma que vc falou como eu uso depois?


GOSTEI 0
POSTAR