Duvidas com Trasacoes com IBX
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.
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
Curtidas 0