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 ?
Access - random ?
1 svar · 280 visningar · startad av jurgen
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.