topic-27466

Posts: 99

Joined: Thu Jul 12, 2007 02:02 PM

Help on CUSTOM INDEX
Posted: Mon Oct 14, 2013 03:45 PM

Hi,

I have a problem with building a custom index.
For example: I have a database with 4 character-fields (
Name1, Name2, Name3, Name4, ...) .and. I want to have every name in my
custom index.

Code (fw): Select all Collapse

#include "Fivewin.ch"

FUNCTION MAIN()
        LOCAL   aStr := { { "NAME1", "C", 10, 0 }, ;
                          { "NAME2", "C", 10, 0 }, ;
                          { "NAME3", "C", 10, 0 }, ;
                          { "NAME4", "C", 10, 0 } }

        FERASE( "TEST.DBF" )
        FERASE( "TEST.DBT" )
        FERASE( "TEST.NTX" )

        DBCREATE( "TEST.DBF", aStr )

        USE TEST

        INDEX ON NAME1 TO TEST CUSTOM        // Create a CUSTOM INDEX

        APPEND BLANK
        REPLACE NAME1 WITH "First"
        REPLACE NAME2 WITH "First2"
        REPLACE NAME3 WITH "First3"
        REPLACE NAME4 WITH "First4"

        APPEND BLANK
        REPLACE NAME1 WITH "Second"
        REPLACE NAME2 WITH "Second2"
        REPLACE NAME3 WITH "Second3"
        REPLACE NAME4 WITH "Second4"

        APPEND BLANK
        REPLACE NAME1 WITH "Third"
        REPLACE NAME2 WITH "Third2"
        REPLACE NAME3 WITH "Third3"
        REPLACE NAME4 WITH "Third4"

        USE

        USE TEST INDEX TEST

        GO 2
        
        ORDKEYADD()                          // Add default KEY field NAME1

        ORDKEYADD( ,, TEST->NAME2 )          // Add KEY for field NAME2


        IF DBSEEK( "Second    " )
                Msgstop( "Second: FIND" )
        ELSE
                Msgstop( "Second: NOT FIND" )
        ENDIF

        IF DBSEEK( "Second2   " )
                Msgstop( "Second2: FIND" )
        ELSE
                Msgstop( "Second2: NOT FIND" )
        ENDIF


        USE
RETURN NIL

The first ORDKEYADD() will work fine, but the following 3 ORDKEYADD()
only will add the Name1 to the index. I will never get Name2, Name3
oder Name4 in my custom index. Whats going wrong??

thanks
Massimo

MarcoBoschi

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Re: Help on CUSTOM INDEX
Posted: Mon Oct 14, 2013 04:15 PM

Because "Second2" does not exist in field name1 in any records

NAME1 NAME2 NAME3 NAME4
First First2 First3 First4
Second Second2 Second3 Second4
Third Third2 Third3 Third4

Is it correct?

Marco Boschi
info@marcoboschi.it

MaxP

Posts: 99

Joined: Thu Jul 12, 2007 02:02 PM

Re: Help on CUSTOM INDEX
Posted: Mon Oct 14, 2013 04:22 PM

Yes,

but I want to add the value of the field Name2 on CUSTOM INDEX

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Help on CUSTOM INDEX
Posted: Mon Oct 14, 2013 10:17 PM

Max,

Using DBFCDX and specifying the first param in OrdKeyAdd() seems to work fine:

Code (fw): Select all Collapse

#include "Fivewin.ch"

request DBFCDX

FUNCTION MAIN()
        LOCAL   aStr := { { "NAME1", "C", 10, 0 }, ;
                          { "NAME2", "C", 10, 0 }, ;
                          { "NAME3", "C", 10, 0 }, ;
                          { "NAME4", "C", 10, 0 } }
        FERASE( "TEST.DBF" )
        FERASE( "TEST.DBT" )
        FERASE( "TEST.NTX" )

        DBCREATE( "TEST.DBF", aStr )

        USE TEST VIA "DBFCDX"

        INDEX ON Field->NAME1 TO TEST CUSTOM        // Create a CUSTOM INDEX

        APPEND BLANK
        REPLACE NAME1 WITH "First"
        REPLACE NAME2 WITH "First2"
        REPLACE NAME3 WITH "First3"
        REPLACE NAME4 WITH "First4"

        APPEND BLANK
        REPLACE NAME1 WITH "Second"
        REPLACE NAME2 WITH "Second2"
        REPLACE NAME3 WITH "Second3"
        REPLACE NAME4 WITH "Second4"

        APPEND BLANK
        REPLACE NAME1 WITH "Third"
        REPLACE NAME2 WITH "Third2"
        REPLACE NAME3 WITH "Third3"
        REPLACE NAME4 WITH "Third4"

        USE

        USE TEST VIA "DBFCDX" // INDEX TEST

        GO 2
        
        MsgInfo( ORDKEYADD( 1 ) )                         // Add default KEY field NAME1

        MsgInfo( ORDKEYADD( 1 ,, TEST->NAME2 ) )          // Add KEY for field NAME2

        DbSetorder( 1 )
        
        IF DBSEEK( "Second    " )
                Msgstop( "Second: FIND" )
        ELSE
                Msgstop( "Second: NOT FIND" )
        ENDIF

        IF DBSEEK( "Second2" )
                Msgstop( "Second2: FIND" )
        ELSE
                Msgstop( "Second2: NOT FIND" )
        ENDIF

        USE
RETURN NIL

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Help on CUSTOM INDEX
Posted: Mon Oct 14, 2013 10:21 PM

http://www.itlnet.net/programming/program/reference/c53g01c/ng83941.html

regards, saludos

Antonio Linares
www.fivetechsoft.com

MaxP

Posts: 99

Joined: Thu Jul 12, 2007 02:02 PM

Re: Help on CUSTOM INDEX
Posted: Tue Oct 15, 2013 05:42 AM

many thanks Antonio

Massimo

FiveTech Support Forums

Continue the discussion