Don't forget to use BeginBuys() and EndBusy to eliminate screen hourglass
flickering.

> -----Original Message-----
> From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]On
> Behalf Of Svein Erling Tysvaer
> Sent: Tuesday, November 07, 2006 2:28 PM
> To: ibobjects@yahoogroups.com
> Subject: Re: [IBO] Firebird performance / IBO
>
>
> Normally, I'd say 1150 records per second when inserting a record
> consisting of two BigInt fields is slow when there's no network
> involved, but it depends on what you mean by 'more to the process'.
>
> Try code similar to this:
>
> var
> BigIntField1,
> BigIntField2,
> BigIntField1In,
> BigIntField2In: TIB_Column;
> begin
> TIB_DSQL1.Prepare;
> TIB_Cursor1.Prepare;
> BigIntField1:=TIB_DSQL1.ParamByName('BigIntField1');
> BigIntField2:=TIB_DSQL1.ParamByName('BigIntField2');
> BigIntField1In:=TIB_Cursor1.FieldByName('BigIntField1');
> BigIntField2In:=TIB_Cursor1.FieldByName('BigIntField2');
> TIB_Cursor1.First;
> while not TIB_Cursor1.eof do
> begin
> BigIntField1.AsInteger:=BigIntField1In.AsInteger;
> BigIntField2.AsInteger:=BigIntField2In.AsInteger;
> try
> TIB_DSQL1.Execute;
> except
> end;
> TIB_Cursor1.Next;
> end;
> TIB_Transaction1.Commit;
> end;