Access中随机读取数据库的前N条记录,每次刷新不同

Access中随机读取数据库的前N条记录（不仅仅是order by rnd(id)）

select top n * from [table] order by rnd(id) 'id:

randomize
id=cint(rnd*100) 'cint函数将随机数转为整型。
sql="select top 1 * from [tablename] order by "&id
con.execute(sql)

SELECT TOP 5 [TestTitle] FROM [TestTable] ORDER BY Rnd(-(TestID+"&Rnd()&"))

自己写的源码，步聚如下：

第一，要调用外部的随机函数;

<%Function RndNumber(Min,Max)
Randomize
RndNumber=Int((Max - Min + 1) * Rnd() + Min)
End Function %>

第二，使用循环语句，更新数据库;

do while not rsProduct.eof 

sql1="update product set rand1="&RndNumber(20,1000)*10&" where id="&rsProduct("id")&""
  conn.execute sql1

第三，按随机字段排序;

 sqlProduct=sqlProduct & " order by rand1 desc"