Certo Walter, eu fechei a Query mas essa Query eu uso pra executar
insert,delete ou updates direto no banco, eu nunca dou open com ela. Mais
uma duvida, as transações so são feitas em insert, delete e updates?? antes
de executar um desses comandos eu não tenho q iniciar uma transação?
obrigado pela atenção Walter!!!
with ADOQryExecutar do
begin
Close;
SQL.Text := String(S);
Prepared := True;
try
ADOConnection.IsolationLevel := ilReadCommitted;
if not ADOConnection.InTransaction then
ADOConnection.BeginTrans;
ADOQryExecutar.ExecSQL ; <<<==== Com ela eu executo comandos no banco e
não dou open;
ADOConnection.CommitTrans;
except
On e:Exception do
ADOConnection.RollbackTrans;
end;
Em 14/12/05, Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
>
> Pelo que tou vendo aí, você fechou a query e tentou dar um início de
> transação:
>
> with ADOQryExecutar do
> begin
> Close; <- FECHOU A QUERY
> SQL.Text := String(S);
> Prepared := True;
>
> try
> ADOConnection.IsolationLevel := ilReadCommitted; <- INICIOU A TRANSAÇÃO
> MAS NÃO DEU O OPEN
>
>
> []s
>
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
>
>
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Eduardo Suruagy
> Enviada em: quarta-feira, 14 de dezembro de 2005 13:39
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Re: Transação com ADO
>
>
> Eu troquei a ordem coloquei o nivel de isolamento antes do
> ADOConnection.BeginTrans; mas
>
> o erro que da é o seguinte:
>
> Project Centra.exe raised exception class EOleException with message
> 'Operação não
>
> permitida quando o objeto está fechado'. Process stopped. Use Step or Run
> to
> continue
>
> Será q eu tenho q configurar alguma coisa nos componentes ADOQryExecutar
> ou
> no
>
> ADOConnection para trabalhar con transação???
>
> with ADOQryExecutar do
> begin
> Close;
> SQL.Text := String(S);
> Prepared := True;
>
> try
> ADOConnection.IsolationLevel := ilReadCommitted;
>
>
> if not ADOConnection.InTransaction then
> ADOConnection.BeginTrans;
>
> ADOQryExecutar.ExecSQL ;
> ADOConnection.CommitTrans;
> except
> On e:Exception do
> ADOConnection.RollbackTrans;
> end;
>
>
>
>
> Em 13/12/05, Eduardo Suruagy <[EMAIL PROTECTED]> escreveu:
> >
> > 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 >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
> <http://br.rd.yahoo.com/SIG=12f1s2c04/M=386470.7632849.8508174.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1134589699/A=3135788/R=2/id=noscript/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com>
> ------------------------------
> *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]<[EMAIL PROTECTED]>
>
> - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
[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
