Exportar datos eficientemente
Tengo el siguiente ciclo para guardar todos los datos de una tabla a otra, pero me agradaría otro código que sea mas eficiente les agradezco su ayuda. Les pido paciencia porque se que es algo sencillo, pero aun no tengo los conocimientos necesarios. Gracias por ser mis maestros!!!
tablas
Temporal -Campos->(Id_socio,id_pelicula,NOMBRE_PELICULA,FECHA_RETIRO,FECHA_REINTEGRO)
Alquiler -campos->(Id_socio,id_pelicula,NOMBRE_PELICULA,FECHA_RETIRO,FECHA_REINTEGRO)
modulo.IBAlquiler.SelectSQL.Clear;
modulo.IBAlquiler.SelectSQL.Add('SELECT * FROM Alquiler');
modulo.IBAlquiler.Open;
while not modulo.IBTemporal.Eof do begin
modulo.IBAlquiler.Insert;
modulo.IBAlquiler.FieldValues['Id_socio'] := modulo.IBTemporal.FieldValues['Id_socio'];
modulo.IBAlquiler.FieldValues['id_pelicula'] := modulo.IBTemporal.FieldValues['id_pelicula'];
modulo.IBAlquiler.FieldValues['NOMBRE_PELICULA'] := modulo.IBTemporal.FieldValues['NOMBRE_PELICULA'];
modulo.IBAlquiler.FieldValues['FECHA_RETIRO'] := modulo.IBTemporal.FieldValues['FECHA_RETIRO'];
modulo.IBAlquiler.FieldValues['FECHA_REINTEGRO'] := modulo.IBTemporal.FieldValues['FECHA_REINTEGRO'];
modulo.IBAlquiler.Post;
modulo.IBAlquiler.close;
modulo.IBTemporal.Next;
end;
Última edición por Zakio14 fecha: 23-03-2008 a las 21:35:15.
|