Question

vb 随机从access数据库中取5条纪录并显示在text文本框中怎么写代码?

erznlie朋友写的肯定会出现重复的，我希望是select top 5 * from table .....这种方式。

Answer 1

以前写过，用的是随机数的方式，下面是实例，你需要的话还要加上是否允许重复取同一条记录的判断！
dim a as long
rs.open "select * from table",conn,1,3
if not rs.eof then
fot i=1 to 5
Randomize
rs.movefirst
a= int(rnd*rs.RecordCount)
rs.move a
text1.text="你需要的代码!"
next i
end if
rs.close

Answer 2

我的想法是，先取得数据库中的所有ID值，然后存放在集合中，再取范围是集合长度的随机数5个（如果随机数重复则重新取），然后根据随机数取得对应的值，然后根据ID取值，我这样做好像比较麻烦哦。呵呵