check randomness function
Published: Thursday, December 20, 2018 written by Drew Jackson
i was trying to randomly walk a 156GB database and randomly go through millions and millions of records, so I decided to see if you this randomness function would work without salting the rnd generator, it worked... , given an upper bound, my upper bound row id was 1526763840.. so try this..
'check randomness function
Debug.Print("randomness function test")
For x = 1 To 1000
r = CInt(Math.Ceiling(Rnd() * 1526763840) + 1)
Debug.Print(x & vbTab & r)
correction: use this in place of the r = line above
'r = CInt(Math.Ceiling(Rnd() * maxDBrecords) + 1)
Static Generator As System.Random = New System.Random()
r = Generator.Next(1, maxDBrecords)
'as long as r is within bounds
more to come.
if you found this article helpful, consider contributing $10, 20 or so..to the author. more authors coming soon
FYI we use paypal or patreon, patreon has 3x the transaction fees, so we don't, not yet.
© 2019 myBlog™ v1.1 All rights reserved. We count views as reads, so let's not over think it.