#249 - Estrarre un record in maniera casuale

La funzione di oggi permette di estrarre un record casuale da un database.
E' una funzione il più possibile indipendente dal database, dunque non è certo la più performante in assoluto.

<%

' query SQL
strSQLMax = "SELECT Max(ID) as MaxVal FROM tabella"
strSQL = "SELECT Top 1 ID, titolo FROM tabella Where ID = "

' apertura conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn ' la stringa di conn

' estrai valore massimo
Set rs = conn.Execute(strSQLMax)
intMax = rs("maxVal")
rs.Close
set rs = Nothing

' genera valora casuale
Randomize()
intRandom = CInt ((Rnd() * intMax) + 1)

' estrai record
Set rs = conn.Execute(strSQL & intRandom)

' visualizza in qualche modo
' ...

rs.Close
set rs = Nothing

' chiusura conn
conn.Close
set conn = Nothing

%>

Per maggiori informazioni sull'accesso ai database si veda:
http://www.aspitalia.com/articoli/db/


Approfondimenti

Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

realex scrive:
#249 - Estrarre un record in maniera casuale

Come faccio a convertire la direttiva sql top 1 , nel linguaggio sql di mysql ?
martedì 28 gennaio 2003 | 2 risposte

Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.




IN EVIDENZA
MISC