(Resolvido) Mensagem de erro

[Denis Courcy]

Pessoal trabalho com delphi7 e mysql, hoje deparei com um erro que ainda não tinha visto.

O sistema está enviando mensagem de "No user transaction is currently in progress"

Alguém sabe como contornar/corrigir este erro?

[K!ko]

Pessoal trabalho com delphi7 e mysql, hoje deparei com um erro que ainda não tinha visto.

O sistema está enviando mensagem de "No user transaction is currently in progress"

Alguém sabe como contornar/corrigir este erro?

Hiho!

Esta mensagem se refere a que exatamente?

ela oecorre onde?

[Jhonas]

O sistema está enviando mensagem de "No user transaction is currently in progress"

Mensagem : Nenhuma transação de usuário está atualmente em progresso

Esta mensagem aparece quando voce não inicia a transação do IBTransaction1

ex : IBTransaction1.StartTransaction;

abraço

[Micheus]

E completando o que o Jhonas disse, possivelmente este erro está ocorrendo quando você tenta executar um Commit/CommitRetained

Dedendendo do componente de acesso que você utilize, você tem uma propriedade que pode lhe permite verificar se uma transação está ou não em andamento.

em alguns chama-se simplesmente InTransaction, e aproveitando o exemplo do Jhonas:

if IBTransaction1.InTransaction then
  IBTransaction1.CommitRetained

Nestes casos, é sempre bom citar o componente em uso.

Abraços

p.s. Jhonas, só lembrando que os componentes IB.. são da paleta Interbase, utilizados para Interbase e Firebird. Mas a citação da inicialização da transação está correta. ;)

[Denis Courcy]

Este erro ocorreu em um sistema que fui chamado para socorrer.

Há, no programa, um comando como este abaixo:

try
   db.startTarsacrion;
   qry.ExecSQL;
   db.Commit;
   impressao;
except
   db.rollback;
end;

O erro estava ocorrendo na procedure impressao e, por causa disso, estava pulando para o rollback quando a transação já estava commitada.

Fiz uma pequena mudança no código e o erro foi corrigido.

Pode fechar o caso como resolvido.

A todos que ajudaram, muito obrigado.

[Victor silva]

Este erro ocorreu em um sistema que fui chamado para socorrer.

Há, no programa, um comando como este abaixo:

CODE

try

db.startTarsacrion;

qry.ExecSQL;

db.Commit;

impressao;

except

db.rollback;

end;

O erro estava ocorrendo na procedure impressao e, por causa disso, estava pulando para o rollback quando a transação já estava commitada.

Fiz uma pequena mudança no código e o erro foi corrigido.

Pode fechar o caso como resolvido.

A todos que ajudaram, muito obrigado.

Qual foi a pequena mudança no codigo ?

[Jhonas]

db.startTarsacrion;

db.StartTransaction;

supondo que seja apenas um erro de datilografia, o erro estaria na chamada da impressão depois do commit

abraço