Access - random ?

jurgenMedlem sedan maj 20032 inlägg

Frågan19 maj 2003 08:53#1

om man vill få ut en slumpvald post av( "Select * From tavlor Where konstrundan='JA'") i en access db.vilket e det snabbaste sättet ?

Engine^Medlem sedan dec. 20003 887 inlägg

20 maj 2003 08:14#2

Använd dig av ett räknarfält, så kan du använda typ följande kodsnutt

Public GetRandomCounter As Integer
  Dim rsValues As New ADODB.RecordSet
  Dim strSQL As String

  strSQL = "SELECT intCounter FROM tavlor WHERE konstrundan = 'JA'"
  rsValues.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

  Randomize
  rsValues.Move CLng((rsValues.RecordCount * Rnd) + 1)

  GetRandomCounter = CInt(rsValues("intCounter"))

  Set rsValues = Nothing
End Function

strSQL = "SELECT * FROM tavlor WHERE intCounter = " & GetRandomCounter

intCounter stoppade jag bara in... om du inte har något sådant fält för att hämta dina tavlor föreslår jag att du lägger till ett sånt fält ;) Det gör hanteringen lite enklare om inte annat.