Here's one for you! I have a database which has as it's index the date and time of the inputted item - call them InputDate and InputTime. I want to have a search button which will take the user to the start of the InputDate, so that they could scroll down through the records and find the record they want. Because the key is non-unique, I can't get it to work. Any thoughts?
-
-
RE: search a non-unique key
Charles,
First thought here would be to leave the index set as you describe, but fetch_find() only the date. Should take you to the first entry for the date, and all other entries would remain in time order...
-- tom -
RE: search a non-unique key
XBasic is NEVER simple! Oh for the good old days of dBaseIII! Oh well, Here's the code I've got...
tbl = table.current()
tbl.index_set("sdate2")
searchdate = ui_get_date("seardate","What date to you want to search FROM?",dtoc(date()))
if searchdate "" then
seardate = ctod("searchdate")
end if
tbl.fetch.find(seardate)Comment
-
RE: search a non-unique key
Tom,
I made a few changes and here's what works...
tbl = table.current()
searchdate = ui_get_date("seardate","What date to you want to search FROM?",dtoc(date()))
if searchdate "" then
seardate = ctod(searchdate)
end if
tbl.fetch_find(seardate)
The trick is theat the index needs to be of the same data type expression or it won't work. I found this out by performing the steps interactively. That sure helps a lot to test things out. Then you can go through things step by step.
I'm far from done with this latest job, so I may yet still need you invaluable help!!! Thanks.Comment
-
RE: search a non-unique key
Tom,
I'm hung up again. It was working! I swear!
Here's my code...
dim seardate as d
dim searchdate as c
dim orderdate as d
tbl = table.current()
tbl.index_primary_put("orderdate")
tbl.fetch_first()
searchdate = ui_get_date("seardate","What date to you want to search FROM?",dtoc(date()))
if searchdate "" then
seardate = ctod(searchdate)
end if
tbl.fetch_find(seardate)
The orderdate index is simply sdate (the input date). I keep getting errors saying I have the wrong expression types, but try as I might, I can't get them to go away.
Any thoughts?Comment
-
RE: search a non-unique key
Tom,
Here's another way I'm fond of. I put a radio button on a form so the user can select the method of searching. The then fill in a variable box to the right called search_for. Here they would enter the date they wanted to start their search at. I then put a Find button next to that with this code (in part)...
CASE Search_by.value = "IDate"
topparent.index_set("sdate")
dim seardate as d
dim searchdate as c
''seardate = ctod(search_for.value)
topparent.find(search_for.value)
I left out the rest of the case statement, but you get the idea. Trouble is, it won't look up. No errors, but it won't go to the record. Any ideas?Comment
-
RE: search a non-unique key
Looking at your original effort, you say that the index is based on date and time. If you let Alpha create the index (call it test) and the date and time fields are date and character respectively, A5 will define the index as
cdate(datefield)+timefield
For your find to work, your find string must match the first part of the index. CDATE returns 20020505 whereas CTOD and DTOC return 05/25/2002 and won't match.
Finally, assuming that you are running this from a button on a form, you must resynch your form to show the change.
This works:
'===
tbl = table.current()
tbl.index_primary_put("Test")
searchdate = ui_get_date("seardate","What date to you want to search FROM?",dtoc(date()))
if searchdate "" then
seardate = cdate(ctod(searchdate))
end if
tbl.fetch_find(seardate)
parentform.resynch()
'===
FinianFinian
Comment
-
RE: search a non-unique key
Thanks. I like this a lot. You're right. I did fall into that date trap late last night and was thinking of old dBase coding.
I'll try out what you have here. I really appreciate your kind help!Comment
Comment