Saludos.
Se me ocurre que puedes desactivar los indices si existen, verificar los triggers que se disparan y ver si se pueden desactivar también.
En cuanto al tamaño PageSize tienes: 1024, 2048, 4096, 8192 y 16384.
No entiendo el porque utilizar el componente TpFIBScripter, si el componente TpFIBDataSet puede realizar el Insert perfectamente.
Tanto el TpFIBDataSet como el TpFIBQuery tiene los siguientes métodos de Batch:
function BatchInput(InputObject: TFIBBatchInputStream) :boolean;
function BatchOutput(OutputObject: TFIBBatchOutputStream):boolean;
procedure BatchInputRawFile(const FileName:string);
procedure BatchOutputRawFile(const FileName:string;Version:integer=1);
procedure BatchToQuery(ToQuery:TFIBQuery; Mappings:TStrings);
Otra cosa que se me ocurre es que podrías hacer Soft Commit cada x cantidad de registro.
Espero haberte ayudado, hasta luego.
__________________
Gracias,
Rolphy Reyes
|