• 當前位置:幫助 >> 高級教程

    ACCESS中如何使得order by rnd(id)真正實現隨機抽取數據庫中記錄

    發布日期:2020/8/22 11:46:14 訪問次數:6541

    SQL server數據庫有個NewID函數,可以很方便的用SQL語句得到數據表中的隨機數據。但Access數據庫沒這么方便,雖然有個Rnd,可以通過“select top 10 * from tb order by rnd(id)”得到隨機數據,VBA環境下使用沒有問題,可惜在VB中使用,產生的隨機序列是一樣的,每次調用返回的數據相同。

    有人說在程序中加上Randomize初始化隨機種子,那么這只說對了一半,在程序中簡單的加上Randomize,是沒作用的,道理很簡單,Randomize不可能影響SQL語句中的Rnd,這個Rnd只不過是個字符串,SQL語句是通過數據庫引擎去執行的,正因為如此,無法初始化種子,致使每次應用產生的隨機序列是一樣的。

    由此可見,解決問題的關鍵就是如何初始化隨機種子。Rnd函數語法是Rnd(number),它有一個特性,就是如果使用了負參數的number,那么就會產生一個固定的隨機序列。利用這個特性,我們的問題就迎刃而解了,這就是每次調用Rnd函數時,使用一個負的不同的number,從而達到產生不同隨機序列的目的。經過測試,問題解決。示例代碼如下:        

    '......
    Randomize
    sql = "select top 1 * from tb order by rnd("& Rnd() &"-id)"
    '......

    代碼說明:SQL語句中的Rnd的參數是一個數值表達式,必須包含表中的一個字段(最好是主鍵),因為變量返回的是一個隨機的0到1之間的single,(一般情況下表中的ID值都是大于1的),從而使參數的值是個小于0的隨機數,由此產生了不同的隨機序列。

    補充一點,有一種提議用time來解決這個問題,就是"select top 10 * from tb order by rnd(" & time & "- id) "。在某些情況下是可以的,但是,如果你需要快速連續的查詢信息,比如一些搖號程序需要連續滾動地顯示信息,這種情況下,就會出現連續幾次返回重復的信息。究其原因,就是time在做數值運算的時候,會轉換為一個小于1的Double,而rnd返回的是一個Single,顯然,rnd返回的結果有可能會截去time-id運算后的尾數,在time變化很小的情況下,使rnd返回的值與前次相同,從而返回的查詢結果相同。
    微信
    QQ
    電話
    13400472755
    返回頂部
    亚洲熟女少妇一区二区_大香伊蕉国产综合影院_老司机亚洲精品_系列无码专区久久五月天