[求助]这样的搜索查询该怎样做呀？

静儿

表字段中的值有不定个数的关键字，比如记录1是：  a;b;c ;d    记录2是：a;b      记录3是：d    记录4是：w;t;q;s

现在在窗体中输入多个要查询的关键字： a;d;e    我需要查询出表中记录值带有：a   d   e   的记录。结果为：记录1记录2记录3。由于记录4不包含a d 和e 因此不被筛选出来。

这该怎么做？

wwwwa

用INSTR函数

andymark

条件之间用"，"分隔，用IN语句也可以实现,

静儿

问题是查询条件是多条件，需要将它分解，如将“a;d;e ”   分解成：a   d   e  来搜索。

另一方面它不能用in，应该用like  比如记录1是“a;b;c ;d”  其中有a符合，因此需要将它选上。

我就搞糊涂了，不知该怎么做。

sgrshh29

如果是单个字段,就是所谓的多条件模糊查询,坛里海狸有个例子.如果是全局的,曾做过一个,不知道放什么地方去了,再找找看.

[此贴子已经被作者于2006-7-20 16:56:22编辑过]

静儿

是在一个表的一个字段中搜索的。海狸地址在哪里知道吗？或者标题是什么呢？

fan0217

看看这个帖子，对你会有帮助的。

http://www.office-cn.net/forum.php?mod=viewthread&tid=41219&replyID=&skin=1

[此贴子已经被作者于2006-7-20 18:39:34编辑过]

sgrshh29

已经找到。多条件之间用空格分割。分二种情况，“与”和“或”。

1、“与”

Private Sub Text0_Change()
If IsNull(Me.Text0) Then Exit Sub
    Dim i, IntStar As Integer
    Dim strCx As String
    If KeyCode = vbKeySpace Then Exit Sub     '分隔符不为空格时,可省去
    IntStar = Text0.SelStart
    For i = 0 To UBound(Split(Text0.Text, " "))
        strCx = strCx & "InStr(字段名, '" & Split(Text0.Text, " ")(i) & "') > 0 And "
    Next i
    Me.Child0.Form.Filter = strCx & True
    Me.Child0.Form.FilterOn = True
    IntStar = IntStar + 1
    Text0.SelStart = IntStar
End Sub

2、“或”，就是你所要的情况

Private Sub Text0_Change()
If IsNull(Me.Text0) Then Exit Sub
    Dim i, IntStar As Integer
    Dim strCx As String
    If KeyCode = vbKeySpace Then Exit Sub     '分隔符不为空格时,可省去
    IntStar = Text0.SelStart
    For i = 0 To UBound(Split(Text0.Text, " "))
        strCx = strCx & "InStr(字段名, '" & Split(Text0.Text, " ")(i) & "') > 0 Or "
    Next i
    Me.Child0.Form.Filter = strCx & False
    Me.Child0.Form.FilterOn = True
    IntStar = IntStar + 1
    Text0.SelStart = IntStar
End Sub

如果需要实例，请做个模拟库上传。

[此贴子已经被作者于2006-7-20 19:27:17编辑过]

wuaza

用动态SQL做的一个例子。

静儿

wuaza，这就是我要的结果，太好了。谢谢！