Speedup insert into firebird

[Anonymous]

Hi,

I have a simple script which the goal is to insert a some fields into a firebird table. See a example :

REL_PRODUCTS_CATEGORIES:

LOAD (PRODUCTS_ID+1000) as PRODUCTS_ID,

     CATEGORY_CODE,

     SUBCATEGORY_CODE,

     null() as ID

FROM

[$(chemin)\REL_PRODUCTS_CATEGORIES_FIN\$(mac)]

(qvd);

sql delete from REL_PRODUCTS_CATEGORIES;

LET Nrecord = NoOfRows('REL_PRODUCTS_CATEGORIES');

for i = 0 to Nrecord-1

LET PRODUCTS_ID=if ( not isnull(Peek('PRODUCTS_ID',i,'REL_PRODUCTS_CATEGORIES')),chr(39)&replace(Peek('PRODUCTS_ID',i,'REL_PRODUCTS_CATEGORIES'),chr(39),chr(39)&chr(39))&chr(39),'NULL');

LET CATEGORY_CODE=if ( not isnull(Peek('CATEGORY_CODE',i,'REL_PRODUCTS_CATEGORIES')),chr(39)&replace(Peek('CATEGORY_CODE',i,'REL_PRODUCTS_CATEGORIES'),chr(39),chr(39)&chr(39))&chr(39),'NULL');

LET SUBCATEGORY_CODE=if ( not isnull(Peek('SUBCATEGORY_CODE',i,'REL_PRODUCTS_CATEGORIES')),chr(39)&replace(Peek('SUBCATEGORY_CODE',i,'REL_PRODUCTS_CATEGORIES'),chr(39),chr(39)&chr(39))&chr(39),'NULL');

LET ID=if ( not isnull(Peek('ID',i,'REL_PRODUCTS_CATEGORIES')),chr(39)&replace(Peek('ID',i,'REL_PRODUCTS_CATEGORIES'),chr(39),chr(39)&chr(39))&chr(39),'NULL');

sql insert into REL_PRODUCTS_CATEGORIES

(

PRODUCTS_ID,

CATEGORY_CODE,

SUBCATEGORY_CODE

//ID

)

values(

$(PRODUCTS_ID),

$(CATEGORY_CODE),

$(SUBCATEGORY_CODE)

//$(ID)

);

NEXT i

DROP Table REL_PRODUCTS_CATEGORIES;

The problem is that it too long. About 3min for 10000 rows. Is it a method for speed up the application ?

Thanks.