Find Record With Xbasic

[Phil Rolf]

This should be simple but I cannot seem to find the right combination of code. If I have an index called GAMEDATE, how do I FIND a game number (field name - GAMENUM) using a variable called CURGAME in xbasic? The form is called SCHDLINKMS

Thanks

[Stan Mathews]

RE: Find Record With Xbasic

Alpha Five Xbasic Reference Manual 159
"tbl>.fetch_find()
Syntax:
Record Number = "Tbl>.fetch_find( Matching Expression)
Description:
Fetches the first record in the table referenced by with a primary index
key equal to the Matching Expression parameter. The Matching Expression and
the table�s primary index key must have the same data type. Alpha Five will
automatically pad the Matching Expression with trailing blanks if necessary so
that the length of Matching Expression matches the index key length.
If the table�s primary index is record number order, then Matching Expression is
the record number that you want to find.
If .fetch_find() is successful, the found record is retrieved and its Record
Number is returned. If no exact match is found, a negative number
corresponding to the record number of the closest matching record is returned.
Example:
'This script is on a button on a form for a set in which the
inv_item table
'is a child table.
'The script opens the product table. It then finds the record that
matches
'product_id in the inv_item table, and assigns the value from the
qty_stock
'field in product to the on_hand variable
'------------------------------------------------------------------
tbl_product = table.open("c:dataproduct.dbf")
indx_1 = tbl_product.index_primary_put("id_index")
rec = tbl_product.fetch_find(inv_item->product_id)
IF rec > 0 THEN
on_hand = tbl_product.qty_stock
END IF
tbl_product.close()
'This script opens a table and finds record 100
'---------------------------------------------------
tbl = table.open("d:dataproduct.dbf")
'Select record number order
indx_1 = tbl.index_primary_put()
rec = tbl.fetch_find(100)
See Also:
"tbl>.fetch_goto()

Yours should be:
yourtablepointer=table.open("pathtoyourtablle")
rec = yourtablepointer.fetch_find(curgame)
assuming the gamedate index is chosen. (You don't mention your table name)

[Phil Rolf]

RE: Find Record With Xbasic

I found this in the manual but had a hard time understanding. One question I have is where does REC come from? You can use TBL for the table in use.

Thanks

[Stan Mathews]

RE: Find Record With Xbasic

If .fetch_find() is successful, the found record is retrieved and its Record
Number is returned( rec = .

If no exact match is found, a negative number
corresponding to the record number of the closest matching record is returned.

So using this construction you would use the returned value of "rec" to determine if your "find" was successful and proceed accordingly.

[crimmelcp]

RE: Find Record With Xbasic

I use these 2 methods to find records with xbasic

topparent.index_set()
topparent.find()



parentform.index_set("sheetno")
topparent.find()

Charlie Crimmel

[Pat Bremkamp]

RE: Find Record With Xbasic

If the form is based on a table and not a set, then define curgame as a session level varible on your form design and place a field on your form for that variable, then put the following script in the OnDepart event of that field:

dim shared curgame as c 'picks up the variable for use in script
dim pTbl as p 'get a pointer for the table
dim pIndx as p 'get a pointer for the index
dim recno as n 'to hold the record number
if alltrim(curgame)="" 'if a blank is entered, quit
end
end if
pTbl=table.current() 'assumes this is not a set
pIndx=pTbl.index_primary_put("curgame") 'set the index to search
recno=pTbl.fetch_find(curgame) 'go find a match
if recno