4 tilfældige poster fra DB

Prøv:

SQL = "SELECT TOP 4 * FROM aktiviteter ORDER BY RAND()"

Det kan sgu godt være det ikke virker :) Prøv at kigge på:

http://databases.aspfaq.com/database/how-do-i-retrieve-a-random-record.html

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Driver={MicroSoft Access Driver (*.mdb)};DBQ=c:\mappe1\mappe2\database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From Tabel"
rs.Open SQL, Conn, 1

Do While Not Fundet
  rs.MoveFirst
  Randomize
  rs.Move(int(rs.RecordCount * rnd()))
  If Not rs.EOF And Not rs.BOF Then
      Fundet = True
  End If
Loop

Response.Write rs("Felt")
%>

Så kan du bare sætte SELECT TOP 4 * FROM tabel

madindk->
øøh, måske forstår jeg forkert, men
Hvis jeg først har lavet SELECT TOP 4 *
Så har jeg valgt top 4 records, og så finder jeg bagefter en tilfældig record ud af de 4 ??

Jeg skal bruge 4 tilfældige records fra HELE tabellen.

Har prøvet med nedenstående kode, men problemet er at ID1, ID2, ID3 og ID4 kan blive ens.
'trin 1, finder antal records *********************************************************''
    set rs = objConn.execute("SELECT COUNT(id) FROM aktiviteter")
    rCount = rs(0)

'trin 2
    set rs = objConn.execute("SELECT id FROM aktiviteter")
    cnt = 1
    dim RRs
    redim RRs(rCount)
    do while not rs.eof
        RRs(cnt) = rs(0)
        cnt = cnt + 1
        rs.movenext
    loop

'trin 3
    randomize
    currentRR = cLng(rnd*rCount+0.5)
    ID1 = RRs(currentRR)
   
    randomize
    currentRR = cLng(rnd*rCount+0.5)
    ID2 = RRs(currentRR)

    randomize
    currentRR = cLng(rnd*rCount+0.5)
    ID3 = RRs(currentRR)   

    randomize
    currentRR = cLng(rnd*rCount+0.5)
    ID4 = RRs(currentRR)

Nårh ja, men kan du ikke gøre sådan her?

<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM tabel ORDER BY RAND() "
rs.Open SQL, Conn, 1

Do While not rs.eof Then

  Response.Write(rs("ditFelt")
  rs.movenext

Loop
%>

Er ikke sikker på RAND() virker i Access, hvis det er det du kører med.

jo, det er desværre Access

Og det virker ikke?

nej :-(

Prøv lige den her:

http://www.eksperten.dk/spm/344112#rid3250385

/Goose

SQL = "Select * FROM tabel ORDER BY RND(ID)"

- på betingelse af at du har et unikt numerisk felt, her kaldet ID

Det er vist 10. gang jeg svarer på det indenfor den sidste måned, gad vide hvorfor det er så populært lige nu? Måske laver alle julekonkurrencer for tiden.

Sal der ikke lukkes her?