|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用DBaaS能让收入损失从其他业务上得到弥补,如软件更新和硬件管理。也许决定走DBaaS之路的客户可能会跳过解决方案提供商,尽管这个决策看起来有点短视。数据库里有5笔记录,随机抽取4条。SQLSERVER的话只必要newID()就好了,但ACCESS来讲,它自己不供应newID()这个办法code
--------------------------------------
<%
-------------------------数据库毗连-----------------------
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&Server.MapPath("data.mdb")
objConn.Open
-------------------------数据库毗连-----------------------
-------------------------检索数据-----------------------
strSQL="SELECTid,DataColumnFROMDataTable"
Sql语句,检索数据库
SetobjRS=Server.CreateObject("ADODB.Recordset")
创立纪录集
objRS.OpenstrSQL,objConn,1,1
实行检索
Count=objRS.RecordCount
失掉纪录总数
Item=4
显现纪录数
-------------------------检索数据-----------------------
-------------------------------------------------------------------------------
redima(Item,2),t(Count)
界说2数组,数组a用来贮存纪录,数组t用来删选纪录
---------------------------------------
初始数组数值,目标为了拔出数据今后和此值做对照
foreachjint
j=0
next
---------------------------------------
---------------------------------------
随机抽取纪录号
Randomizetimer初始化随机数天生器
forj=1toItem
k=int(rnd*Count+1)从总数内里随机取一笔记录
dowhilet(k)0判别是不是纪录是不是已在数组中
k=int(rnd*Item+1)
loop
t(k)=1第k笔记录被选中
next
--------------------------------------
j=1:i=1界说下标
--------------------------------------
轮回拔取数据集objRS中的部分纪录寄存到数组中
DoWhileNotobjRS.Eof
ift(j)=1then
a(i,1)=objRS("id")纪录id
a(i,2)=objRS("DataColumn")纪录内容
i=i+1
endif
j=j+1
objRS.MoveNext
Loop
--------------------------------------
-------------------------------------------------------------------------------
----------------------------显现内容--------------------
fori=1toItem
Response.write"序号"&a(i,1)&"<br>"
Response.write"内容"&a(i,2)&"<p>"
next
----------------------------显现内容--------------------
---------------------------
开释资本
objRs.Close
setobjRs=nothing
objConn.Close
setobjConn=nothing
---------------------------
%>
Data
idDataColumn
--------------------------
1a
2b
3c
4d
5e
当然,或许这并不是我们拒绝MySQL的一个有说服力的MySQL学习教程,但是对于一些比较守旧的IT经理来说,在为一些关键业务选择平台的时候,平台的成熟性却是必须要考虑的一个因素,在这一点上,MySQL无疑毫无优势。 |
|