Procedure Commit(var Tabela:TTable);
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
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário