🚀 go-pugleaf

Hi,

Committing didn't help. GDB is still growing, closing the GDB takes up to 6
minutes!

Is there anything I have to set when creating the GDB (PageSize ...)


Here is my code:

  Filename := 'c:\DATAFILE.RAW';

  F_MAIN.TRANS.starttransaction;
  IBSQL1.Sql.clear;
  IBSQL1.Sql.Text := 'delete from STOCK;';
  IBSQL1.execQuery;
  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;

  F_MAIN.TRANS.Commit;





"Bill Todd" <bill@notthis.dbginc.com> schrieb im Newsbeitrag
news:66favuo7kh7r0on6lc1r6hb8qikf6k8qaq@4ax.com...
>
>
> 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)