Olá amigos,
Estou desenvolvendo uma rotina gigante de atualização de dados e gostaria de
dá um commit após atualizar 1000 registros na tabela.
O IBExpet ao gerar um script de atualização acima de uma determinada
quantidade de registros já envia o "COMMIT;" ao texto.
Tenho algo +/- da seguinte forma:
query1.open; {esta query retorno uns 30mil registros}
while not eof do
begin
query2.sql.text := 'insert into teste2 etcetcect {precisa de escrever tudo}
query2.parambyname('texte1).Value := query1.fieldbyname('texte').value;
query2.execsql;
commit; {Preciso commita qdo tiver sido inserido 1mil registros.
query1.Next;
end;
Alguém já desenvolveu algo nesse sentido ?
Grande abraço.
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
