Problema de Transação com o ADO - Urgente
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;
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;
Davefloripa
Curtidas 0