pasar registros de una tabla a otra...

[CarlosHernandez]

hola de nuevo....

trabajo con una BDD de firebid 1.5 (.fdb) y tengo que pasar datos de una tabla(tabla1) a otra (tabla2) cuando realizo el cierre del dia, es decir en tabla 2 no hay nada y voy a insertar lo que este en la tabla 1 en las tabla2 y la borro tabla1, todo esto lo hago de la sigueinte manera

ibqtabla1.close;
ibqtabla1.sql.clear;
ibqtabla1.sql.add('select * from tabla1 where fecha=arfecha');
ibqtabla1.prepare;
ibqtabla1.parambyname('parfecha').asstring:=datetimepicker1.date;
ibqtabla1.excsql;//perdon si me equivoque aqui

//este es el bucle
while not ibqtabla1.eof do begin

ibqtabla2.close;
ibqtabla2.sql.clear;
ibqtabla2.sql.add('insert to tabla2 set(campo1,campo2)'values(valor1,valor2)');
ibqtabla2.prepare;

ibqtabla2.excsql;//perdon si me equivoque aqui



next
end;
first;


el problema esta que para 1000 registro diarios se vuelve muy lento dura como 5 min ingresando todo..

quiero saber si hay otra manera de ingresar los datos en tabla2 que no sea por un while do.........?

uso delphi 6.0 y los componentes de interbase...

[delphi.com.ar]

¿Te sirve algo como esto?

Saludos!

[CarlosHernandez]

ok muy agradecido si me sirvio... y agiliza todo, tambien tengo que pasar a otra tabla pero con una serie de condiciones y en ese caso si tiene que ser con while do..... gracias.