Código
begin
try
DBISaveChanges(Tabela.handle);
Tabela.Refresh;
except
Tabela.Abort;
end;
ou
Procedure Commit(var Tabela:TTable);
begin
try
Tabela.Startransaction;
DBISaveChanges(Tabela.handle);
Tabela.Commit;
Tabela.Refresh;
exept
Tabela.Rollback;
end;
Declare BDE em user
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009