sql = "select max(id),min(id) from tblWord Where intOk=1"
set rs = conr.execute(sql)
maxId = rs(0)
minId = rs(1)
rs.close
intLoop = 0
Do Until intLoop = 1
Randomize
intWord = Int(Rnd * maxId) + minId
sql = "select strWord from tblWord where id=" &intWord & " and intOk = 1"
set rs = conr.execute(sql)
If rs.eof Then
intLoop = 0
Else
intLoop = 1
strWord = rs("strWord")
End If
rs.close
Loop
Frågan#1
Jag har gjort ett skript som slumpar ett ord från en databas. Problemet jag har är att om jag har ett glapp mellan några iden så söker den inte igenom alla, ex.
Om jag har 6 poster i databasen med id 1,2,3,4,5,9 så visas aldrig posten med id=9 eftersom den slumpar mellan 1-6, eftersom det bara finns 6 poster.
Det vore snällt om någon kunde komma på någon ide så skriptet slumpar igenom alla poster som finns i databasen, kanske går med en sql fråga?
Här har ni min kaotiska kod om det kan vara till någon hjälp :)
sql = "select Count(*) As intAntal from tblWord Where intOk=1"
set rs = conr.execute(sql)
intAntal = rs("intAntal")
rs.close
intLoop = 0
Do Until intLoop = 1
Randomize
intWord = Int(Rnd * intAntal) + 1
sql = "select intOk, strWord, id from tblWord where id=" &intWord
set rs = conr.execute(sql)
If rs.eof Then
intLoop = 0
ElseIf rs("intOk") = 1 Then
intLoop = 1
strWord = rs("strWord")
End If
rs.close
Loop