Tilfældig post fra Access database

Du har sikkert et ID felt der er sat til Autonummerering, ikke ?
Hvis du har det skal du først indlæse ALLE ID\'er i et array, hvorefter du vha. RND udvælger tre ID\'er fra det array. F.eks.

.. db stuff ..

sql = \"SELECT id FROM din_tabel;\"
Set Rs = Conn.Execute(sql)

Dim arrIDs(0)

Do Until Rs.Eof OR Rs.Bof
  arrIDs(UBound(arrIDs)) = Rs(\"ID\")
 
  ReDim Preserve arrIDs(UBound(arrIDs) + 1)
  Rs.MoveNext
Loop

ReDim Preserve arrIDs(UBound(arrIDs) - 1)

Randomize

For Index = 1 To 3 \' find 3 forskellige
  Do
    intIndex = Int(Rnd * UBound(arrIDs))
    strID = arrIDs(intIndex)
  Loop Until strID > \"\"

  sql = \"SELECT * FROM din_tabel WHERE id=\" & strID & \";\"
  Set Rs = Conn.Execute(sql)

  \' .. lav dit udtræk her

  arrIDs(intIndex) = \"\"
Next

.. luk db stuff ..

Ps. Det er skrevet \"i hånden\" dvs. ikke testet!

Jeg vil anbefale dig at downloade Achart fra følgende adresse:
http://www.asp.dk/download.asp?submode=showparent&parent_id=17
Der er den funktion du ønsker, jeg har selv brugt mange koder fra denne side.

Jeg har ikke brugt autonummerering, da jeg har brugt varenummeret som nøglefelt.

okay, så er det meget nemmere:

.. db stuff ..

Randomize

sql = \"SELECT COUNT(*) AS total FROM din_tabel;\" \' tæl antal poster
Set Rs = Conn.Execute(sql)
intCount = CInt(Rs(\"total\"))

sql = \"SELECT * FROM din_tabel;\"
Set Rs = Conn.Execute(sql)

For Index = 1 To 3 \' find 3 forskellige
  intIndex = Int(Rnd * intCount)

  Rs.Move intIndex
  \' .. lav dit udtræk her
Next

.. luk db stuff ..

Takker daugaard :o)

Det var så lidt :-)