那就这样好了:
假设那个表是rsk=int(rnd*100000) mod rs.RecordCount
rs.movefirst
for i=1 to k
rs.movenext
next i这样就随机到了一个记录了,提取之后重复三遍这样的操作(注意验证是否已经提取过了),呵呵。如果你的数据库允许直接指定AbsolutePosition属性,那么更简单:
rs.AbsolutePosition=int(rnd*100000) mod rs.RecordCount+1
重复四遍这样的操作就可以了。
假设那个表是rsk=int(rnd*100000) mod rs.RecordCount
rs.movefirst
for i=1 to k
rs.movenext
next i这样就随机到了一个记录了,提取之后重复三遍这样的操作(注意验证是否已经提取过了),呵呵。如果你的数据库允许直接指定AbsolutePosition属性,那么更简单:
rs.AbsolutePosition=int(rnd*100000) mod rs.RecordCount+1
重复四遍这样的操作就可以了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货