完善资料让更多小伙伴认识你,还能领取20积分哦, 立即完善>
本范例使用 CacheSize 属性,显示当使用和不使用缓存(大小为 30 个记录)时,所执行的操作在性能上的差别。 Public Sub CacheSizeX() Dim rstRoySched As ADODB.Recordset ' Open the RoySched table. ' Enumerate the Recordset object twice and record For intLoop = 1 To 2 Do While Not rstRoySched.EOF sngEnd = Timer ' Cache records in groups of 30 records. ' Enumerate the Recordset object twice and record rstRoySched.MoveFirst sngEnd = Timer ' Display performance results. End Sub |
|
相关推荐
|
|
只有小组成员才能发言,加入小组>>
12113 浏览 2 评论
4450 浏览 3 评论
3678 浏览 5 评论
9437 浏览 47 评论
4455 浏览 9 评论
680浏览 0评论
484浏览 0评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-11-5 01:48 , Processed in 0.701966 second(s), Total 76, Slave 56 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号