Duvidas com Trasacoes com IBX

Delphi

28/07/2003

Estou Fazendo um procedimento de Inclusao da sequinte forma


DMT.Transacao_CADBANCO.StartTransaction;
WITH DM.qryCADBANCO DO
Begin
CLOSE;
SelectSQL.Clear;
SelectSQL.ADD(´INSERT INTO CADBANCO´);
SelectSQL.ADD(´(CHAVEBAN,NOMEBAN,ULTUSUABAN)´);
SelectSQL.ADD(´VALUES´);
SelectSQL.ADD(´(´´´+edtCHAVEBAN.Text+´´´,´);
SelectSQL.Add(´´´´+edtNOMEBAN.Text+´´´,´);
SelectSQL.Add(´´´´+sULTUSUABAN+´´´)´);
Execsql;
end;
DMT.Transacao_CADBANCO.Commit;
Except
On EXC : Exception do
Begin
Application.MessageBox(Pchar(´Ocorreu um erro na tentativa de Inclusão do registro : ´+EXC.Message),
´ERROR... ´,MB_OK+MB_ICONERROR);
DMT.Transacao_CADBANCO.Rollback;
end;
end;


Tenho um Transaction para cada Query ou seja cada tabela.

So que ele esta me acusando na hora de confirmar que o transaction is Active, mais todos os transaction estao Active = false, e tambem não start , em lugar algum antes desse procedimento. estou fazendo alguma coisa errado.
Preciso ter um Transaction para cada tabela.


J@ck

J@ck

Curtidas 0
POSTAR