如何实现多个关键词对应一个字段的查询呢？

dryang　发表于：2010-10-24 18:24:25 　

复制

一个文本框对应一个字段的查询容易实现，论坛上有很多教程，但是多个文本框对应一个字段的查询如何实现呢？

举个例子，某一个字段的值是多个关键字，A+B+C或者B+C+D或者A+C+D,这样的

有三个文本框，不考虑顺序，输入C+B+A就可以搜到相应的记录

如何实现呢？和一对一的模糊查询一个做法可以吗？

Top

杜发表于：2010-10-29 21:06:34

看来基础比我还差.

或 [Forms]![窗体名]![控件1] or [Forms]![窗体名]![控件2] or [Forms]![窗体名]![控件3]

与 [Forms]![窗体名]![控件1] and [Forms]![窗体名]![控件2] and [Forms]![窗体名]![控件3] 这个应该是你要的

模糊查询:在必要时加上 like "*" & [Forms]![窗体名]![控件1] & "*"

Top

dryang 发表于：2010-10-31 22:04:46

不好意思啊，我是研究人脑的，对电脑懂的不多啊

谢谢，我试试看

Top

煮江品茶发表于：2010-11-01 09:08:05

dim str as string
str="True"
if isnull(me.A.value)=false then
   str=str & " And 查询字段名 Like '*" & me.A.value & "*'"
end if
if isnull(me.B.value)=false then
   str=str & " And 查询字段名 Like '*" & me.B.value & "*'"
end if
if isnull(me.C.value)=false then
   str=str & " And 查询字段名 Like '*" & me.C.value & "*'"
end if
me.子窗体名称.form.filter=str
me.子窗体名称.form.filteron=true

Top

wyh99999 发表于：2010-11-06 21:22:45

针对楼主的问题（但是多个文本框对应一个字段的查询如何实现呢？），我有一个想法：

杜　老师和煮江品茶　老师都是根据楼主三个文本框去解决问题。我想，能不能用一个文本中的多个子字符串的内容在一个字段中去查询呢？（象百度搜索中那样字符加空格）

一、文本框输入：（内容加空格....）

二、按键（回车键）事件中的语句：1、判断文本框的值有几个子字符串；2、根据子字符串的个数，利用循环语句与煮江品茶老师的 str=str & " And 查询字段名 Like '*" & me.（循环中的值I）.value & "*'"

望老师指教：能实现我这个想法吗？更希望有实现的实例。

Top

wyh99999 发表于：2010-11-06 22:58:23

请老师关注并赐教！

Top

wyh99999 发表于：2010-11-07 11:38:00

顶起来！

Top

wyh99999 发表于：2010-11-10 17:29:23

此问题，煮江老师有很好的示例，望大家去学习一下：http://www.accessoft.com/blog/article-show.asp?userid=10802&id=4983

Top

wyh99999 发表于：2010-11-10 18:52:22

请楼主给“煮江”老师的贴子“结贴”

Top

wyh99999 发表于：2010-11-12 13:52:10

在循环与取舍中折腾字符，可在同一字段中多内容查询。望老师给予斧正。（这里引用了钱玉炜老师的 [示例] 求特定字符出现在字符串中的次数。在此致谢）

czf = LTrim(czf) ' 把字符串头部的空格去掉
kgs = CSNumber(Me.czf, " ") '字符中空符的个数

'Do While I = kgs '
For I = 1 To kgs + 1 '根据空字符的个数循环
    If I = 1 Then zf3 = LTrim(czf) ' 把字符串头部的空格去掉

   For ii = 1 To Len(zf3)
    If Mid(zf3, ii, 1) = " " Then
      zf2 = LTrim(Mid(zf3, 1, ii - 1))
      strWhere = strWhere & "([题名] Like '*" & zf2 & "*') or "
      zf1 = Right(zf3, Len(zf3) - ii) ' Mid(zf3, ii, Len(zf3))
      Exit For
    End If

Next ii
   zf3 = LTrim(zf1)
   zf4 = zf4 + Left(zf3, ii - 1)

Next I
zf2 = LTrim(zf2) + zf3
strWhere = strWhere & "([题名] Like '*" & zf3 & "*') and "
If kgs = 0 Then strWhere = "([题名] Like '*" & czf & "*') and "
End If