同样方法操作，速度相差很多

zhufree

同样的AD0程序，123文件记录数不到1W条，但操作要10多秒，
db1文件记录数20多w条，操作只要3秒左右。不知道哪边出现了问题，请指教！谢谢1

t小宝

123循环的记录集："select 表_指令调拨表.流水号 from 表_指令调拨表 group by 表_指令调拨表.流水号 order by 表_指令调拨表.流水号"
有5737条记录，
db1循环的记录集：“select tbl.pycode from tbl group by tbl.pycode order by tbl.pycode”
只有484条记录。
谁快谁慢不就很清楚了。

yangruihao

t小宝 发表于 2011-11-1 13:52
123循环的记录集："select 表_指令调拨表.流水号 from 表_指令调拨表 group by 表_指令调拨表.流水号 order ...

小宝老师好厉害

zhufree

t小宝 发表于 2011-11-1 13:52
123循环的记录集："select 表_指令调拨表.流水号 from 表_指令调拨表 group by 表_指令调拨表.流水号 order ...

T小宝解释的是。
但想请问下，这个速度如何可以再提升下？谢谢

t小宝

使用这个函数，速度可以提高大概三分之一。
合并记录为字符串的一个函数
代码如下：

1. Sub CMDPRINT_Click()
   
2. 
   
3.     CurrentDb.Execute "delete * from 表_调拨明细"
   
4.     t = Timer
   
5.     CurrentDb.Execute "INSERT INTO 表_调拨明细( 流水号, 调拨明细 ) SELECT 表_指令调拨表.流水号, " & _
   
6.         "DMerge('调出单号 & 半成品数量 & 备注','表_指令调拨表','流水号=' & [流水号] & '',',') " & _
   
7.         " FROM 表_指令调拨表 GROUP BY 流水号 ORDER BY 流水号"
   
8. 
   
9.     MsgBox "秏时: " & Timer - t & " 秒"
   
10. 
    
11. End Sub
    
12. 
    
13. Public Function DMerge(Exps As String, Domain As String, _
    
14.     Optional Criteria As String, Optional Separator As String = ";") As String
    
15.    
    
16. '函数功能：  合并指定记录集指定字段值为一个字符串
    
17. '参数说明：
    
18. '  expr :         要合并的字段
    
19. '  domain :     来源表或查询
    
20. '  criteria :      可选,限制记录的条件表达式
    
21. '  Separator : 可选,合并记录的分隔符,默认为分号(;)
    
22. '
    
23. '调用示例：  DMerge("姓名","人员表","性别='" & [性别] & "'",Chr(13) & Chr(10))
    
24. '                以上示例在查询中，使用了换行分隔符，返回换行显示的姓名
    
25. '作      者：  t小雨
    
26. '创建时间：  2009/11/25
    
27. 
    
28. On Error Resume Next
    
29.     Dim rst As New ADODB.Recordset
    
30.     Dim strSql As String
    
31.    
    
32.     strSql = "Select " & Exps & " From " & Domain
    
33.     If Criteria <> "" Then strSql = strSql & " Where " & Criteria
    
34.     rst.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText
    
35.    
    
36.     If Not rst.EOF Then DMerge = rst.GetString(adClipString, , , Separator)
    
37.     rst.Close
    
38.     Set rst = Nothing
    
39. End Function
    
40. 
    

复制代码

zhufree

t小宝 发表于 2011-11-1 20:58
使用这个函数，速度可以提高大概三分之一。
合并记录为字符串的一个函数
代码如下：

谢谢，速度是有提高约1/3

在EXCEL中字典速度一秒都不到，ACCESS中是否有类似功能

roych

Access也有字典功能。。。红尘写过实例。搜索下？

zhufree

roych 发表于 2011-11-2 21:23
Access也有字典功能。。。红尘写过实例。搜索下？

我在测试，谢谢

zhufree

roych 发表于 2011-11-2 21:23
Access也有字典功能。。。红尘写过实例。搜索下？

凑写了一个，一二秒时间能计算出。还得稍完善下。

roych

直接执行查询也不见得很慢。就本例而言，在我的系统里测试，似乎是直接执行追加查询比字典功能或者ADO都要快些许（其中ADO更慢些）。