Problema de Transação com o ADO - Urgente

19/05/2008

1

Pessoal,

Estou dando manutenção em uma aplicação que usa ADO,
Ela importa informações(insere registros na tabela). Porém a quantidade de informações passa de chegam a quase 2 gb em alguns casos. E ai o banco não aguenta e da problema de Table space.

Uso o banco DB2. e Delphi 5

O problema é o seguinte. Coloquei transações ... para fazer por arquivos..
então deveria funcionar corretamente... como no exemplo a baixo...
só que... a primeira vez ele funciona certinho..inicia transação, efetua commit etc..
quando vai iniciar a segunda vez a trasação ocorre um erro...

Excessão
(Não é possivel iniciar mais transações nesta sessão)

Alguem poderia me ajudar por favor???

EXEMPLO:
try
for nArq := 0 to (dlgOpen.Files.Count - 1) do
begin
if not ADOConnection.InTransaction then
ADOConnection.BeginTrans;

ProcesseLog(dlgOpen.Files[nArq]);

ADOConnection.CommitTrans;
end;
except
ADOConnection.RollbackTrans;
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira