Subtração de campos com SQL?
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;
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
Curtidas 0
Respostas
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;
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