ActiveDelphi

[luispatm]

Amigos como atualizar preco em toda tabela a função que to usando é essa

Tabela - BASES
Preço - BASEPRICE
Desconto - DISCOUNTING
Precofinal - PRICEDISCOUNT

procedure TF_Basico.BitBtn2Click(Sender: TObject);
var sSql : string;
begin

sSql := \'Update Bases set BASEPRICE = BASEPRICE +(\'+ED_Desconto.text+\'/100*PRICEDISCOUNT)\';
Transacao.TransactionID := 1;
Transacao.IsolationLevel := xilREADCOMMITTED;
DM_Main.SQLConnection.StartTransaction(Transacao);
if (DM_Main.Q_Ins_UpD_Generica.Active = true) then
DM_Main.Q_Ins_UpD_Generica.Close;
DM_Main.Q_Ins_UpD_Generica.SQL.Clear;
DM_Main.Q_Ins_UpD_Generica.SQL.Add(sSql);
DM_Main.Q_Ins_UpD_Generica.ExecSQL();
DM_Main.SQLConnection.Commit(Transacao);
DM_Main.Q_Bases.Refresh;
end;

Se puderem me ajudar!!!

Valeu

[VirtualC]

Ta dando erro? qual??
_________________
Caio Monteiro B. da Silva
Aluno de Mestrado
ITA - Instituto Tecnológico de Aeronáutica
Divisão de Ciência da Computação