🚀 go-pugleaf

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;
  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)