access mysql mssql 随机 10条数据的sql语句
<p><strong>access 随机 10条数据的方法</strong></p><p"><br/>select * from table order by rnd(id)<p><br/>
其中rnd(id)中的id为表中的自增长字段<br/><strong>access随机显示记录（不重复）解决方案 </strong></p><p"><br/><%<br/>
'-------------------------数据库连接-----------------------<br/>
Set objConn = Server.CreateObject("ADODB.Connection")<br/>
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_<br/>
"Data Source=" & Server.MapPath("data.mdb")<br/>
objConn.Open<br/>
'-------------------------数据库连接-----------------------<br/><br/>
'-------------------------检索数据-----------------------<br/>
strSQL = "SELECT id,DataColumn FROM DataTable"<br/>
'Sql语句，检索数据库<br/>
Set objRS = Server.CreateObject("ADODB.Recordset")<br/>
'创建记录集<br/>
objRS.Open strSQL, objConn, 1, 1<br/>
'执行检索<br/>
Count=objRS.RecordCount<br/>
'得到记录总数<br/>
Item=4<br/>
'显示记录数<br/>
'-------------------------检索数据-----------------------<br/>
'-------------------------------------------------------------------------------<br/>
redim a(Item, 2),t(Count)<br/>
'定义2数组，数组a用来储存记录，数组t用来删选记录<br/>
'---------------------------------------<br/>
'初始数组数值，目的为了插入数据以后和此值做比较<br/>
for each j in t<br/>
j=0<br/>
next<br/>
'---------------------------------------<br/>
'---------------------------------------<br/>
' 随机抽取记录号<br/>
Randomize timer '初始化随机数生成器<br/>
for j=1 to Item<br/>
k=int(rnd*Count+1) '从总数里面随机取一条记录<br/>
do while t(k)<>0 '判断是否记录是否已经在数组中<br/>
k=int(rnd*Item+1)<br/>
loop<br/>
t(k)=1 '第k条记录被选中<br/>
next<br/>
'--------------------------------------<br/>
j=1:i=1'定义下标<br/>
'--------------------------------------<br/>
' 循环选取数据集objRS中的部分记录存放到数组中<br/>
Do While Not objRS.Eof<br/>
if t(j)=1 then<br/>
a(i,1)=objRS("id") '记录id<br/>
a(i,2)=objRS("DataColumn") '记录内容<br/>
i=i+1<br/>
end if<br/>
j=j+1<br/>
objRS.MoveNext<br/>
Loop<br/>
'--------------------------------------<br/>
'-------------------------------------------------------------------------------<br/>
'----------------------------显示内容--------------------<br/>
for i=1 to Item<br/>
Response.write "序号"&a(i,1)&"<br/>"<br/>
Response.write "内容"&a(i,2)&"<p>"<br/>
next<br/>
'----------------------------显示内容--------------------<br/>
'---------------------------<br/>
'释放资源<br/>
objRs.Close<br/>
set objRs=nothing<br/>
objConn.Close<br/>
set objConn=nothing<br/>
'---------------------------<br/>
%></p><p><br/><strong>mssql 随机 10条记录</strong></p><p"><br/>
select * from talbe order by newid()<p><br/><br/><strong>mysql 随机 10条记录</strong></p><p"><br/>
select * from table order by rand() limit 0,10</p"></p"></p"></p">
頁:
[1]