access mysql mssql 随机 10条数据的sql语句 原创

access 随机 10条数据的方法

select * from table order by rnd(id)

其中rnd(id)中的id为表中的自增长字段
access随机显示记录（不重复）解决方案

<%
'-------------------------数据库连接-----------------------
set objconn = server.createobject("adodb.connection")
objconn.connectionstring = "provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("data.mdb")
objconn.open
'-------------------------数据库连接-----------------------

'-------------------------检索数据-----------------------
strsql = "select id,datacolumn from datatable"
'sql语句，检索数据库
set objrs = server.createobject("adodb.recordset")
'创建记录集
objrs.open strsql, objconn, 1, 1
'执行检索
count=objrs.recordcount
'得到记录总数
item=4
'显示记录数
'-------------------------检索数据-----------------------
'-------------------------------------------------------------------------------
redim a(item, 2),t(count)
'定义2数组，数组a用来储存记录，数组t用来删选记录
'---------------------------------------
'初始数组数值，目的为了插入数据以后和此值做比较
for each j in t
j=0
next
'---------------------------------------
'---------------------------------------
' 随机抽取记录号
randomize timer '初始化随机数生成器
for j=1 to item
k=int(rnd*count+1) '从总数里面随机取一条记录
do while t(k)<>0 '判断是否记录是否已经在数组中
k=int(rnd*item+1)
loop
t(k)=1 '第k条记录被选中
next
'--------------------------------------
j=1:i=1'定义下标
'--------------------------------------
' 循环选取数据集objrs中的部分记录存放到数组中
do while not objrs.eof
if t(j)=1 then
a(i,1)=objrs("id") '记录id
a(i,2)=objrs("datacolumn") '记录内容
i=i+1
end if
j=j+1
objrs.movenext
loop
'--------------------------------------
'-------------------------------------------------------------------------------
'----------------------------显示内容--------------------
for i=1 to item
response.write "序号"&a(i,1)&"<br>"
response.write "内容"&a(i,2)&"<p>"
next
'----------------------------显示内容--------------------
'---------------------------
'释放资源
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
'---------------------------
%>

mssql 随机 10条记录

select * from talbe order by newid()

mysql 随机 10条记录

select * from table order by rand() limit 0,10

原创请注明出处 www.jb51.net