Antonio, no! If this line comment out is functioning!
But when i make a dbseek() with found()==.F. the recordpointer also go to lastrec()+1 and no moree seeks are possible!
ATTENTION: THIS BEHAVIOR ONLY IN SEEKS WITH UDF.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ADO RDD xHarbour
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 (1047 posts)
Gunther,
Please place a msginfo in ado.seek after ELSE //WITH :FILTER OR MOE THAN ONE FIELD and check if it is called.
You can place another one in the else for not softseek reporting npos.
Regards
Antonio H Ferreira
Antonio H Ferreira
Please place a msginfo in ado.seek after ELSE //WITH :FILTER OR MOE THAN ONE FIELD and check if it is called.
Yes, is called
You can place another one in the else for not softseek reporting npos.
shows 0
IF nPos > 0
oRS:BookMark := aWAData[ WA_ABOOKMARKS ][aWAData[WA_INDEXACTIVE]] [ npos ][ 1 ]
ELSE
oRs:MoveLast()
oRs:MoveNext()
ENDIFIf it gets here and is 0 then goes eof and !found.
Then the key is not in the array.
Are you trying both seeks with the same key ?
The first that works and the second?
Regards
Antonio H Ferreira
Antonio H Ferreira
Antonio, on both no found()!
Conclusion: Always if i use dbsetorder() before dbseek() and the recordpointer is on lastrec()+1 and a UDF is in work the index is not functioning! 
So its a set order problem!
If you browse it is it ordered ok?
Place again a msginfo( len( aWAData[ WA_ABOOKMARKS ][aWAData[WA_INDEXACTIVE]] ) the same place as before and check if effectively has the index built.
Regards
Antonio H Ferreira
Antonio H Ferreira
Gives 72 (the len of table).
Recordpointer stands on lastrec()+1 and the table is not indexed.
Try the same after dbsetorder and check with ordname and ordkey inyour app order is in fact active.
Regards
Antonio H Ferreira
Antonio H Ferreira
Antonio, the name and the key is active!
Gunther
And the len of the array?
Regards
Antonio H Ferreira
Antonio H Ferreira
Len of array is the len of the table!
Try this:
Having the msginfo in ado_seek as previously.
SET ADODBF TABLES INDEX LIST TO { {"AW2015",{"REV",'REV2TO2(REDATUM)'},{"RR","bu_korrindex(redatum,ideingdat)"},{"EW",'REV2TO2(REDATUM)'} } }
SET ADO INDEX UDFS TO {"IF","&","SUBSTR","SUBS","==","REV2TO2","REVEING","BU_KORRINDEX"}
//TESTADISC->(dbgoto(TESTADISC->(lastrec()+1)))
TESTADISC->(dbsetorder(1))
BROWSE() //IS IT WELL ORDERED ?
GO TOP // TRY WITH AND WITHOUT THIS
BROWSE() //IS IT WELL ORDERED ?
TESTADISC->(dbseek("0227"))
MSGINFO( CVALTOCHAR(FOUND())+" "+CVALTOCHAR(EOF()) ) // .F. .T. ?
GO TOP
MSGINFO(RECNO())
DO WHILE !EOF()
? INDEXKEY(0) //DO YOU SEE THE KEYYOU ARE SEEKING?
SKIP
ENDDO
Browse()Having the msginfo in ado_seek as previously.
Regards
Antonio H Ferreira
Antonio H Ferreira
Antonio, the results:
Now the recordpointer is NOT on lastrecord()
//TESTADISC->(dbgoto(TESTADISC->(lastrec()+1)))
TESTADISC->(dbsetorder(1))
BROWSE() //IS IT WELL ORDERED ? -> ordered well
GO TOP // TRY WITH AND WITHOUT THIS //equal
BROWSE() //IS IT WELL ORDERED ? -> ordered well
TESTADISC->(dbseek("0227"))
MSGINFO( CVALTOCHAR(FOUND())+" "+CVALTOCHAR(EOF()) ) // .F. .T. ? -> .T. .F.
GO TOP
MSGINFO(RECNO()) // -> 1
DO WHILE !EOF()
? INDEXKEY(0) //DO YOU SEE THE KEYYOU ARE SEEKING? -> key is right
SKIP
ENDDO
Browse() // -> stands on lastrec()+1Now the recordpointer is NOT on lastrecord()
Just a idea: should the lenght of bookmark-array have also reccount()+1?
Antonio, please send to my email office(at)byte-one.com a short description from the way you process indexes with UDFs! I will try to help you to ident the problem.
Good Night!