🚀 go-pugleaf

On Mon, 9 Dec 2002 23:00:10 +0100, "Dietrich v. Witzleben"
<info@witzleben-edv.de> wrote:

>Sorry,
>
>it's still growing. I'm using Interbase 6.016 / IBExpress
>
>Here is the exact code. The imported RAW-table is 1.488K small. With 10
>deletes/Inserts it is growing about 8MB.
>Also, it takes a long time (6 min) to close the GDB!!
>If I do a backup/restore it shrinks to it's original size.
>
>
>  F_MAIN.TRANS.starttransaction;
>
>  IBSQL1.Sql.Text := 'delete from stock;';
>  IBSQL1.execQuery;

Look at my example again. You need to Commit and StartTransaction
here.

>  IBQuery1.sql.clear;
>  IBQuery1.sql.add('select * from stock');
>  IBQuery1.open;
>  IBQuery1.close;
>
>  F_MAIN.TRANS.Commit;
>
>  F_MAIN.TRANS.starttransaction;
>
>  IBQuery1.sql.clear;
>  IBQuery1.sql.add('select * from stock');
>  IBQuery1.open;
>  IBQuery1.close;
>
>  IBSQL1.Sql.clear;
>  IBSQL1.Sql.add('Insert into stock (');
>  for x:=0 to IBQuery1.FieldDefs.count-2 do begin
>    IBSQL1.Sql.add(IBQuery1.FieldDefs[x].name+',');
>  end;
>  IBSQL1.Sql.add(IBQuery1.FieldDefs[IBQuery1.FieldDefs.count-1].name+')
>values (');
>  for x:=0 to IBQuery1.FieldDefs.count-2 do begin
>    IBSQL1.Sql.add(':'+IBQuery1.FieldDefs[x].name+',');
>  end;
>
>IBSQL1.Sql.add(':'+IBQuery1.FieldDefs[IBQuery1.FieldDefs.count-1].name+')');
>
>  RawInput := TIBInputRawFile.Create;
>  try
>    RawInput.FileName := FileName;
>    IBSQL1.BatchInput(RawInput);
>  finally
>    RawInput.Free;
>  end;
>
>  IBQuery1.sql.clear;
>  IBQuery1.sql.add('select * from stock');
>  IBQuery1.open;
>  IBQuery1.close;
>
>  F_MAIN.TRANS.Commit;
>
>
>
>"Bill Todd" <bill@notthis.dbginc.com> schrieb im Newsbeitrag
>news:pco9vu8ggnpbrg8jq30okset41k765j7nb@4ax.com...
>> delete * from stock
>> Commit
>> StartTransaction
>> select * from stock
>> insert into stock (id...) values (:id ...)
>>
>> Doing the SELECT will let IB garbage collect the deleted rows.
>>
>> On Mon, 4 Nov 2002 18:43:42 +0100, "Dietrich v. Witzleben"
>> <info@witzleben-edv.de> wrote:
>>
>> >delete * from stock
>> >insert into stock (id...) values (:id ...)
>>
>>
>> --
>> Bill (TeamB)
>> (TeamB cannot respond to questions received via email)
>


--
Bill (TeamB)
(TeamB cannot respond to questions received via email)