Tenho uma aplicação (SQL Server + ADO) e estou querendo abrir uma transação,
executar um insert por exemplo e dar o commit caso ocorra alum erro retornar
com o rollback mas não sei como fazer. Tentei fazer desse tipo
with ADOQryExecutar do
begin
Close;
SQL.Text := String(S);
Prepared := True;
try
if not ADOConnection.InTransaction then
ADOConnection.BeginTrans;
ADOQryExecutar.ExecSQL;
ADOConnection.IsolationLevel := ilReadCommitted;
ADOConnection.CommitTrans;
except
On e:Exception do
begin
ADOConnection.RollbackTrans;
end;
end;
mas ocorre um erro, gostaria de um socorro!!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
