controllo su codice

[cayman]

Problema devo inserire in una tabella access "prodotti" un prodotto con un codice casuale, prima però voglio controlare che il codice non esista già nella tabella;
Ecco come procedo:

'Seleziono tutti i codici dalla tabella prodotti
querySelect = "SELECT codice FROM prodotti;"
Set objRecordSet = objConnessione.execute( querySelect)

do while not( b)
b = false
codiceRandom = cLng( rnd() * 100)
do while not( objRecordSet.EOF)
codiceTabella = objRecordSet("codice")
if codiceRandom = codiceTabella then
b = true
end if
objRecordSet.moveNext()
loop
loop

Mi esce un ciclo infinito, qualcuno può darmi un suggerimento???

[scorpio84]

nn capisco a cosa server quel codice ke hai scritto, grazie ke il ciclo è infinito, tu gli dici ke deve uscire solo se il codece random generato è ugiale ad uno esitente nel db, in pratica hai 1 possibilità su 100000000000000000000000

Randomize()
trovato = false
Do While Not trovato = true

  codiceRandom = (rnd * 100)

  sql = "SELECT COUNT(*) AS trovato FROM prodotti WHERE codice = " & codiceRandom
  rs.open sql, conn, 1, 2
  if rs.EOF Then
     trovato = true
  end if
  rs.close

Loop