Strange Index problem for ADS RDD

kokookao2007 · Post by **kokookao2007** » Mon Sep 03, 2007 6:26 am

hi all :

I have a item database whice has a normal index key.

But the sort was very strange .

NO (item.dbf)
=================
HST-1002-1
HST-1002
HST-1002-2
HST-1002-4
HST-1002-3

USE ITEM NEW EXCL
INDEX ON NO TO ITEM
BROWSE()

show in ADS RDD:
HST-1002-1
HST-1002-2
HST-1002-3
HST-1002-4
HST-1002 ==> shoule be first

should be:
HST-1002
HST-1002-1
HST-1002-2
HST-1002-3
HST-1002-4

Anyone know about it ?

--
Best Regards
-----------------
kokoo KAO

Detlef Hoefner · Post by **Detlef Hoefner** » Mon Sep 03, 2007 7:13 am

kokookao2007,

plerase try as the following ...

Code: Select all

USE ITEM NEW EXCL 
INDEX ON NO TO ITEM 
SET INDEX TO ITEM
BROWSE()

hth,
Regards,
Detlef

kokookao2007 · Post by **kokookao2007** » Mon Sep 03, 2007 8:01 am

HI Detlef :

SET INDEX TO ITEM

SAME !!

Detlef Hoefner · Post by **Detlef Hoefner** » Mon Sep 03, 2007 10:06 am

kokookao2007,

i'm sorry but i've no experience with ADS.

But what happens if you code

Code: Select all

USE ITEM NEW EXCL 
INDEX ON NO TO ITEM 
SET INDEX TO ITEM 
item->( dbGoTop() )
BROWSE()

If it's still the same, you should ask our ADS master, RF for help.

Regards,
Detlef

RAMESHBABU · Post by **RAMESHBABU** » Mon Sep 03, 2007 5:11 pm

Hello Mr.kokoo KAO

I am using ADS 7.10 and I am getting the same result what you are
expecting. And this is the result browse screen of the test program :

Code: Select all


#include "fivewin.ch"
#include "ads.ch"

FUNCTION main()

* Advantage Database Server Settings
REQUEST ADS, ADSKeyCount, ADSKeyNo, OrdKeyCount, OrdKeyNo

rddRegister( "ADS", 2 )
rddsetdefault( "ADS" )
SET SERVER LOCAL
SET FILETYPE TO CDX
AdsSetDeleted(.T.)

?adsversion()

USE adsindex.asc
INDEX ON adsindex->no TO adsindex
SET INDEX TO adsindex

BROWSE()

RETURN nil

AND THE RESULT SCREEN IS :

http://img129.imageshack.us/my.php?imag ... dexer2.png]

Which version of ADS you are using ?

Regards

- Ramesh Babu P

Rick Lipkin · Post by **Rick Lipkin** » Mon Sep 03, 2007 6:53 pm

To All

Do not use a database pointer in the creation of your indexes ..

USE adsindex.asc
INDEX ON adsindex->no TO adsindex
SET INDEX TO adsindex

INDEX on no To adsindex ..

Rick Lipkin
SC Dept of Health, USA

R.F. · Post by **R.F.** » Mon Sep 03, 2007 9:14 pm

The Following code, tested under ADS 7.1 and 8.1 works as expected, in both CDX and NTX file formats:

Test were made with xHarbour 99.61

REQUEST ADS
RDDSETDEFAULT("ADS")
AdsSetServerType(7)
AdsSetFileType(1)
USE kokoo
INDEX ON NO TO kokoo
Browse()

kokookao2007 · Post by **kokookao2007** » Tue Sep 04, 2007 3:21 am

hi all:

?adsversion() ==> 8.10

Do not use a database pointer in the creation of your indexes ..

INDEX ON adsindex->no TO adsindex
INDEX ON no TO adsindex

==> same

my xHarbour version :99.70

what my screen image:
http://kokookao.myweb.hinet.net/xharbou ... browse.jpg

try edit item no:

HST-1002-1
HST-1002 ==>HST-1002-
HST-1002-2
HST-1002-4
HST-1002-3

BROWSE():
HST-1002- ==>first now
HST-1002-1
HST-1002-2
HST-1002-3
HST-1002-4

why HST-1002 can not sort in first ?
bug or library problem ?
it is correct sort in "dbfcdx" rdd .

--
Best Regards
-----------------
kokoo KAO

kokookao2007 · Post by **kokookao2007** » Wed Sep 05, 2007 6:11 am

try xHarbour 0.99.61 ==>same problem

database browse field NO:
================
HST-1002-1
HST-1002-2
HST-1002-3
HST-1002-4
HST-1002
===============

cITEM:="HST-1002"+SPACE(2)

DBSEEK(cITEM) //==> Correct
DBSEEK(TRIM(cITEM)) //==> not Correct , seek "HST-1002-1"

looks like a bug ?

R.F. · Post by **R.F.** » Wed Sep 05, 2007 3:49 pm

Curious thing:

If you add a "-" at the end it sorts acording to what you need, if you leave a space instead of the "-" it sends to the end of the indexed item.

Let me check with xHarbour.com

James Bott · Post by **James Bott** » Wed Sep 05, 2007 4:31 pm

>DBSEEK(TRIM(cITEM)) //==> not Correct , seek "HST-1002-1"

This is not a bug, it is correctly finding the first match to "HST-1002" which is 'HST-1002-1"

If you want to seek for an exact match, you always have pad the search item to the length of the field being seeked.

James

kokookao2007 · Post by **kokookao2007** » Thu Sep 06, 2007 2:23 am

hi James :
Thank you for reply.

IN RDD "DBFCDX" FIELD NO:
================
HST-1002
HST-1002-1
HST-1002-2
HST-1002-3
HST-1002-4
===============
DBSEEK(TRIM(cITEM)) //==> "HST-1002 "

IN RDD "ADS" FIELD NO:
================
HST-1002-1
HST-1002-2
HST-1002-3
HST-1002-4
HST-1002
===============
DBSEEK(TRIM(cITEM)) //==> "HST-1002-1"

What my problem is the Index Sorting not correct , not dbseek() problem.

--
Best Regards
-----------------
kokoo KAO

James Bott · Post by **James Bott** » Thu Sep 06, 2007 5:41 am

>What my problem is the Index Sorting not correct , not dbseek() problem.

I understand about the index problem and I don't have an answer for that.

For the seek, it appears that the ADS RDD is incorrect.

James

kokookao2007 · Post by **kokookao2007** » Mon Sep 10, 2007 1:51 am

hi all:

Should I edit any includ file code for RDD "ADS" ?

#include "fivewin.ch"
#include "ads.ch"

RddRegister( "ADS", 1 )
RddSetDefault( "ADS" )

SET FILETYPE TO CDX

AdsSetServerType(1) //local
AdsSetDeleted(.T.)

USE ITEM NEW EXCL
INDEX ON ITEM->NO TO ITEM
=>
dbUseArea(.T.,,"ITEM",,if(.F. .or. .T.,!.T.,NIL),.F. )
dbCreateIndex((FILE_TH + "ITEM"),"ITEM->NO",{||ITEM->NO},IIF(.F.,.t.,NIL ) )

Now the "Index on " command transfer form fwstd.ch.

Best Regards
-----------------
kokoo KAO