Question

VB中如何模糊查询

Private Sub Command2_Click()
If Combo4 = "年龄" Then
temp = Combo4.Text & " " & Left(Combo2.Text, 4) & " " & Combo3.Text
Else
temp = Combo4.Text & " " & Left(Combo2.Text, 4) & " '" & Combo3.Text & "'"
End If
Set Dbs = frmyhzl.Data1.Database
Set Data2.Recordset = Dbs.OpenRecordset("SELECT * " & "FROM GPSyhzl WHERE " & temp & " ")

Set frmyhzl.Data1.Recordset = Data2.Recordset
Rec = frmyhzl.Data1.Recordset.RecordCount
If Rec <> 0 Then
Data2.Refresh
Data2.Visible = True
Call Refresh2 '负责可查多个符合条件的'
Label19.Caption = "符合条件：" _
& frmyhzl.Data1.Recordset.RecordCount & "个"
Else
frmyhzl.Data1.RecordSource = "GPSyhzl"
Call Refresh2 '负责可查多个符合条件的
Data1.Caption = "符合条件：" _
& frmyhzl.Data1.Recordset.RecordCount & "个" '可用左右两边的按钮查看查找结果
End If
End Sub
现在只能完全输入才能查找，哪位大侠帮我改改
Combo2是运算符 = < >等
Combo4查找项目
Combo3查找的值（需要模糊查询）

like怎么用，我是菜鸟帮我改一改谢谢，好了再加分

Answer 1

可以用sql的标准语句来实现；
参考代码如下：
select *
from tempdb
where tempdb.name like '%csdn%'
注意：
其中"%"是匹配字符

Answer 2

其实,模糊查询就是任何地方只要有你要查询的内容就都搜索出来,而不是完全匹配的那种!
所以你要实现模糊查询,就要对每个字符串进行查找,找出其中含有你要查询的字段.
关于你的程序,你只有把每个内容搜索一编了,但是这样效率应该不高了.
可以用字符处理函数,在每个查询内容中搜索是否有你要查找的字段了.

Answer 3

最简单的模糊查询，即在文件名中输入"*"

Answer 4

模糊查询要用关键字like啊

Answer 5

应该是你的字符串Temp没有组织好，但是也不知道你的Combo4,Combo2, Combo3分别是什么，所以不好给你改