Problem opening database

[Marc Vanzegbroeck]

Hi,

Here I have a little example that is not working.
The program doens't open the countu.tmp database.
Can anyone tell me why. It is working in FW + clipper 5.2e

Code: Select all

#INCLUDE "fivewin.CH"
REQUEST DBFCDX
FUNCTION test()
   local vstruct:={}
   RDDSETDEFAULT("DBFCDX")
   dbstructuur:={}
   aadd(vstruct,{'NTWKNUM','C',2,0})
   aadd(vstruct,{'NODENUM','C',2,0})
   aadd(vstruct,{'NODETYP','C',5,0})
   aadd(vstruct,{'NTWKTYP' ,'C',5,0})
   aadd(vstruct,{'POINTS' ,'N',7,0})
   dbcreate('count.tmp',vstruct)
   use ('count.tmp') new
   index on str(val(ntwknum),2) to ('countu') unique
   copy to ('countu.tmp')
   use countu.tmp new
   go top
RETURN nil

The error occur in the last line 'go top'

Thanks
Marc

[Antonio Linares]

Marc,

Try to place a SysRefresh() call in between, as it may be still open:

copy to ('countu.tmp')
SysRefresh()
use countu.tmp new

[Marc Vanzegbroeck]

Hi,

The problem is solved by replacing

Code: Select all

index on str(val(ntwknum),2) to ('countu') unique 

with

Code: Select all

index on str(val(ntwknum),2) tag ('countu') unique 

In FW + six-driver the first line also works fine.

Regards,
Marc

[Antonio Linares]

Marc,

What was the replacement ? The two lines are the same

[Marc Vanzegbroeck]

Antonio,

In the first line is INDEX ON ... TO ... and the second is INDEX ON ... TAG ...

Marc

[Antonio Linares]

ok, thanks