关于随机抽取数据的问题???

Question

dim rs as adodb.recordset
        Set rs = New ADODB.Recordset
        
        rs.Open "数据库查询语句", _
             cn, adOpenStatic, adLockBatchOptimistic
          for i=1 to 100
            s = Int(Rnd * (rs.RecordCount - 1) + 1)
            rs.Move s
            Text1.Text = rs("字段")
          next
        rs.Close
        Set rs = Nothing

Answer 1

补充：查询之前先连接
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "数据库连接字符串"

Answer 2

可否详细点.如果数据库为db1,表名为id,数据库为access 97.
代码中的[数据库查询语句]如何写.谢谢

Answer 3

请问这句子得到是一个怎样的随机数??
Int(Rnd * (rs.RecordCount - 1) + 1)

Answer 4

Dim cn As ADODB.Connection
Private Sub Form_Load()
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:\...\db1.mdb;Mode=ReadWrite;Persist Security Info=False"
       dim rs as adodb.recordset
        Set rs = New ADODB.Recordset
        
        rs.Open "SELECT id.字段名  FROM  id ", _
             cn, adOpenStatic, adLockBatchOptimistic
          for i=1 to 100
            s = Int(Rnd * (rs.RecordCount - 1) + 1)
            rs.Move s
            Text1.Text = rs("字段名")
          next
        rs.Close
        Set rs = Nothing
end sub

Answer 5

Int(Rnd * (rs.RecordCount - 1) + 1)得到1到rs.RecordCount 的记录数

Answer 6

如果Microsoft.Jet.OLEDB.4.0连接不上，使用Microsoft.Jet.OLEDB.3.51

Answer 7

还是不明白如何得到随机记录,做一个工程传给我怎样?
my email is : [email protected]

Answer 8

Rnd 函数
      返回一个包含随机数值的 Single。语法Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。返回值如果 number 的值是 Rnd 生成 
小于 0 每次都使用 number 作为随机数种子得到的相同结果。 
大于 0 序列中的下一个随机数。 
等于 0 最近生成的数。 
省略 序列中的下一个随机数。 
说明Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
 
Rnd 函数示例
本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。Dim MyValue
MyValue = Int((6 * Rnd) + 1)   ' 生成 1 到 6 之间的随机数值。