如何在窗体上实现“随机限量”查询

程研

前两天发了一条帖子，没有实例，今天补上！问题是：在查询同类数据库信息时，如何实现对同类数据库信息的随机查询。见实例：13个同龄（15岁）的同学，要“随机选取”10个同龄（15岁）的同学。谢谢各位老师！也顺便祝各位老师们新年愉快！见附件。

玉树TMD临风

Select TOP 10 * From TABLE Order BY Rnd(Len(姓名)) 试试

lynnwang

看试简单，实际操作起来，虽然代码都很简单，但还真有点步骤。

lynnwang

Private Sub Command4_Click()
    Dim i As Long, cnt As Long, n As Long
    Dim rst As DAO.Recordset
    Const SelNumbers As Long = 5

   
    Set rst = sfm学生表.Form.Recordset.Clone
    cnt = rst.RecordCount
    Randomize

    For i = 1 To SelNumbers
        n = cnt - (Int(cnt * Rnd) + rst.AbsolutePosition)
        Debug.Print n
        If n <> 0 Then
            rst.Move n
        End If
        Debug.Print "随机记录ID"; rst.Fields(0).Value
    Next
   
    '将选出的“随机记录ID”组成SELECT查询语句条件，即可
   
    rst.Close: Set rst = Nothing

End Sub

lynnwang

这里主要应用了RECORDSET对象的Clone和MOVE方法

当然上面代码实现楼主的随机性目的，但还有两个问题要解决：
1，需要考虑，随机选到重复的记录
2，源数据的记录数小于你的限量数（如18岁只有3条记录时）

lynnwang

共了40分钟把思路给了你，重点代码也给你了，剩下的看你自己了。

问题1用到的
'--------------------------------------------------
'Purpose:   检查指定的值是否在列表中
'Input:
'       [in]    FindVal:   需要查找的值
'Output:    (Boolean)
'--------------------------------------------------
Public Function IsInList(ArrayList() As Long, ByVal FindVal As Long) As Boolean
    Dim i As Long
    For i = LBound(ArrayList) To (UBound(ArrayList))
        If ArrayList(i) = FindVal Then IsInList = Not IsInList: Exit Function
    Next i
End Function

程研

lynnwang 发表于 2014-1-16 22:06
共了40分钟把思路给了你，重点代码也给你了，剩下的看你自己了。

问题1用到的

十分谢谢老师的指点！我再消化消化！

玉树TMD临风

不用那么麻烦
把下面这段代码复制到你的ＶＢＡ窗体里，把随机那个命令按钮的单击事件选上即可．

Private Sub Command4_Click()
Me.学生表_子窗体.Form.RecordSource = "Select TOP 5 * From 学生表 where 年龄=" & Me.Text2.Value & " Order BY Rnd(Len(姓名))"
Me.学生表_子窗体.Form.Requery
End Sub

lynnwang

玉树TMD临风 发表于 2014-1-17 19:10
不用那么麻烦
把下面这段代码复制到你的ＶＢＡ窗体里，把随机那个命令按钮的单击事件选上即可．

TOP X + Order BY Rnd(整形字段)，正解
我的是瞎扯了