Access - random ?

jurgenMedlem sedan maj 20032 inlägg

Trådstart19 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.