如何在access数据库里产生随机数？

access中产生随机数用rnd函数。

如：

select  rnd()

执行结果：

说明：

rnd() 产生一个大于等于0 且小于 1的随机数，如果要产生[m,n]中随机的整数公式：int((n-m+1)*rnd)+m

int(rnd()*1000)表达式产生大于0，小于1000的整数

int(rnd()*900)+100表达式产生大于100，小于1000的整数

<%

set rs=server.CreateObject("adodb.recordset")

sql = "select top 1 * from [AAA] where a1=2 ORDER BY Rnd(-(id + " &Int((10000 * Rnd) + 1) &"))"

rs.open sql,conn,1,1

if rs.recordcount>0 then

do while not rs.eof

%>

.....

<%

rs.movenext

loop

end if

rs.close

set rs=nothing

%>

在 where 后面自己加判断就是了，条数 top 1 自己修改，10000 是表 AAA 随机抽取10000的记录条数

总的意思段代码就是 随机读取 带条件类型的 数据，如果实在不清楚，请加我的QQ156107320 。

至于是不是你要的东西，你自己试了就晓得了，希望能帮助到你，大家一起学习，分多分少都没关系。

---