per l'id numerico,
compongo una stringa con 2 serie di 3 cifre generate con un random randomizzato 1 volta per terna di cifre....quindi controllo che questo id sia presente nel db...se è presente, rimando l'id alla funzione per darmi un nuovo id, altrimenti è univoco
di probabilità di darne 2 uguali nello stesso tempo credo (non sono statista) siano vicine allo zero...
codice:
'funzione per creare un id univoco numerico nel database
function CreaIDnum(tabella,connessione)
dim num,id
randomize
num=int((999*rnd())+1)
id=num
randomize
num=int((999*rnd())+1)
id=id & num
'apro la connessione
'apro il recordset
query="select id from [" & tabella & "] where id=" & int(id)
if not recordset.eof then
id=CreaIDnum(tabella,connessione)
end if
'chiudo recordset
'chiudo connessione
CreaIDnum=id
end function