random with a dbf

[Silvio]

I have a dbf where there is a field ( codice)
how I can load an random number to load a record


Regards

[Antonio Linares]

You may use nRandom( <nRange> ) --> nValue to create random numbers.

[Silvio]

thanks antonio
but this func is of fw or harbour ?

[Antonio Linares]

FW/FWH

[Sakis]

Silvio

Try the folowing:

Code: Select all  Expand view  RUN


FUNCTION  Unique()

LOCAL cNumeric:=   STR (HB_RANDOMINT(1,10000) ,5)

// You may use any number instand of 10000

cNumeric := STRTRAN (cNumeric ," ","0")

RETURN( cNumeric)



Regards
Dionisis

[Silvio]

thanks but I must create a random number from a file dbf
on the file dbf i have a numeric field ( codice) :

use IMG alias IMG
totale:= img->(reccount())
Number:=nRnadom(totale)
Go Number

have you another idea ?

[Sakis]

Hello Silvio again

Try the following :

Code: Select all  Expand view  RUN


FUNCTION Unique(nTotale)

RETURN( HB_RANDOMINT(1,nTotale))



Regards
Dionisis

[Silvio]

thanks to all