易语言 ACCESS 随机抽取记录 你随机取的时候,肯定是要有个随机的地方呀,是不是随机试题编号?那么你就置随机数种子,然后试题编号那里取个随机数,不就好了吗
如何从access数据库随机抽取一条数据 这简单,你只要先获取那个数据库的总行数N(学生总数),然后用随机函数Rnd生成一个总数以内的一个整数:Int(Rnd*N),然后用这个数做为条件去查数据库获得需要的信息就。
asp+access 怎样才能随机抽数据库中的记录? 简单高效:不重复随机读取数据库记录Set rs=Server.CreateObject(\"Adodb.RecordSet\")rs.open sql,conn,1,1DIM AppearedCall DisRndRecord(10,rs.recordCount)'调用函数该位置显示记录'#SUBS#'#DisRndRecord(DisNum,rsBound)'#参数DisNum:显示数量'#参数rsBound:随机数产生范围Sub DisRndRecord(DisNum,rsBound)DIM i,ThisRndIf rsBound记录总数小于要抽取记录条数的情况For i=0 To DisNum-1ThisRnd=GetRnd(rsBound)'取得一个不重复的随机数rs.Move(ThisRnd)'游标移动到随机数位置数读取Response.Write(\"(\"&rs(\"id\")&\")\"&rs(\"Title\"))rs.Move(-ThisRnd)NextEnd Sub'#函数GetRnd(bound)返回一个不重复的随机数字'#参数bound:随机范围Function GetRnd(bound)DIM ranNumRandomize()ranNum=int(bound*rnd)If Instr(Appeared,\"[\"&ranNum&\"]\")Then'产生的随机数是否出现过ranNum=getRnd(bound)End IfAppeared=Appeared&\"[\"&ranNum&\"]\"'记录已出现的随机数GetRnd=ranNumEnd Function