在radiobuttonn上點選25題
用vb程式 在sql資料庫取25筆不同的題目 且不重複
取到的題目會放置在file_num
那請問要如何寫程式
用rnd()來寫

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        cnn.Open()
        cmd = New SqlCommand("select ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

關於不重複的部分
提供一種方法，可以用一個字串去記錄已經讀取的題目編號

例如創一個變數 RepFilterS
在 Do 上面加一行 RepFilterS = "/"

file_num = Int(Rnd() * file_num + 1) 這行把他置換成迴圈：

Do
file_num = Fix((25)*Rnd + 1)
Loop While InStr(1, RepFilterS , "/" & file_num & "/") <> 0
RepFilterS = RepFilterS & file_num & "/"

第三行意思是在 RepFilterS 尋找紀錄是不是該號碼已經被載入過了，有的話就跑迴圈再取一次，跑到紀錄中找不到才可以跳出去

例如 RepFilterS 目前是 "/2/5/7/13/19/23/"
假如第一次亂數取到 7 ，則 InStr 在 RepFilterS 找的到 "/7/" 因此繼續跑
假如取到 1 找不到就可以跳出，避免重複


其實有另外一種方法更簡單，用類似 ListBox 的變數 (VB6 中叫做 Collection)
但你的 VB 版本似乎不太一樣，我不太確定有沒有
不然就隱藏用個 ListBox 吧

用 Collection 就先把 Collection 設定 25 個項目字串分別 1~25
則用亂數取 25 中任一項，取到後把該項目刪除，Collection 就會剩下 24 項
如此一來下回合就直接取 24 項目中任一項，完全不用去檢查有沒有重複～


以上方法換成變數也可以用一字串 "1/2/3/4/5.../25" ，用 Split 或 InStr 取亂數位置的字串
然後用 Mid 方法將取到的字串刪除，接著直到取完為止
這方法應該是最快的，因為變數可以事先就載入好而且可以重複使用
問題是寫出來比較麻煩
還是推薦你用第一種就 OK 了


至於亂數取數的公式是 Fix((上底 - 下底 + 1)*Rnd + 下底)
試試看吧～

下面是引用 傻妞佩 於 2010-08-09 17:52 發表的 vb sql資料庫 取亂數:
在radiobuttonn上點選25題
用vb程式 在sql資料庫取25筆不同的題目 且不重複
取到的題目會放置在file_num
那請問要如何寫程式
用rnd()來寫

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        cnn.Open()
        cmd = New SqlCommand("select * from dbo.subject_temp where sub_lable in", cnn)
        Form2.Show()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        dr.Read()
        cnn.Close()

        Randomize()
        If RadioButton1.Checked = True Then
            Do
                file_num = Int(Rnd() * file_num + 1)
                cmd = New SqlCommand("SELECT count(*) FROM dbo.subject_temp where sub_num='" & file_num  & "'", cnn))
                Dim kr As SqlDataReader = cmd.ExecuteReader()
                file_num = kr.Read()
                i = i + 1
            Loop While i < 26
        End If

[ 此文章被傻妞佩在2010-08-09 23:19重新編輯 ].......

是老師不讓你用sql 語法 newid()
直接撈取亂數資料嗎？
覺得你的資料
並沒有大到影響語法撈資料的效率呀！

如果一定要用程式做苦工
我會用陣列方式
-----------------------------------------
1.得知題數並宣告陣列
2.進 loop 隨機取亂數並比對陣列值
3.不重覆數值填入陣列直到填滿陣列
4.上、下一筆的Button tag儲存上、下陣列值
5.select 語法帶出第一筆題目(tag)

在每按一次Button就依 tag select
並重新記錄上、下一筆的Button tag