terça-feira, 29 de setembro de 2009

Forçar a gravação de dados em tabela paradox

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

Nenhum comentário:

Postar um comentário