Pessoal eu já resolvi o problema colocando um contador mesmo. Foi preguiça de pensar antes de postar o problema. Valew
2008/5/21 Joao Morais <[EMAIL PROTECTED]>: > berdam wrote: > > ué, poe um contador ai quando der mil comita > > ... e quando (VContador mod 1000) = 0 commita. > > > > Jorge Ericsson escreveu: > >> 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 <http://www.jericsson.com.br> > >> 61 9227.4785 / 3967.6172 > >> Brasília - DF > >> > >> [As partes desta mensagem que não continham texto foram removidas] > >> > >> > > > > > -- Att, 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]