Access veritabanından rastgele veri alma?

[frakaj]

Herkese iyi çalışmalar.

Dosya ve tablo isimlerini örnek olarak veriyorum.
database isimli access veritabanında bulunan kelime isimli tabloda bulunan verilerden herhangibi birini bir buton yardımıyla text'e yazmak istiyorum.

Başka bir anlatım şekliyle excelde hazırladığım userform üzerinde bulunan bir butona her bastığımda veritabanındaki kelime isimli tablodaki verilerilerden birini belirli bir sıraya bağlı kalmadan rastgele textboxa yazması.

İlgilenen olursa sevirinirim.
Şimdiden teşekkürler.:hihoho:

 

[frakaj]

Cevap Bulundu

Uzun bir geceden sonra cevabı biraz araştırma ve deneme yanılma yöntemiyle buldum. Belki başka bir arkadaşın da ihtiyacı olabileceğini düşünerek paylaşıyorum.

strSQL = "SELECT * from tablo where kelime"
RS.Open strSQL, db, 1, 3

sayi = Int(Rnd * RS.RecordCount)
RS.Movefirst

for tur=1 to sayi
RS.Movenext
next tur

textbox1.text = RS("kelime")

RS.Close

Bu komutlarla access veritabanında bulunan tablodaki verilerin kayıt numaraları üzerinden işlem yapmış olduk. Toplan kayıt sayısı içerisinden rastgele bir sayı seçip bu sayıya karşılık gelen kaydı veritabanından alıp textbox'a yazmış olduk.

Herkese iyi çalışmalar. :hihoho: