Despejar Dudas con Insert

[Fita]

Hola a todos....
Mi aplicacion en Interbase debe insertar registros en una tabla haciendo
un do while en otra.
La pregunta es que opcion es mejor y porqué, ya que soy nuevo en Interbase.

Aqui va el código de la opcion 1:

Tabla1.First;
while not Tabla1.Eof do
begin
Tabla2.Close;
Tabla2.selecSql.clear;
Tabla2.selecSql.Add('insert into Tabla2 (campo) VALUES (:campo) ' );
Tabla2.ParamByName('campo').AsString := Tabla1Nombre.Value;
Tabla2.Prepare;
Table2.ExecSql;
Transaction.Commit // Transaction enlazada a Tabla2 graba

Tabla1.Next;
end;

Esto funciona pero es lento. Supongo que es la ejecución del Query por
cada registro leido de Tabla1

Codigo de la opcion 2, funciona, es más rápido... pero está bien?

Tabla2.Close;
Tabla2.selecSql.clear;
Tabla2.selecSql.Add('insert into Tabla2 (campo) VALUES (:campo) ' );
Tabla2.Prepare;

Tabla1.First;
while not Tabla1.Eof do
Tabla2.ParamByName('campo').AsString := Tabla1Nombre.Value;
Table2.ExecSql;

Tabla1.Next;
end;

Transaction.Commit // Transaction enlazada a Tabla2 graba

Me gustaría si alguno puede hacer algún comentario al respecto como para conocer un poco más acerca del funcionamiento de Interbase.

Gracias a todos por anticipado

[Carlosguiland]

Hola...

Existe otra opcion

insert into tabla(campo1,campo2)
select campo1,campo2 from tabla2
where condiciones.....


query.ExecSQL

esta esta es mucho mas rapida que las anteriores, pero esta instruccion varia con el manejador de bases de datos, pero debe existir el equivalente en el que estas utilizando

[jachguate]

La segunda forma es mas rapida, dado que el query ha sido "preparado". Es decir, que ya la base de datos ha verificado que la sintaxis sea correcta y ha generado un plan de ejecución para el mismo.

En comparación con la primera forma, en donde estas comprobaciones tienen que realizarse en cada llamada. Si este paso tomara solo 60ms, en 1000 registros es 1 minuto de diferencia!

Saludos.