首先看一下你的数据量多不多!
不过一般使用Access的数据也不会太多!
你可以这样做,用一个数组,将数据库中的记录不会有重复的列的值储存下来。
然后使用随机函数,从数组中抽区随机一个!
例子:
Dim DBVal()
………………(省略从数据库中读取数据的代码)
这里要强调一点,你数据库中的记录有多少条,你就要重新定义数组的维数上限
可以使用Redim关键字
Redim DBVal(1 To [数据库游标]RecordCount)
然后就可以开始抽选了:
Dim intRecordNum
Randomize '如果你的程序只抽取一条记录,则可以不要这个
intRecordNum = Int((UBound(DBVal) - 1) Rnd) + 1
到这里,已经可以得出想要抽取的记录关键字了,你可以根据DBVal(intRecordNum)作为条件,搜索数据库中与该变量相符合的数据
insert
into
a(id,姓名,性别)
values
(trunc(dbms_randomvalue(1,100)),'小明','男');
commit;
----trunc(dbms_randomvalue(1,100))
随机生成一个1~100以内的整数。
oracle随机读取表中的N条数据方法:
1) select from (select from tablename order by sys_guid()) where rownum < N;2) select from (select from tablename order by dbms_randomvalue) where rownum< N;
3) select from (select from table_name sample(10) order by trunc(dbms_randomvalue(0, 1000))) where rownum < N;
说明:
sample(10)含义为检索表中的10%数据,sample值应该在[0000001,99999999]之间,其中 sys_guid() 和 dbms_randomvalue都是内部函数
注:
在使1)方法时,即使用sys_guid() 这种方法时,有时会获取到相同的记录,即:和前一次查询的结果集是一样的(可能是和 *** 作系统有关:windows正常,linux异常;也可能是因为sys_guid()函数本身的问题,有待继续研究)
所以,为确保在不同的平台每次读取的数据都是随机的,建议采用2)和3)两种方案,其中2)方案更常用。3)方案缩小了查询的范围,在查询大表,且要提取数据不是很不多的情况下,会对查询速度上有一定的提高
OleDbConnection conn = new OleDbConnection();//这个要open的,我就不详细写了
string tableName = "表名";//表的名称
DataSet ds = new DataSet();//DataSet是表的集合
string sql = "select from " + tableName;//sql语句查询数据
OleDbDataAdapter da = new OleDbDataAdapter(sql, conn);//从数据库中查询
daFill(ds, tableName);//将数据填充到DataSet
int recordCount = dsTables[tableName]RowsCount;//记录的数量
int randomNumber = new Random()Next(recordCount);//取得一个随机整数
dsTables[tableName]Rows[randomNumber]//调用该随机记录
以上就是关于如何从access数据库中用SQL语句随机抽取一条数据全部的内容,包括:如何从access数据库中用SQL语句随机抽取一条数据、数据库怎么让一列生成随机数、怎么从一个表中随机取一条数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)