Evitare codice numerico random doppio

[optime]

ah, ecco. imBara

domanda: ma nel db (tabella TBL) c'è qualcosa? una volta generato ok, memorizzi il numero generato così non lo rigenera?

[orcim]

Originariamente inviato da optime
ah, ecco. imBara

domanda: ma nel db (tabella TBL) c'è qualcosa? una volta generato ok, memorizzi il numero generato così non lo rigenera?

Nel db ci sono registrati una serie di numeri; il problema è che la funzione pur avendo previsto il controllo sul nuovo numero generato continua a generare numeri uguali:

Function genera(Max, Min, MaxChar)
	Dim codice, cifra
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 

	genera = cifra
	
	SQL = "select NUMERO from tbl where NUMERO = " & genera
	Set rs = Server.CreateObject("ADODB.Recordset")
	
	response.write SQL
	
    rs.Open SQL, cn
	
	if not rs.eof then
	genera = cifra
	end if

	rs.close
	set rs = nothing
	
End Function 

strVar = lcase(genera(91, 48, 3))

[optime]

per come hai scritto la funzione genera=cifra c'è sempre...

[orcim]

Originariamente inviato da optime
per come hai scritto la funzione genera=cifra c'è sempre...

Scusa non ho capito...

[optime]

leggi quello che hai scritto... quante volte c'è

genera=cifra

?

[orcim]

Originariamente inviato da optime
leggi quello che hai scritto... quante volte c'è

genera=cifra

?

C'è due volte:

- Una per la generazione del numero ed il confronto nel db tramite la query select;
- l'altra si attiva se il numero non esiste nel db ....

... sbaglio qualcosa?

[optime]

sì. la prima assegnazione resta, anche in caso di errore... ragiona

[orcim]

Originariamente inviato da optime
sì. la prima assegnazione resta, anche in caso di errore... ragiona

Scusa ma non capisco come a fare il confronto tra il numero generato dalla funzione e quelli già registrati nel db ...

[Roby_72]

La funzione deve vivere di vita propria.
Estrai un numero
Fai la query sul db
Se trovi nel db il numero estratto richiami la funzione

Roby

[orcim]

Originariamente inviato da Roby_72
La funzione deve vivere di vita propria.
Estrai un numero
Fai la query sul db
Se trovi nel db il numero estratto richiami la funzione

Roby

Per me è più buio di mezzanotte....