Ver Mensaje Individual
  #1  
Antiguo 12-01-2006
Avatar de CarlosHernandez
CarlosHernandez CarlosHernandez is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Reputación: 23
CarlosHernandez Va por buen camino
Question pasar registros de una tabla a otra...

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...
__________________
begin
[email protected]
end;
Responder Con Cita