Subtração de campos com SQL?

Delphi

12/02/2004

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

Curtidas 0

Respostas

Luineumann

Luineumann

12/02/2004

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;


GOSTEI 0
POSTAR