Question

如何从数据库中随机抽取不重复数据

vb中，adodc连接access数据库，如何实现每次单击命令按钮从学生表中随机抽取一个不重复的学生信息，并将学生姓名显示在text文本框中，学生表中有“id”“姓名”“电话号码”三个字段。
数据库已在form-load连接成功，只需写随即抽取记录代码即可，以下是可能用到的几行代码，请高手详加指点。
Adodc1.RecordSource = "select * from 学生表 where id=" & Int((Adodc1.Recordset.RecordCount * Rnd))
......
Adodc1.Refresh
Set Label2.DataSource = Adodc1
Adodc1.Refresh
text1.text = "姓名"
要点：
1.每次单击按钮随机抽取一条非空数据
2.需要连续单击按钮，也就是连续抽取
3.抽取的是不重复的数据

Answer 1

Adodc1.RecordSource = "select top 1 * from 学生表 order by rnd(id)"，随机1个
Adodc1.RecordSource = "select top 10 * from 学生表 order by rnd(id)"，随机10个

追问

是要每次随即抽取一个，但我要连续抽取，怎么样做到不重复呢？

追答

定义一个变量IDS，保存已抽取的ID，每次抽取后：IDS=IDS & "," & ID；然后用not in（即不包含）：
Adodc1.RecordSource = "select top 1 * from 学生表 where id not in (" & mid(ids,2) & ") order by rnd(id)"

Answer 2

form_load()获取所有学生名字到一个数组，按钮事件产生随机数（根据数组大小）作为索引获取学生名字，并将该名字从数组删除（用一个中间数组做过度）。将数组改为collection可以简化代码。