标题: 再来一个：为何这段代码执行会很慢！ [打印本页] 作者: cyber-bobo 时间: 2007-11-20 10:40 标题: 再来一个：为何这段代码执行会很慢！ 以下是一个合并字段的自定义函数代码：
Public Function Concatenate(pstrSQL As String, Optional pstrDelim As String = "、") As String
Dim Rs As New ADODB.Recordset
Rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim strConcat As String 'Build SQLstring
With Rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
strConcat = strConcat & _
.Fields(0) & pstrDelim
.MoveNext
Loop
End If
.close
End With
Set Rs = Nothing
'Set db = Nothing
If Len(strConcat) > 0 Then
strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim))
End If
Concatenate = strConcat
End Function
以上代码用于一个基于表的查询就没问题，但用于基于查询的查询就会很慢，数据在1千条以上时要等上两三分钟，为什么呢？应作如何修改？请高人指点！作者: cyber-bobo 时间: 2007-11-20 15:39
继续等待，期待高手帮忙，自顶！作者: kevindeng 时间: 2007-11-20 16:35
是不是你本身的那个查询执行起来就比较慢呢
我没发现这个问题的
帮你顶一下作者: cyber-bobo 时间: 2007-11-20 18:33
不是，删除运用这个函数的字段或将查询结果先导入一个临时表就会很快。主要在于运用这个函数的查询是基于一个查询表A，而查询表A又可能是基于另一查询表B的。作者: cyber-bobo 时间: 2007-11-20 20:43
是的，查询中有求和的字段，那样就非要先导入一个临时表，再根据这个临时表进行查询吗？没有别的办法吗？上面这段代码没问题吗？作者: andymark 时间: 2007-11-20 21:00
语句没什么问题，建议直接用SQL代替查询，或优化一下查询，自已搞不掂的就上传例子吧作者: tmtony 时间: 2007-11-21 11:03
RS记录集使用只读打开试试,另外如果中间查询每次都要计算很久,可使用临时表来加快速度