佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > 記錄集內(nèi)隨機取記錄的代碼

記錄集內(nèi)隨機取記錄的代碼
熱門標簽：Linux服務(wù)器 服務(wù)器配置 阿里云 科大訊飛語音識別系統(tǒng) 團購網(wǎng)站 電子圍欄 Mysql連接數(shù)設(shè)置 銀行業(yè)務(wù)
%
' Moving to random record - Steven Jones' Extension
If Not(記錄集名稱.bof and 記錄集名稱.eof) Then
' reset the cursor to the beginning
If (記錄集名稱.CursorType > 0) Then
記錄集名稱.MoveFirst
Else
記錄集名稱.Requery
End If

記錄集名稱_totalrn = -1
記錄集名稱_totalrn = 記錄集名稱.RecordCount ' ony works on some recordsets, but much faster
If (記錄集名稱_totalrn = -1) Then ' and if it didn't work, we still have to count the records.

' count the total records by iterating through the recordset
記錄集名稱_totalrn=0
While (Not 記錄集名稱.EOF)
記錄集名稱_totalrn = 記錄集名稱_totalrn + 1
記錄集名稱.MoveNext
Wend

' reset the cursor to the beginning
If (記錄集名稱.CursorType > 0) Then
記錄集名稱.MoveFirst
Else
記錄集名稱.Requery
End If

End If

' now do final adjustments, and move to the random record
記錄集名稱_totalrn = 記錄集名稱_totalrn - 1
If 記錄集名稱_totalrn > 0 Then
Randomize
記錄集名稱.Move Int((記錄集名稱_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>

標簽：衡水 萍鄉(xiāng) 江蘇 衢州 大理 棗莊 蚌埠 廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標題《記錄集內(nèi)隨機取記錄的代碼》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    晋江市| 南川市| 乌鲁木齐市| 灯塔市| 木里| 连平县| 黎城县| 尉犁县| 鱼台县| 呼玛县| 永嘉县| 治县。| 白河县| 棋牌| 株洲市| 大田县| 富阳市| 吴江市| 高台县| 泸溪县| 会同县| 九寨沟县| 西乡县| 巴青县| 江津市| 玛多县| 尼木县| 韶山市| 内黄县| 崇文区| 临颍县| 扎赉特旗| 湘西| 铜陵市| 济源市| 什邡市| 黄陵县| 海口市| 兴山县| 郁南县| 额尔古纳市|