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;
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
Curtir tópico
+ 0
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;
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
Clique aqui para fazer login e interagir na Comunidade :)