Erro de Transação!!!

Firebird

14/08/2003

Caro amigos.

Estou desenvolvendo um sistema, na qual fiz varias SP no interbase e ao codificar a minha aplicação esta dando um erro na transação, dizendo que a transação esta ativa, segue abaixo o código e o erro que esta dando.

************************* ERRO *****************************
Project Project1.exe raised exception class EIBClientError with message ´Tansaction is active´. Process stopped. Use step or Run to Continue.
***********************************************************

************************* CODIGO ***************************
procedure TForm1.Button1Click(Sender: TObject);
begin
IBTransaction1.StartTransaction;
if not IBStoredProc1.Prepared then
IBStoredProc1.Prepare;
IBStoredProc1.ExecProc;
DBEdit1.Text:=IntToStr(IBStoredProc1.ParamBYName(´ID´).asInteger);
IBTransaction1.Commit;
end;

end.
*************************************************************
Lembrando que, estou usando o interbase 6 e o Delphi 7.

Ficarei Grato a quem me ajudar.

Obrigado,
Fernando Di Tomazzo


Ditomazzo

Ditomazzo

Curtidas 0

Respostas

Afarias

Afarias

14/08/2003

vc não disse em que linha ocorre o erro, más acredito q seja no

IBTransaction1.StartTransaction;

pois sua transação já se encontra aberta! Caso isso seja *normal* na sua aplicação, vc pode fazer:

if not IBTransaction1.InTransaction then
IBTransaction1.StartTransaction;


outro detalhe é q vc não precisa usar Prepare com componentes IBX pois o prepare/unprepare é gerenciado automaticamente no IBX.


T+


GOSTEI 0
POSTAR