accessÖÐʹÓÃ×Ô¼º±àдµÄº¯Êý

н¨±ítb
ID cc xm
1 a hello
2 dd text,doc
3 dd text,jpg
4 aa mo
н¨Ä£¿é£¬¼ÓÈë´úÂë
Function test(a As String, d As String) As Boolean
    test = False
    s = Split(a, ",")
    For Each p In s
        If InStr(1, p, d, vbTextCompare) > 0 Then
            test = True
            Exit For
        End If
    Next
End Function
н¨²éѯ£¬²éѯ°üº¬jpg×Ö·û´®µÄÐÐ
SELECT *
from tb
WHERE (((test([xm],"jpg"))<>False));
ÔËÐнá¹û
ID cc xm
3 dd text,jpg