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
复制代码 代码如下:
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
标签:
mysql,mssql,随机
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“access mysql mssql 随机 10条数据的sql语句 原创”评论...
更新动态
2024年04月19日
2024年04月19日
- 群星《中国摇滚历程》2CD[WAV分轨][3.2G]
- 张可儿《纯音HQCD》[正版原抓WAV+CUE]
- 群星【水月空禅心HQCD】最有禅意的笛箫演奏[正版CD原抓WAV+CUE]
- 迪克牛仔《我这个你不爱的人》台湾首版[WAV+CUE]
- 郑华娟.1995-旅途与岁月的纪念品(2013华纳复刻版)【飞碟】【WAV+CUE】
- 潘越云.1986-旧爱新欢【百佳唱片NO.31】【滚石】【WAV+CUE】
- 陈淑桦.1991-聪明糊涂心【滚石】【WAV+CUE】
- 魔兽世界PLUSP3阶段输出战士毕业装备 魔兽世界PLUSP3战士装备推荐
- dnf全部时装一览
- dnf公会频道为什么显示灰色
- 群星《好歌30年金曲典藏2CD》[正版CD原抓WAV+CUE]
- 九州方圆二十周年纪念唱片九州方圆歌声1984WAV+CUE
- 珍藏大碟《好歌30年全系列》双碟典藏版8CD[WAV/MP3/分轨]
- 群星《流行新歌告诉你》 2CD[WAV+CUE][1.5G]
- 群星《老情歌对对唱》3CD[WAV+CUE][1.5G]