access随机显示记录（不重复）解决方案

tzboy 楼主

看了很多人讨论关于access随机取记录的帖子
不才,写了一个随机显示记录的解决方法,希望大家指正

数据库里有5条记录，随机抽取4条。

code
--------------------------------------

1. <%
   
2. '-------------------------数据库连接-----------------------
   
3. Set objConn = Server.CreateObject("ADODB.Connection")
   
4. objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
   
5. "Data Source=" & Server.MapPath("data.mdb")
   
6. objConn.Open
   
7.   '-------------------------数据库连接-----------------------
   
8. 
   
9. '-------------------------检索数据-----------------------
   
10. strSQL = "SELECT id,DataColumn FROM DataTable"       
    
11. 'Sql语句，检索数据库
    
12. Set objRS = Server.CreateObject("ADODB.Recordset")   
    
13. '创建记录集
    
14. objRS.Open strSQL, objConn, 1, 1               
    
15. '执行检索
    
16. Count=objRS.RecordCount                       
    
17. '得到记录总数
    
18. Item=4                                                                 
    
19. '显示记录数
    
20. '-------------------------检索数据-----------------------
    
21. 
    
22. '-------------------------------------------------------------------------------
    
23. redim a(Item, 2),t(Count)
    
24. '定义2数组，数组a用来储存记录，数组t用来删选记录
    
25. 
    
26. '---------------------------------------
    
27. '初始数组数值，目的为了插入数据以后和此值做比较
    
28. for each j in t
    
29.     j=0
    
30. next
    
31. '---------------------------------------
    
32. 
    
33. '---------------------------------------
    
34. ' 随机抽取记录号
    
35. Randomize timer                '初始化随机数生成器
    
36. for j=1 to Item
    
37.     k=int(rnd*Count+1)        '从总数里面随机取一条记录
    
38.     do while t(k)<>0                        '判断是否记录是否已经在数组中
    
39.       k=int(rnd*Item+1)
    
40.     loop
    
41.     t(k)=1                        '第k条记录被选中
    
42. next
    
43. '--------------------------------------
    
44. j=1:i=1'定义下标
    
45. 
    
46. '--------------------------------------
    
47. ' 循环选取数据集objRS中的部分记录存放到数组中
    
48. Do While Not objRS.Eof
    
49.           if t(j)=1 then
    
50.                   a(i,1)=objRS("id")                  '记录id
    
51.                   a(i,2)=objRS("DataColumn") '记录内容
    
52.                   i=i+1
    
53.          end if
    
54. j=j+1
    
55. objRS.MoveNext
    
56. Loop
    
57. '--------------------------------------
    
58. '-------------------------------------------------------------------------------
    
59. 
    
60. '----------------------------显示内容--------------------
    
61. for i=1 to Item
    
62.         Response.write "序号"&a(i,1)&"<br>"
    
63.         Response.write "内容"&a(i,2)&"<p>"
    
64. next
    
65. '----------------------------显示内容--------------------
    
66. 
    
67. '---------------------------
    
68. '释放资源
    
69. objRs.Close
    
70. set objRs=nothing
    
71. objConn.Close
    
72. set objConn=nothing
    
73. '---------------------------
    
74. %>

复制代码

Data

1. id    DataColumn
   
2. --------------------------
   
3. 1        a
   
4. 2        b
   
5. 3        c
   
6. 4        d
   
7. 5        e

复制代码

演示：http://phx.cz0550.com/tz/rnd.asp

amonline

恩，仔细看看

萧萧小雨

厉害，想法很新奇。只是记录很多的时候，数组会很大哦。
佩服，收藏！

帅青蛙

SQL SERVER的话只需要newID()就行了，但ACCESS来说，它本身不提供newID()这个方法，因此这种方法还是比较好用的，但缺点就如萧萧小雨说的。

打分加置顶一个星期。

PS：鼓励大家多写写原创，然后大家一块来讨论。

choyi

不错，值得收藏！

人妖GG

access是不是很难用？MySQL一句就搞定了：

1. Select * From tables Order By rand() Limit 5;

复制代码

renaski

to:人妖GG

这个是算法，和ACCESS里的SQL语句关系不大。

请仔细看最后一个连接的引用。
他的答案都是放在a里，然后通过2个随机的数组把次序打乱，但是答案都是先前在数据库里的a答案，其他的答案都是错的。

3219

帅青蛙在上个帖子中说

SQL SERVER的话只需要newID()就行了，但ACCESS来说，它本身不提供newID()这个方法，因此这种方法还是比较好用的，但缺点就如萧萧小雨说的。

打分加置顶一个星期。

PS：鼓励大家多写写原创，然后大家一块来讨论。

ACCESS可以用Rnd(id)