Hur ser en sql fråga ut för slumpvisst ta ut fem stycken rader från en tabell.
randomfunktion i sql
7 svar · 236 visningar · startad av Dino
Får inte det att funka.
Den här koden använder jag:
Set objCon = Server.CreateObject("ADODB.Connection")
' Öppna databas
strSQL = "SELECT COUNT(*) AS stycken FROM tabell"
Set objRS = objCon.Execute(strSQL)
intSt = objRS("stycken")
strDone = ""
i = 0
Do Until blnDone
intSlump = Int(Rnd * intSt) + 1
If InStr(strDone,intSlump) = 0 Then
Set objRS2 = objCon.Execute("SELECT * FROM tabell WHERE ID = " & intSlump)
Response.Write(objRS("kolumn") & "<br>")
Set objRS2 = Nothing
strDone = strDone & " " & intSlump
i = i + 1
End If
If i = 5 Then blnDone = True
Loop
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
Det kanske är lite överflödig, men den funkar. :)
/red Kom på att du använder den med ASP! ;) Annars vet jag inte :p
Om något inte fungerar:
Ange felmeddelande eller beskriv på vilket sätt det inte fungerar.
Ange vilken DBMS du använder.
select top 5 * from t order by newid()
Tack LarsG, fungerar självklart galant. :)