erro usando transação em ibquery
Ola pessoal estou com o seguinte problema....antes de inserir elementos em uma tabela auxiliar eu preciso deletar todos os dados dessa tabela, para isso eu uso o codigo abaixo. O estranho e que fazendo passo a passo verifiquei que o programa não deleta os dados da tabela ele pula da linha IBTransaction2.StartTransaction; ja para IBTransaction2.Rollback, mais não mostra a mensagem de erro......Outra coisa e que esse codigo sempre funciona em outros locais.....o que deve estar errado.....se utizo so a query sem utilizar a transação não da erro mais tb não funciona.
Estou usando delphi 7 com interbase 6.5
with IBQuery2 do
begin
try
if IBTransaction2.active then IBTransaction2.Commit;
IBTransaction2.StartTransaction;
IBQuery2.close;
IBQuery2.sql.clear;
IBQuery2.sql.add('delete from tb_depeaux');
IBQuery2.open;
IBTransaction2.commit;
except
IBTransaction2.Rollback;
showMessage('Ocorreu um erro ao tentar salvar informações.');
exit;
end;
end;Agradeço a ajuda...
Discussão (2)
Carregando comentários...