Mesmo eu comentando o close da Query ele continua dando o mesmo erro...
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 15/12/05, Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
>
> ExecSQL você não abre a query. Voce apenas manda executar uma sentença no
> banco
>
> []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: quinta-feira, 15 de dezembro de 2005 10:54
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Re: Transação com ADO
>
>
> 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=brc
>
> lubs/S=2137111264:HM/Y=BR/EXP=1134589699/A=3135788/R=2/id=noscript/SIG=12c39
> trgo/*
> 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]
> om.br?subject=Unsubscribe>
> >
> > - 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 >>>>>
>
>
>
> 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=12f8besbp/M=386470.7632849.8508174.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1134662250/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
