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

[gas001]

先感谢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
，现在该怎么改呢

[vbman2003]

以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

[vbman2003]

以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]