在access中采用sql和absoluteposition两种方式产生随机记录的速度比较

O、我所知道至少有2种access产生随机记录的办法

方法1、采用sql查询随机排序，形如

    objCon.execute("select * from tblTable order by rnd(-" & rnd&")"

方法2、先读取全表，然后采用absoluteposition随机定位

    objRst.open "tblTable",objCon,3,3,2

    for i=1 to N

       objRst.absolutePosition=fix(rnd*objRst.recordCount)+1  'abpos以1开头

       objRst("xxxx")......

    next

 

O、这两种方法各有优劣

   方法1、需要先由sql对全表排序，初始话时间较长，但是一次读取即可，通过设置cachsize，可能全部缓存

   方法2、无需对复杂查询排序，初始化时间短，但读取全表后再处理，由于不可能把全表全部缓存，每次设置absoluteposition都要重新读数据库。

 

O、有限测试

     我对这两种方法进行了简单的测试，测试目标为一个结构为5000条记录的TABLE[id,strValue]的简单数据库，反复1000次每次随机生成1000条记录，经测试，在adCmdTable下产生随机读取数据，方法1在速度上大约较2快1倍以上。测试log如下。

 

---------------Rnd by sql----------------
2008-8-30 11:44:54/0
2008-8-30 11:44:57/50
2008-8-30 11:44:59/100
2008-8-30 11:45:02/150
2008-8-30 11:45:04/200
2008-8-30 11:45:07/250
2008-8-30 11:45:09/300
2008-8-30 11:45:12/350
2008-8-30 11:45:14/400
2008-8-30 11:45:17/450
2008-8-30 11:45:19/500
2008-8-30 11:45:21/550
2008-8-30 11:45:24/600
2008-8-30 11:45:26/650
2008-8-30 11:45:29/700
2008-8-30 11:45:31/750
2008-8-30 11:45:34/800
2008-8-30 11:45:36/850
2008-8-30 11:45:39/900
2008-8-30 11:45:41/950
2008-8-30 11:45:44/1000
---------------Rnd by Position----------------
2008-8-30 11:45:44/0
2008-8-30 11:45:49/50
2008-8-30 11:45:54/100
2008-8-30 11:45:59/150
2008-8-30 11:46:04/200
2008-8-30 11:46:10/250
2008-8-30 11:46:15/300
2008-8-30 11:46:20/350
2008-8-30 11:46:25/400
2008-8-30 11:46:30/450
2008-8-30 11:46:36/500
2008-8-30 11:46:41/550
2008-8-30 11:46:46/600
2008-8-30 11:46:51/650
2008-8-30 11:46:56/700
2008-8-30 11:47:01/750
2008-8-30 11:47:07/800
2008-8-30 11:47:12/850
2008-8-30 11:47:17/900
2008-8-30 11:47:22/950
2008-8-30 11:47:27/1000

O、结论

 对于结构简单的查询，采用sql随机较好

 

附测试代码：

1. Option Explicit 
2. Const DB_NAME="test.mdb"    '数据库名
3. Const DB_RECORD_SIZE=5000   '数据库中记录数
4. Const TEST_SIZE=1000            '从重复测试的次数
5. Const TEST_RECORD_SIZE=1000   '从数据库中随机读取的记录数
8. '创建数据库，仅在第一次时调用
9. Sub createDb()
10.     Dim objAdc,objCon,objFo
11.     Dim strCon
13.     Set objFo=CreateObject("scripting.filesystemobject")
14.     If objFo.fileExists(DB_NAME) Then objFo.deleteFile(DB_NAME)
16.     strCon="provider=microsoft.jet.oledb.4.0; data source=" & DB_NAME
17.     Set objAdc=CreateObject("adox.catalog")
18.     Set objCon=objAdc.create(strCon)
20.     objCon.Execute "CREATE TABLE tblTest"&_
21.                             "(lngID COUNTER(1,1) PRIMARY KEY,"&_
22.                             "strValue TEXT(20) )"
24.     Dim i_
25.     For i_=0 To DB_RECORD_SIZE-1
26.         objCon.execute "INSERT INTO tblTEST (strValue) VALUES ('" & "[" &  i_  & "]"   & "')"
27.     Next 
29.     If IsObject(objCon) Then 
30.         If objCon.State<>0 Then objCon.close 
31.         Set objCon=Nothing 
32.     End If 
33.     Set objAdc=Nothing 
34.     Set objFo=Nothing 
36.     MsgBox "Db created."
37. End Sub 
39. '添加记录到文件
40. Sub appendLog(strName,strData)
41.     Dim objTs
42.     Set objTs=CreateObject("scripting.filesystemobject").openTextFile(strName,8,True)
43.     objTs.writeLine strData
44.     objTs.close
45. End Sub 
49. '========================= 
50. '首先测试选取10000
52. Sub main()
53.     Dim objCon,objRst
54.     Dim i,j,k,a,b
55.     Dim strSql
57.     Randomize 
59.     Set objCon=CreateObject("adodb.connection")
60.     objCon.open "provider=microsoft.jet.oledb.4.0; data source=" & DB_NAME
62.     'test1
63.     appendLog "log.txt","---------------Rnd by sql----------------"
64.     For i=0 To TEST_SIZE
65.         Set objRst=objCon.execute("select top " & TEST_RECORD_SIZE & " * from tblTest order by rnd(" & Rnd & "-lngId)")
66.         Do While Not( objRst.bof Or objRst.eof)
67.             a=objRst("strValue")
68.             objRst.moveNext
69.         Loop 
71.         objRst.close 
72.         '每隔50次测试记录一次时间
73.         If i Mod 50  =0 Then appendLog "log.txt",Now() & "/" & i 
74.     Next 
75.     Set objRst=Nothing 
79.     'test 2
80.     appendLog "log.txt","---------------Rnd by Position----------------"
81.     Set objRst=CreateObject("adodb.recordset")
82.     For i=0 To TEST_SIZE
84.         objRst.open "tblTest",objCon,3,3,2
85.         For j=0 To TEST_RECORD_SIZE-1
86.             k=Fix(objRst.RecordCount*rnd)+1
87.             objRst.AbsolutePosition=k
88.             a=objRst("strValue")
89.         Next 
90.         objRst.close 
91.         '每隔50次测试记录一次时间
92.         If i Mod 50  =0 Then appendLog "log.txt",Now() & "/" & i 
93.     Next 
95.     objCon.close 
96.     MsgBox "main end"
97. End Sub 
99. main