vb如何实现模糊查询

[awaww]

用VB做了一个对Access数据库的修改与查询的软件,但是查询某一字段时,需把该字段的值完全输入到查找框才能找到记录,只输入一部分的话就会找不到内容,而我需要的是在输入某一该字段的部分内容后,比如"茅台酒"输入"茅",就会有个下拉框把第一个字含茅的值显示出来,然后可以对其进行选择,不知道这个功能该如何实现,求教!

[huangjianyou]

TextBox + DataGrid + RecordSet + Like ...

实现成功，自己写吧。

^_^

[awaww]

我是菜鸟,能不能说得详细点

[xinliangyu]

比如查询所有“姓名”中包含“中”的记录：
select * from 表名 where [姓名] like '%中%'
所有姓“王”的：
select * from 表名 where [姓名] like '王%'

不过我有一个建议：去找本讲解Sql的书研究一下

[dream_wo]

在查询语句中使用LIKE.例如：Select * From TableName where FieldName Like "茅"

[dream_wo]

记得要在“茅”后加上“％”

[guyanf]

同意楼上 like '%茅%'

[awaww]

查询的代码是这样的,要怎么改呀
Private Sub cmdSearch_Click()
rsData.MoveFirst
Do While Not rsData.EOF
If LCase(rsData.Fields(0).Value) = LCase(txtSearchFor.Text) Then

txtName.Text = rsData.Fields(0).Value
txtPhone.Text = rsData.Fields(1).Value
txtHome.Text = rsData.Fields(2).Value
If rsData.Fields(3).Value = True Then
chkWorking.Value = Checked
Else
chkWorking.Value = Unchecked
End If
Exit Sub
End If
rsData.MoveNext
Loop
lblEditStatus.Caption = "Status: Not Found..."

End Sub

[tirone13]

Private Sub cmdSearch_Click()
rsData.MoveFirst
Do While Not rsData.EOF
If LCase(rsData.Fields(0).Value) = LCase(txtSearchFor.Text) Then

txtName.Text = rsData.Fields(0).Value
txtPhone.Text = rsData.Fields(1).Value
txtHome.Text = rsData.Fields(2).Value
If rsData.Fields(3).Value = True Then
chkWorking.Value = Checked
Else
chkWorking.Value = Unchecked
End If
Exit Sub
End If
rsData.MoveNext
Loop
lblEditStatus.Caption = "Status: Not Found..."

End Sub


----------------------------------
告诉你个函数。INSTR （）
可以检查一个字符串在另外一个字符串中出现的位置。那样。你做个循环就可以检查你要查的东西在当前字符串中是否存在，那样多来几次循环，不就可以把所有的包含你要查的记录全部都列出来了吗？
----------------------------------
不用SQL语句也可以做模糊查询的。

[云中客]

用SQL语句的like

[awaww]

不明白呀,能不能把代码写出来看看