Hej, Liknande fråga fanns uppe för inte så länge sedan. Använd sökfunktionen först.Få ut slumpmässiga rader ur en tabell
Sitter med en tabell på +100 poster. Jag vill plocka ut 10 st slumpmässigt valda posters ID placera dem i en array:
dim RecSetArray(9)
RecSetArray(0) = Första slumpmässigt valda radens ID
RecSetArray(1) = Andra slumpmässigt valda radens ID
etc etc
Det ska vara 10 olika rader, alltså ska alla RecSetArray(x) vara unika.
Någon som har en aning om hur jag ska göra? Tyvärr är inte tabellen "hel", dvs ID går inte från 1-100, eftersom poster läggs till och tas bort efter hand.
MVH BjörnSv: Få ut slumpmässiga rader ur en tabell
men för att svara på din fråga:
SQL="SELECT TOP 10 ID WHERE ... ORDER BY RND(FÄLT_MED_UNIKT_VÄRDE_FÖR_VARJE_PRODUKT)"
Set RS=Conn.Execute(SQL)
RecSetArray=RS.Getrows()
RS.Close
Då har du ID i RecSetArray
Plocka fram med RecSetArray(0,i)
i från 0 till 9