Fórum Subtração de campos com SQL? #213427

12/02/2004

0

Ola,

Eu estou com seguinte comando abaixo, mas serve para somar, e gostaria de acrescentar linha de codigo para subtrair um campo do outro. Como faço?

Precisso!
Obrigado!
Marcus

procedure TForm_principal.BitBtn1Click(Sender: TObject);
var
Soma:Integer;
begin
Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add(´Select Sum(Debito) Debito From debito_credito.db´);
Query1.Prepare;
query1.open;
Soma:=Query1.FieldByName(´Debito´).AsInteger;
DBEdit19.Text:=IntToStr(Soma);
end;


Marcao1000

Marcao1000

Responder

Posts

12/02/2004

Luineumann

se entendi o que você quer faça

procedure TForm_principal.BitBtn1Click(Sender: TObject);
var
Soma:Integer;
begin
Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add(´Select Sum(Debito - Credito) as Difer From debito_credito.db´);
Query1.Prepare;
query1.open;
Soma:=Query1.FieldByName(´Difer´).AsInteger;
DBEdit19.Text:=IntToStr(Soma);
end;


Responder

Gostei + 0

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

Aceitar