Hi Jason,
I have placed a SetRangeTest.zip file in the files section. It
contains both an executable and all of the Delphi 7 project/source
files. All it needs is a path specified to an existing firebird DB
and a valid username / password. The test app will create a table
called "TestTable" and insert a couple of rows into it...and then do
a couple of setRange calls to demonstrate the problem. Thanks for
your help.....Its greatly appreciated.

Jeff Gaiche


--- In IBObjects@yahoogroups.com, "Jason Wharton" <supportlist@...>
wrote:

>
> I believe a working sample is the only way I am going to be able to
> productively help with this issue. Is that possible? If there's a

fix I

> can give you to your current source base then I'll do what I can to

get it

> to you so you don't have to upgrade.
>
> Thanks,
> Jason Wharton
>
> > I am encountering a problem with TIBOTable that occurs after
> > setting a range and then changing the IndexName property. I
> > have a function that gets called multiple times and has the
> > same TIBOTable object passed to it. Each time the function
> > is called it saves off the original IndexName property,
> > changes the IndexName , does a SetRange, and then restores
> > the IndexName to the original value. The first time the
> > function is called everything works as expected. There is an
> > odd problem on subsequent calls when the IndexName is set.
> > On the subsequent calls, the SetRange is still in effect from
> > previous passes. After the IndexName is set, it appears that
> > there are no records in the table (i.e. mytable.RecordCount
> > =0). Subsequent SetRange calls do not find any records either.
> >
> > I can do a CancelRange to prevent this from
> > happening...but...its expensive. I can also close/open the
> > table...but...that invalidates field references that I may have.
> >
> > We are using IBO Version 4.5B (an upgrade isn't feasible
> > right now), FireBird 1.5.4
> >
> > Any thoughts on how to prevent the behavior without
> > CancelRange or closing the table ?
> >
> > Below is a contrived example that illustrates the problem:
> >
> >
> > procedure TForm1.TestSetRange;
> > var
> > mytable: TIBOTable;
> > myConnection: TIB_Connection;
> > seq: integer;
> > begin
> > BuildTable;
> > myConnection:=nil; myTable:=nil;
> > try
> > myConnection:=TIB_Connection.Create(nil);
> > myConnection.Username:='<YOUR USERNAME>';
> > myConnection.Password:='<YOUR PASSWORD>';
> > myConnection.Database:='<PATH TO YOUR DATABASE>';
> > myConnection.Connect;
> > myTable:=TIBOTable.Create(nil);
> > myTable.IB_Connection:=myConnection;
> > myTable.TableName:='TestTable';
> >
> > //Pass 1 works correctly
> > mytable.Open;
> > myTable.IndexName:='Sequence2Index';
> > seq:=2;
> > mytable.SetRange([seq],[seq]);
> > showmessage('For Seq: '+inttostr(seq)+' :
> > RecordCount='+inttostr(myTable.RecordCount));
> > myTable.IndexName:='Sequence1Index';
> >
> > //Pass 2 fails to work correctly. myTable.RecordCount
> > is 0 after setting the index
> > //and SetRange does not find any records
> > mytable.Open;
> > myTable.IndexName:='Sequence2Index';
> > //myTable.RecordCount becomes 0 after this line
> > seq:=4;
> > mytable.SetRange([seq],[seq]);
> > showmessage('For Seq:'+inttostr(seq)+' :
> > RecordCount='+inttostr(myTable.RecordCount));
> > myTable.IndexName:='Sequence1Index';
> > finally myConnection.Free; myTable.Free end;
> > end;
> >
> > procedure TForm1.BuildTable;
> > var
> > query:TIB_Query;
> > myConnection: TIB_Connection;
> > begin
> > query:=nil; myConnection:=nil;
> > try
> > myConnection:=TIB_Connection.Create(nil);
> > myConnection.Username:='<YOUR USERNAME>';
> > myConnection.Password:='<YOUR PASSWORD>';
> > myConnection.Database:='<PATH TO YOUR DATABASE>';
> > myConnection.Connect;
> > query:=TIB_Query.Create(nil);
> > query.IB_Connection:=myConnection;
> >
> > query.SQL.Add('drop table TestTable');
> > try query.ExecSql; except end;
> > query.SQL.Clear;
> > query.SQL.Add('create table TestTable (');
> > query.SQL.Add('Sequence1 integer NOT NULL,');
> > query.SQL.Add('Sequence2 integer NOT NULL,');
> > query.SQL.Add('primary key (Sequence1))');
> > query.ExecSql;
> > query.SQL.Clear;
> > query.SQL.Add('create index Sequence1Index on TestTable
> > (Sequence1)');
> > query.ExecSQL;
> > query.SQL.Clear;
> > query.SQL.Add('create index Sequence2Index on TestTable
> > (Sequence2)');
> > query.ExecSQL;
> > query.SQL.Clear;
> > query.SQL.Text:='Insert into TestTable values (1,2)';
> > query.ExecSQL;
> > query.SQL.Text:='Insert into TestTable values (3,4)';
> > query.ExecSQL;
> > query.SQL.Text:='Insert into TestTable values (5,6)';
> > query.ExecSQL;
> > finally myConnection.Free; query.Free end;
> > end;
>