Random record

Bruger du MySQL eller Access?

//>Rune

Hvis det er MySQL, så skal du ikke ha' Rnd(feltnavn) med!
Så skal du kun bruge:
SELECT * FROM tblTabelnavn ORDER BY Rand()

//>Rune

Det er bare Access desværre...

Så gør du bare sådan her:

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("abb.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open strDSN

antalRandom = 3
Rs.Open "select * from produkter", Conn,1,3
inDB = rs.RecordCount
If inDB > antalRandom then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound < antalRandom
    Do
      Newid = Int (rnd*inDB)
    Loop while inStr(strIndex,"," & newid & ",") > 0
    strIndex = strIndex & newid & ","
    indexFound = indexFound + 1
  Loop
  strIndex = mid (strIndex,2,len(strIndex)-2)
  myArr=split(strIndex,",",-1)
  For i = Lbound(myArr) to Ubound(myArr)
    rs.move myArr(i),1
     
    'UDSKRIV FRA DATABASEN HER
    Response.write  rs("ID") & "<br>"

  next
end if
Rs.Close

//>Rune

Ok, men giver det ikke samme resultat som mit eget eksempel? Der hiver du jo også alt i tabellen ud. Eller er der noget, jeg har overset?
Jeg er bare bange for at sløve Access alt for meget...

Evt. læs denne artikel:

http://activedeveloper.dk/aspdigital/2001082901.asp

//>Rune

Eller se her:

http://www.eksperten.dk/spm/307278

//>Rune

godt ex her:
http://www.mahcsp.com/demo/viewcode.asp?source=/demo/random.asp

Eksemplet med dagens ID fra ADeveloper, kan jeg desværre ikke bruge, da der skal findes en tilfældig record for hver gang siden opdateres. Det er i forbindelse med en billede-afstemning.

Eagleeyes metode gør vel i bund og grund det samme som det ovenstående.
Altså trækker alt data ud. Er det ikke for krævende, mener du, hvis der er mange poster i tabellen?

oasen> Nej, det ville være det samme som at skrive:

SELECT * FROM tblTabelnavn WHERE ID = 1234452

//>Rune

Tak, hossein - men igen... Så vidt jeg kan se, er også det bare en omskrivning af mit eget eksempel.

Med den where-clause trækker jeg vel heller ikke alle id'er ud?!

Jeg mener bare; Vi kan da ikke komme uden om, at der er forskel på:

1) Select ID From Tabel
2) Select ID From Tabel Where ID = 45

Men der er måske ikke den store forskel?

selv tak!

Alternativt kunne man jo også gøre sådan:

Do While Not Fundet
  Randomize
  Tal = int(MaxID * rnd)
  Set rs = Conn.Execute("Select From Tabel Where ID = " & Tal)
  If Not rs.EOF Then
      Fundet = True
  End If
Loop

Men så er den oprindelige løsning vel at foretrække?

?

Jeg er gået over til MySQL nu, så jeg brugte dit svar nr. 2. Tak, Rune :)

Anytime ;o)
Thx 4 Poinz

//>Rune