Random udtræk fra database ?!?

http://www.eksperten.dk/kat/3?searchtype=txt&words=random&method=and&sort=score&catid=3

//>Rune

<%
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM DinTabel"
rs.Open SQL, Conn, 1

randomize
rs.Move(int(rs.RecordCount * rnd))
%>

<%=rs("DinRecord")%>

måske ? ellers så er der den fine søgefunktion som medions svarede med

Well, det kunne jo oxo gøres sådan her:

Forudset du har en tabel der hedder tblNavne og i den har du kolonnerne id og navne

<%
    Function RandomRs(intInterval)
        Randomize
        lngTal = CInt(Rnd() * intInterval)
       
        If lngTal = 0 Then
            RandomRs = lngTal + 1
        Else
            RandomRs = lngTal
        End If
    End Function
   
    Set objConn = Server.CreateObject("ADODB.Connection")
   
    objConn.Open "Driver={MicroSoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
    strSQL = "SELECT COUNT(*) FROM tblNavne"
    Set objRsCount = objConn.Execute(strSQL)
   
    Randomize
   
    strSQL = "SELECT * FROM tblNavne WHERE id = " & RandomRs(objRsCount(0))
    Set objRs = objConn.Execute(strSQL)
   
    Response.Write(objRs("Navne"))
%>

//>Rune

<%

Set rs_id = conn.execute ("select id from tabelnavn")

myarray = rs_id.getrows()

myMax = ubound(myarray,2)

response.write "rækker ialt = " & myMax & "<br>"


Randomize  'ryst posen
myrow = Int((mymax * Rnd) + 1)  'find tilfældig række
response.write "tilfældig række = " & myrow & "<br>"

id = myarray(0,myrow)

set rs = conn.execute ("select felt1,felt2 from tabelnavn where id = " & id)

response.write rs("felt1")

%>

//akj

Ok så er der lidt at arbejde med :o) Jeg er lidt usikekr på den randomize, skal den ikke stoppes efter endt brug eller er det lige meget ?

Det er lige meget... Den randomizer bare dit dokument når det er loaded.. det er fintfint :)

//>Rune

Hej venner,

Alle de ovenstående tilfældig-række-funktioner, som I foreslår har faktisk nogle heftige performance-problemer. Hvis det skal køre rigtig hurtigt, er det vigtigt at undgå at læse mere end den ene, tilfældige række, som man skal bruge (eller så få som muligt).

darkstar >> og din løsning på problemmet er ....

//akj

Ok så langt så godt det virker fint :o) Men hvis jeg så vil lave det således at jeg har en tabel med 2 rækker og 2 kolonner hvor tekst og billed vises modsat på 2 random udtræk er der så oxo en lille finte man kan lave der ?

Hmm den forstår jeg ikke helt.. prøv lgie at beskrive den igen...

//>Rune

Altså 2 kolonner og 2 rækker i en tabel den er du sikkert med på så prøver jeg lige at tegne det for dig :

                  Kolonne 1                  Kolonne 2


Række 1          billed her                tekst her




Række 2          tekst her                billed her

Var det bedre ?

!"#¤%&/
Det er hvordan du vil ha' dit randomudtræk jeg er i tvivl om!

//>Rune

Der er ikke meget at lave random på ;-)

Hvi der altid er 2 og kun 2 kan du jo lave det med en "if"

if tilfældigrække1 = 1 then
tilfældigrække2 = 2
else
tilfældigrække2 = 1
end if

//akj

ok jeg prøver igen hvergang siden loades skal der random hentes 2 udtræk fra databasen og de to udtræk skal så ligge forskudt i tabellen som vist oven for.

<%

Set rs_id = conn.execute ("select id from tabelnavn")

myarray = rs_id.getrows()

myMax = ubound(myarray,2)


Randomize  'ryst posen
myrow = Int((mymax * Rnd) + 1)  'find tilfældig række

id = myarray(0,myrow)

set rs = conn.execute ("select id, felt1,felt2 from tabelnavn where id = " & id)

response.write rs("felt1") & " " & rs("felt2")




Set rs_id = conn.execute ("select id from tabelnavn where id <> " & rs("id"))

myarray = rs_id.getrows()

myMax = ubound(myarray,2)


Randomize  'ryst posen
myrow = Int((mymax * Rnd) + 1)  'find tilfældig række

id = myarray(0,myrow)

set rs = conn.execute ("select felt1,felt2 from tabelnavn where id = " & id)

response.write rs("felt2") & " " & rs("felt1")


%>

//akj

dk_akj>>> Jeg skrev ikke noget fordi at jeg ikke umiddelbart kunne komme på en rigtig god løsning, men her er da en:

size = 1000
sample = size / 10
Randomize
rseed = Int(Rnd * 1000000)
rselect = Int(Rnd * sample)

set rs = conn.execute ("SELECT TOP 1 * FROM mintabel WHERE " & rselect & "= ((" & rseed & " * (" & sample & " + 17)) mod (" & sample & " - 3)")

Den benytter SQL til at vælge en tilfældig række. Desværre vil flere rækker opfylde kriteriet, hvorefter at man får databasen til at smide alle pånær den første væk. rsize skal sættes til et tal som svarer nogenlunde til antallet af rækker i databasen (det må dog gerne afvige en del - performance falder blot i takt med at tallet afviger).

De løsninger hvor man henter alle id'er er rigtigt dårlige, da systemet vil få elendig performance når der er mange rækker. Den næst-værste løsning (som kan blive det, man bliver nødt til at gøre) er at bruge min løsning ovenfor, hvor size sættes til det reelle antal rækker i tabellen via en forespørgsel. Det burde køre væsentligt hurtigere.

Iøvrigt har jeg ikke testet koden ovenfor. Der skal nok tweakes lidt på parametrene. Det er vigtigt at de to tal ((rseed * ( sample + 17)) og sample - 3 i flest mulige tilfælde har 1 som største fælles divisor. Ellers bliver udvælgelsen ikke så tilfældig. Derfor de to tal 17 og 3.

Ok jeg vil kigge på det hele når jeg kommer tilbage til min pc igen senere :o)

Et lille p.s.: hvis man er rigtigt uheldig, vil min kode ikke resultere nogen rækker overhovedet, men det burde ske meget sjælent. I så fald kan man bare køre den igen.

Lukketid?

//>Rune