Also, adding [lopPartialKey, lopFindNearest] to the locate
causes it to find a different record but still not the first
one.

Thanks
Michael L. Horne

> -----Original Message-----
> From: Michael Horne [mailto:guardian@...]
> Sent: Thursday, November 13, 2003 2:02 AM
> To: IBObjects@yahoogroups.com
> Subject: RE: [IBO] Re: Query.Locate -with OrderingItems & OrderingLinks
>
>
> Using First before the locate doesn't help.
>
> However some additional info on what is happening:
> 1. It seems that the record that is located is always
> the same no matter which order the file is in.
> 2. That record is the first with the code when the
> file is retrieved unordered.
>
> This seems to indicate that when orderinglinks are
> used to determine the order of the records. "Locate"
> must use a method to like:
> select first 1 * from netcomin
> where nc_reference = 'GARY'
> to determine the record ID of the record to position
> to then scans the keys to find the record. When I
> issue the SQL statement above it goes to the record
> that locate is finding.
>
> Is there some setting I am missing??????????
>
> Thanks
> Michael L. Horne
>
> > -----Original Message-----
> > From: james_027 [mailto:james_027@...]
> > Sent: Wednesday, November 12, 2003 7:48 PM
> > To: IBObjects@yahoogroups.com
> > Subject: [IBO] Re: Query.Locate -with OrderingItems & OrderingLinks
> >
> >
> > Hi,
> >
> > I may know one thing, everytime you perform a locate what is the
> > current selected record? is it the first one?
> >
> > --- In IBObjects@yahoogroups.com, "Michael Horne" <guardian@p...> wrote:
> > > Hello,
> > >
> > > I have run into a problem. I need query.locate to
> > > position to the first record with a value, even if
> > > the record ordering has been changed since the query
> > > was opened. That doesn't happen currently, or I am
> > > doing something wrong.
> > >
> > > If I open query of:
> > > SELECT NC_ID, NC_Name, NC_REFERENCE
> > > from NetComIn order by NC_Reference
> > > perform a
> > > query.locate(('NC_Reference', 'GARY', []);
> > > it will position to the first 'GARY'
> > >
> > > However if I have a query of:
> > > SELECT NC_ID, NC_Name, NC_REFERENCE
> > > from NetComIn
> > > with the following OrderingLinks
> > > ByType=NC_name, NC_ID desc; NC_Type desc, NC_ID desc
> > > ByReference=NC_REFERENCE, NC_ID desc; NC_REFERENCE desc, NC_ID desc
> > > perform a
> > > query.locate(('NC_Reference', 'GARY', []);
> > > it will NOT position to the first 'GARY'
> > >
> > > Change the ordering to us the 'ByReference' one and
> > > do the locate it still doesn't find the first record.
> > >
> > > You will find below the code and components I used
> > > to do this.
> > >
> > > I hope you all have some ideals?????
> > >
> > > Thanks
> > > Michael L. Horne
> > >
> > > unit fTest;
> > >
> > > interface
> > >
> > > uses
> > > Windows, Messages, SysUtils, Variants, Classes, Graphics,
> > Controls, Forms,
> > > Dialogs, StdCtrls, ExtCtrls, IB_Components, Grids, IB_Grid;
> > >
> > > type
> > > TformTest = class(TForm)
> > > IB_Query1: TIB_Query;
> > > IB_Grid1: TIB_Grid;
> > > IB_DataSource1: TIB_DataSource;
> > > Panel1: TPanel;
> > > edLocate: TEdit;
> > > Button1: TButton;
> > > btLocateName: TButton;
> > > btLocateRef: TButton;
> > > procedure Button1Click(Sender: TObject);
> > > procedure btLocateNameClick(Sender: TObject);
> > > procedure btLocateRefClick(Sender: TObject);
> > > private
> > > { Private declarations }
> > > public
> > > { Public declarations }
> > > end;
> > >
> > > var
> > > formTest: TformTest;
> > >
> > > implementation
> > >
> > > {$R *.dfm}
> > >
> > > procedure TformTest.Button1Click(Sender: TObject);
> > > begin
> > > ib_Query1.Close;
> > > ib_Query1.Open;
> > > end;
> > >
> > > procedure TformTest.btLocateNameClick(Sender: TObject);
> > > begin
> > > ib_Query1.Locate('NC_Name', edLocate.Text, [lopPartialKey,
> > > lopFindNearest]);
> > > end;
> > >
> > > procedure TformTest.btLocateRefClick(Sender: TObject);
> > > begin
> > > // qyNetComIn.Locate('NC_Reference', 'GARY', [lopPartialKey,
> > > lopFindNearest]);
> > > ib_Query1.Locate('NC_Reference', edLocate.Text, []);
> > > end;
> > >
> > > end.
> > >
> > >
> > >
> > > object formTest: TformTest
> > > Left = 314
> > > Top = 480
> > > Width = 661
> > > Height = 434
> > > Caption = 'formTest'
> > > Color = clBtnFace
> > > Font.Charset = DEFAULT_CHARSET
> > > Font.Color = clWindowText
> > > Font.Height = -11
> > > Font.Name = 'MS Sans Serif'
> > > Font.Style = []
> > > OldCreateOrder = False
> > > PixelsPerInch = 96
> > > TextHeight = 13
> > > object IB_Grid1: TIB_Grid
> > > Left = 0
> > > Top = 97
> > > Width = 653
> > > Height = 310
> > > CustomGlyphsSupplied = []
> > > DataSource = IB_DataSource1
> > > Align = alClient
> > > TabOrder = 0
> > > end
> > > object Panel1: TPanel
> > > Left = 0
> > > Top = 0
> > > Width = 653
> > > Height = 97
> > > Align = alTop
> > > Caption = 'Panel1'
> > > TabOrder = 1
> > > object edLocate: TEdit
> > > Left = 160
> > > Top = 8
> > > Width = 121
> > > Height = 21
> > > TabOrder = 0
> > > Text = 'GARY'
> > > end
> > > object Button1: TButton
> > > Left = 16
> > > Top = 8
> > > Width = 75
> > > Height = 25
> > > Caption = 'Open File'
> > > TabOrder = 1
> > > OnClick = Button1Click
> > > end
> > > object btLocateName: TButton
> > > Left = 16
> > > Top = 40
> > > Width = 75
> > > Height = 25
> > > Caption = 'Loc Name'
> > > TabOrder = 2
> > > OnClick = btLocateNameClick
> > > end
> > > object btLocateRef: TButton
> > > Left = 16
> > > Top = 64
> > > Width = 75
> > > Height = 25
> > > Caption = 'Loc Ref'
> > > TabOrder = 3
> > > OnClick = btLocateRefClick
> > > end
> > > end
> > > object IB_Query1: TIB_Query
> > > DatabaseName = 'C:\Offroad\IB\ORInventory.gdb'
> > > FieldsDisplayWidth.Strings = (
> > > 'NC_REFERENCE=108')
> > > IB_Connection = formIBData.cnMain
> > > SQL.Strings = (
> > > 'select nc_id, nc_name, nc_reference'
> > > 'from netcomin')
> > > ColorScheme = False
> > > MasterSearchFlags = [msfOpenMasterOnOpen,
> > msfSearchAppliesToMasterOnly]
> > > OrderingItemNo = 1
> > > OrderingItems.Strings = (
> > > 'byname=nc_name, nc_id; nc_name desc, nc_id desc'
> > > 'byreference=nc_reference, nc_id; nc_reference desc,
> nc_id desc')
> > > OrderingLinks.Strings = (
> > > 'nc_name=1'
> > > 'nc_reference=2')
> > > BufferSynchroFlags = []
> > > FetchWholeRows = True
> > > Left = 384
> > > Top = 16
> > > end
> > > object IB_DataSource1: TIB_DataSource
> > > Dataset = IB_Query1
> > > Left = 304
> > > Top = 16
> > > end
> > > end
> >
> >
> >
> > __________________________________________________________________
> > _________
> > IB Objects - direct, complete, custom connectivity to Firebird or
> > InterBase
> > without the need for BDE, ODBC or any other layer.
> > __________________________________________________________________
> > _________
> > http://www.ibobjects.com - your IBO community resource for Tech
> > Info papers,
> > keyword-searchable FAQ, community code contributions and more !
> >
> >
> > Your use of Yahoo! Groups is subject to

http://docs.yahoo.com/info/terms/

>
>
>

___________________________________________________________________________
IB Objects - direct, complete, custom connectivity to Firebird or InterBase
without the need for BDE, ODBC or any other layer.
___________________________________________________________________________
http://www.ibobjects.com - your IBO community resource for Tech Info papers,
keyword-searchable FAQ, community code contributions and more !

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/