Office中国论坛/Access中国论坛

标题: 一个支持对ADO记录集进行多列查找的函数 [打印本页]

作者: 鱼儿游游 时间: 2012-8-17 18:13
标题: 一个支持对ADO记录集进行多列查找的函数
本帖最后由鱼儿游游于 2012-8-18 10:45 编辑

大家都知道：如用【Find 方法】在ADO记录集查找记录，只能进行单列的操作。
下面的函数（Multi_Find）支持多列查找，希望对有需要的朋友有所帮助。

调用方法： Multi_Find <ADO记录集>, <查找条件>

示    例：  Multi_Find rst, "国家= '中国' AND 城市 = '深圳'"
               If  Not rst.EOF() Then
                     MsgBox "找到指定条件的记录。"
               Else
                     MsgBox "指定条件的记录不存在。"
               End IF

作者: andymark 时间: 2012-8-17 19:55
谢谢分享

作者: layaman_999 时间: 2012-8-17 20:30
layaman_999，如果您要查看本帖隐藏内容请回复
一定要学习

作者: xxfwajj84 时间: 2012-8-17 22:00
感谢你无私的奉献精神

作者: yy2000 时间: 2012-8-17 22:04
学习。

作者: c101 时间: 2012-8-17 22:10
谢谢分享

作者: dfang 时间: 2012-8-17 22:33
学习了

作者: imono 时间: 2012-8-18 08:15
学习一下

作者: phch163 时间: 2012-8-18 08:43
好不好用

作者: xie62 时间: 2012-8-18 09:54
谢谢分享

作者: gl_zhangt 时间: 2012-8-18 10:04

多谢分享！

作者: 13601812106_01 时间: 2012-8-18 11:44
谢谢分享

作者: yodong 时间: 2012-8-18 13:15
学习学习

作者: yanghua1900363 时间: 2012-8-18 15:17
谢谢分享！

作者: 82077802 时间: 2012-8-19 07:02
感谢你无私的奉献精神

作者: wgh3g 时间: 2012-8-20 11:34
好东西，收藏了

作者: 叶海峰 时间: 2012-8-20 17:01
学习一下

作者: todaynew 时间: 2012-8-20 21:36
用Find按顺序带入查询参数就可以了，因为find是从当前记录开始向前查找。

作者: 鱼儿游游 时间: 2012-8-20 22:43
本帖最后由鱼儿游游于 2012-8-20 22:44 编辑

todaynew 发表于 2012-8-20 21:36
用Find按顺序带入查询参数就可以了，因为find是从当前记录开始向前查找。

形如：rst.Find "国家= '中国' AND 城市 = '深圳'" 会出错的（rst为ADO记录集）

作者: todaynew 时间: 2012-8-21 06:16

鱼儿游游发表于 2012-8-20 22:43
形如：rst.Find "国家= '中国' AND 城市 = '深圳'" 会出错的（rst为ADO记录集）

这样试试：
rst.Find  "国家= '中国'"
rst.Find  "城市= '深圳'"
rst.Find  "社区= '国际花园'"

作者: jinzhanxi 时间: 2012-8-21 08:15
谢谢分享

作者: yanwei82123300 时间: 2012-8-21 08:30
谢谢分享

作者: xuwenning 时间: 2012-8-21 08:43
收藏了
谢谢分享

作者: aleeado 时间: 2012-8-21 08:49
谢谢分享

作者: sxb2007 时间: 2012-8-22 18:28
分享

作者: wang1950317 时间: 2012-8-23 08:09
谢谢分享！

作者: sun.gd 时间: 2012-8-23 15:16
要学习,学习

作者: lin2003_lin 时间: 2012-8-30 22:52
学习

作者: efcndi 时间: 2012-9-3 16:09
look

作者: sl-txm 时间: 2012-9-23 20:12
学习

作者: 软件下载 时间: 2012-10-4 20:51
我看看

作者: xlyw 时间: 2012-10-11 10:37
学习学习

作者: tsilon 时间: 2012-10-13 22:49
good good study

作者: licongli 时间: 2012-10-18 09:28
谢谢分享

作者: gzkrmch 时间: 2012-10-18 10:20
谢谢分享

作者: su_xx 时间: 2012-10-19 10:28
感谢分享

作者: mwindy 时间: 2012-10-19 16:14
看看，学习下

作者: pigbrain 时间: 2012-10-20 10:56
学习一下。

作者: wuheng 时间: 2012-11-12 17:27
学习学习习~~~

作者: huangli0356 时间: 2012-11-13 16:26
学习下..

作者: fxbianxiu 时间: 2012-11-15 20:43
我看看，怎么样

作者: zzwxm98 时间: 2012-11-17 19:56
学习

作者: 十年磨一剑 时间: 2013-4-4 16:53
学习了，谢谢

作者: smileyoufu 时间: 2013-4-11 23:44
这个要看

作者: xjb_test 时间: 2013-4-16 15:52
谢谢分享

作者: 5574916 时间: 2013-4-16 23:11
谢谢分享，学习学习

作者: gl_zhangt 时间: 2014-3-11 15:58
多谢分享

作者: xiaowuo2 时间: 2014-3-12 13:42
不错，非常感谢。

作者: leonshi 时间: 2014-3-12 14:50
看看，学习

作者: 玉树TMD临风 时间: 2014-3-12 22:00
我看看，要是字段很多的话怎么办？

作者: dd783130 时间: 2014-3-15 15:05
感谢你无私的奉献精神

作者: caojian22 时间: 2014-3-24 23:15
学习了，谢谢！！

作者: gl_zhangt 时间: 2014-6-5 11:10
谢谢分享

作者: khmkhm 时间: 2014-6-8 00:02
谢谢分享

作者: fnsmydyang 时间: 2014-6-8 15:24
学习了！

作者: xhdd 时间: 2014-6-13 03:38
DDDDdd!

作者: zxclen 时间: 2014-9-15 14:35
SEEEEEEEEEEE

作者: 站到终点站 时间: 2014-9-15 17:00
谢谢分享，正需要这个东东

作者: sunwrsun 时间: 2014-10-29 23:55
谢谢分享

作者: 大懒猫68 时间: 2014-11-7 15:02
一定要学习

作者: 心情如故 时间: 2015-3-11 23:01
学习学习

作者: ken123qw 时间: 2015-5-4 12:50
谢谢分享！

作者: yanhantan 时间: 2015-5-7 17:31
看看

作者: sophie247_wei 时间: 2015-6-1 15:23
学学习习

作者: wu8313 时间: 2015-6-14 22:29
学习学习。

作者: zhuhero88 时间: 2015-7-7 12:58
通用筛选/查找功能必须基于一个绑定窗体

作者: manxin0821 时间: 2015-7-15 05:14
谢谢

作者: purplerose 时间: 2015-8-15 21:17
想看一下

作者: netguestcn 时间: 2015-9-20 07:31
学习

作者: friendship 时间: 2016-1-25 03:30

作者: ly 时间: 2016-7-16 06:43
是否支持模糊查询？谢谢版主分享！

作者: 5988143 时间: 2016-11-22 16:11
谢谢分享

作者: 打字比你快 时间: 2017-7-9 18:03
不错，学习了

作者: Alashome 时间: 2017-9-23 21:28
GOOD

作者: yz_zax 时间: 2018-1-4 20:54

谢谢分享

作者: 六月雪 时间: 2018-2-1 00:12
00000000

作者: 六月雪 时间: 2018-2-1 22:41
哦哦哦哦哦哦

作者: chinaesc 时间: 2022-7-7 11:48
问题表述：如果我们在编写程序时，如用到了ListView、TreeView、FlexGrid等控件，在不同电脑（甚至是本机）使用时，有可能会遇到一个很大的问题就是“无法装载这个对像，因为他不适用于这台计算机”。
   原因分析：是程序用到的控件（如： MSCOMCTL.OCX，一般在C:\WINDOWS\system32目录下）的版本不一致造成的。造成控件版本不一致的主要原因如下：
   1、调试程序与用户使用的环境不一致（如程序代码在WINDOWS XP下调试，在WIN7下运行），造成运行程序时有关控件（如：MSCOMCTL.OCX ）的版本高于（或低于）调试程序时的版本。
   2、系统打了升级补丁。
   解决方案：
   1、.取得最新版本的控件，用新版本覆盖旧版本，手工注册控件。
   如：先把MSCOMCTL.OCX（目前最新版6.1.98.34）复制到C:\WINDOWS\system32目录下，然后注册控件（方法：点"开始-运行"  输入：Regsvr32  MSCOMCTL.OCX）。
   2、编写代码，让程序能自动引用调试时的有关控件（要求把有关控件和程序一起提交给用户），让程序自动注册有关控件。运行时，程序引用自带版本的控件。为此，我写了一个自动注册控件的示例，能很好地解决这个困扰。具体方法是：在程序运行时，先执行这个自动注册控件的函数（功能是：判断有关控件是否已注册，如没注册，则自动注册）。
   使用该函数时，要注意的是：最好在放到宏里执行，即：没打开任何窗体前运行（避免窗体有用到有关控件）。

   全部代码在附件里。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)