一个支持对ADO记录集进行多列查找的函数

鱼儿游游

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

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

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

游客，如果您要查看本帖隐藏内容请回复

chinaesc

问题表述：如果我们在编写程序时，如用到了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、编写代码，让程序能自动引用调试时的有关控件（要求把有关控件和程序一起提交给用户），让程序自动注册有关控件。运行时，程序引用自带版本的控件。为此，我写了一个自动注册控件的示例，能很好地解决这个困扰。具体方法是：在程序运行时，先执行这个自动注册控件的函数（功能是：判断有关控件是否已注册，如没注册，则自动注册）。
       使用该函数时，要注意的是：最好在放到宏里执行，即：没打开任何窗体前运行（避免窗体有用到有关控件 ）。

       全部代码在附件里。

六月雪

哦哦哦哦哦哦

六月雪

00000000

yz_zax

谢谢分享

Alashome

GOOD

打字比你快

不错，学习了

5988143

谢谢分享

ly

是否支持模糊查询？谢谢版主分享！

friendship

netguestcn

学习