模糊录入--基于EXCEL自动筛选功能++应用实例 0707更新

987654321

不回复也不行呀,谢谢版主分享

xiamy

抱着学习的目的和学习的态度前来学习需要学习的东西！嗯嗯！

ldy

原帖由 彭希仁 于 2009-6-18 17:51 发表


我之所以这样做是因为我写的系统使用的人太多了，老用SQL查询主机，非把我主机给拖死不可。
再者就是对于10万条记录，要想查询速度跟上按键盘的速度，SQL也办不到。

彭兄应该看下这个。我给加了一分，看来加少了。
http://club.excelhome.net/thread-443290-1-1.html

rc open 之前设置CursorLocation 属性
rc.CursorLocation = 3


sub test()
Dim rc As New ADODB.Recordset
rc.CursorLocation = 3' 没有这一句 t2的时间差 100倍以上，t的时间也要快一些
t = Timer
rc.Open "select text0,text3 from fdk", cnall, 1, 3  '32000多行，sql2000 本机测试
t = Timer - t
t2 = Timer
rc.Filter = ("text0 like *1*")
rc.Filter = ("text0 like *11*")
rc.Filter = ("text0 like *111*")
rc.Filter = ("text0 like *1111*")
t2 = Timer - t2
Debug.Print t, t2
end sub

我没有多机测试环境，彭兄测试一下，如果觉得有用，再给他加个分。

华中人士

急切的想看看是什么东东！

刘志文

谢谢分享

youliver

看一下是什么

laosanjie

ldy 高手分享的东西是一定要学习的!

yqg2136

只好回复了，再下载了，不知道是什么好东东

qcxx123

谢谢楼主分享

gqy7979948

版主把自己的东西无私地拿出来给大家分享，如果连一句感谢都不说，确实太不应该了。