熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

隨機抽取數據庫中的記錄

2013-11-13 10:40:20  來源: .NET編程 

  數據庫裡有條記錄隨機抽取

  code

<%
數據庫連接
Set objConn = ServerCreateObject(ADODBConnection)
objConnConnectionString = Provider=MicrosoftJetOLEDB; &_
Data Source= & ServerMapPath(datamdb)
objConnOpen
數據庫連接

檢索數據
strSQL = SELECT idDataColumn FROM DataTable
Sql語句檢索數據庫
Set objRS = ServerCreateObject(ADODBRecordset)   
創建記錄集
objRSOpen strSQL objConn   
執行檢索
Count=objRSRecordCount   
得到記錄總數
Item=                                                  
顯示記錄數
檢索數據

  
redim a(Item )t(Count)
定義數組數組a用來儲存記錄數組t用來刪選記錄

  
初始數組數值目的為了插入數據以後和此值做比較
for each j in t
    j=
next

  
隨機抽取記錄號
Randomize timer   初始化隨機數生成器
for j= to Item
    k=int(rnd*Count+) 從總數裡面隨機取一條記錄
    do while t(k)<>                 判斷是否記錄是否已經在數組中
      k=int(rnd*Item+)
    loop
    t(k)=    第k條記錄被選中
next

j=:i=定義下標

  
循環選取數據集objRS中的部分記錄存放到數組中
Do While Not objRSEof
   if t(j)= then
    a(i)=objRS(id)           記錄id
    a(i)=objRS(DataColumn) 記錄內容
    i=i+
end if
j=j+
objRSMoveNext
Loop

  顯示內容
for i= to Item
Responsewrite 序號&a(i)&<br>
Responsewrite 內容&a(i)&<p>
next
顯示內容

  
釋放資源
objRsClose
set objRs=nothing
objConnClose
set objConn=nothing

%>

  Data
id    DataColumn

        a
        b
        c
        d
        e

  // SQL SERVER的話只需要newID()就行了但ACCESS來說它本身不提供newID()這個方法


From:http://tw.wingwit.com/Article/program/net/201311/14267.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.