难问题继续出现中，很难的啊。

Question

先感谢jadeluo给我解决了上会这回的问题我想把text1中的内容和数据库某个字段中的内容进行比较（不考虑顺序和大小写）
比如：TEXT1=“abcd/”         数据库字段：   zuzhif      有以下4条 
                                             1：1234
                                       2：abcd/
                                       3：666666
                                       4：cd/ab  
通过查询符合结果的应该是第2个记录和第4个记录这个是我查询的代码，只能对字符进行精确查找如果内容相同，顺序不同是找不到的
Adodc1.RecordSource = where zuzhif='" + Text1.text + "' 
Adodc1.Refresh 
，现在该怎么改呢

Answer 1

以access为例：
    Dim sql As String
    Dim i As Integer
    
    sql = "select * from tb where len(zuzhif)=" & Len(Trim(Text1))
    
    For i = 1 To Len(Trim(Text1))
        sql = sql & " and instr(zuzhif,'" & Mid(Trim(Text1), i, 1) & "' )"
    Next
    'Debug.Print sql
    Adodc1.RecordSource =sql

Answer 2

以access为例：[code=SQL]
    Dim sql As String
    Dim i As Integer
    
    sql = "select * from tb where len(zuzhif)=" & Len(Trim(Text1))
    
    For i = 1 To Len(Trim(Text1))
        sql = sql & " and instr(zuzhif,'" & Mid(Trim(Text1), i, 1) & "' )"
    Next
    'Debug.Print sql
    Adodc1.RecordSource =sql
[/code]