[分享]怎样更方便和快捷的设计模糊查询？

fan0217

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

做这种查询最重要的就是SQL语句的WHERE子句的设置，特别是单字段多关键字的时候，设置Where子句就比较难了。在此提供的一个函数可以很好的解决这个问题。相信对ASP中设计网络搜索引擎的熟悉的朋友，对下面的代码不会陌生，这个函数就是吸收了网络搜索引擎的代码而成的。关键字之间一般使用逗号、分号（不区分全角半角）或者空格来隔开，该函数首先将关键字中的分隔符：逗号、分号替换成空格，然后根据空格进行拆分，最后通过循环生产SQL语句的Where子句，同时根据需要使用AND或OR将他们连接在一起。使用下列函数也很简单：函数CSQL("表1","字段1","A,b；C",2)将返回的SQL语句为：”SELECT * FROM [表1] WHERE ([字段1] LIKE '*A*' OR [字段1] LIKE '*b*' OR [字段1] LIKE '*C*');”
将这句SQL语句赋给子窗体的RecordSource，然后用Requery更新子窗体，就可以实现单字段多关键字查询。
函数如下：
‘定义常量
ublic Const conAND As Integer = 1
ublic Const conOR As Integer = 2

'===============================================================================
'-函数名称:     CSQL
'-功能描述:     将参数转换为模糊查询的SQL语句
'-输入参数说明: 参数1: 必选 strTable As String 表名称或者无参数的选择查询名称
'               参数2: 可选 strField As String  字段名称
'               参数3: 可选 strKeyWords As String  查询关键字
'               参数4: 可选 intOperation As Integer  运算符(常量:conAND或者1,conOR或者2)
'-返回参数说明:
'-使用语法示例: strSQL=CSQL("表1","字段1","A,b；C",conAND)
'-参考:
'-使用注意:     可使用中文的，；和英文的,;和空格来作为关键的分割符
'-兼容性:       2000,XP,2003
'-作者:         fan0217@163.com
'-更新日期：    2006-06-20
'===============================================================================
ublic Function CSQL(strTable As String, _
                    Optional strField As String, _
                    Optional strKeyWords As String = "", _
                    Optional intOperation As Integer = 1) As String
On Error GoTo Err_CSQL
Dim strSQL As String, varKWArray As Variant
Dim intMax As Integer, i As Integer, strOperation As String

If intOperation <> conAND And intOperation <> conOR Then
    MsgBox "intOperation参数设置不正确。", 16, "fan0217"
    Exit Function
End If

If strKeyWords = "" Then
    strSQL = "SELECT * FROM [" & strTable & "];"
Else
    strKeyWords = Replace(strKeyWords, "；", " ")    '将中文分号换成空格
    strKeyWords = Replace(strKeyWords, ";", " ")     '将英文分号换成空格
    strKeyWords = Replace(strKeyWords, "，", " ")    '将中文逗号换成空格
    strKeyWords = Replace(strKeyWords, ",", " ")     '将英文逗号换成空格
    strKeyWords = Trim(strKeyWords)                  '去处首尾的空格
   
    varKWArray = Split(strKeyWords)       '将字符串根据空格拆开，获得一个数组
    intMax = UBound(varKWArray)           '获取数组的最大下标
   
    If strKeyWords = "" Then
        strSQL = "SELECT * FROM [" & strTable & "];"
    Else
        strSQL = "SELECT * FROM [" & strTable & "] WHERE "
        
        If intMax = 0 Then
            strSQL = strSQL & "[" & strField & "] LIKE '*" & varKWArray(0) & "*';"
        Else
            If intOperation = conAND Then
                strOperation = " AND "
            ElseIf intOperation = conOR Then
                strOperation = " OR "
            End If
            For i = 0 To intMax
                varKWArray(i) = Trim(varKWArray(i))
                If i = 0 Then
                    strSQL = strSQL & "([" & strField & "] LIKE '*" & _
                                            varKWArray(i) & "*'" & strOperation
                ElseIf i = intMax Then
                    strSQL = strSQL & "[" & strField & "] LIKE '*" & _
                                            varKWArray(i) & "*');"
                Else
                    strSQL = strSQL & "[" & strField & "] LIKE '*" & _

wuaza

谢谢fan0217为我们提供了这么好的函数。已收藏。

fan0217

该函数的又一应用：

列表框复选查询

好学

好东东,谢谢![em17][em17]

nzlwc_fsb

学习

一点通

精品,可以说是模糊查询的大集合,谢谢分享

jlk88

  哇，好东东！真是及时雨！[em17][em17][em17]

jlk88

斑竹能否改造一下，变成多字段的模糊查询？比如:层级 I or II and 物料来源性 外购

希望能解答！急着用，谢谢！[em02]

andymark

谢谢分享

fan0217

那个函数还有待改进。