Fórum Somar coluna de uma tabela com parâmetro! #333175

16/11/2006

0

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

Responder

Posts

16/11/2006

Japasc

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

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


Responder

Gostei + 0

17/11/2006

Joaoshi

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.


Responder

Gostei + 0

17/11/2006

Japasc

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?


Responder

Gostei + 0

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

Aceitar