神马品牌网丁霞的图片:关于VB对数据库查询的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/13 08:23:34
Private Sub Command1_Click()
Dim mno As String
mno = InputBox$("请输你要查找的姓名：", "查找窗")
Data1.Recordset.FindFirst "nr='" & mno & "'"
If Data1.Recordset.NoMatch Then MsgBox "没有这个名字！", , "提示"
End Sub
以上是对一个字段的查询，可是我现在要的是对字段中的某个字或词进行查询，比如有这样一个字段：李三，当我输入“李”或“三”时都能找到李三，并且如果有多个李三都可以同时显示出来。
请问谁能帮我，在此谢谢啦~
Dim mno As String
mno = InputBox$("请输你要查找的姓名：", "查找窗")
Data1.Recordset.FindFirst "nr='" & mno & "'"
If Data1.Recordset.NoMatch Then MsgBox "没有这个名字！", , "提示"
End Sub
以上是对一个字段的查询，可是我现在要的是对字段中的某个字或词进行查询，比如有这样一个字段：李三，当我输入“李”或“三”时都能找到李三，并且如果有多个李三都可以同时显示出来。
请问谁能帮我，在此谢谢啦~
在VB语句中尽量不要用'吧，用chr(34)代替
还有就是你查找到后再判断一下，如你输入 李 的时候查找到了，再判断一下查找到的是否符合条件
最好用ado，这样可以使用sql语句，比较简单方便
要用SQL语句
select * from 表名 where nr like '% mno %'
当然，这样的话，你要用ado了。呵呵，程序要重写。
不改的话，就do……loop，一个一个记录用instr判断。
很简单，DATA1有个属性RecordSoure,这样用：
Dim mno As String
mno = InputBox$("请输你要查找的姓名：", "查找窗")
Data1.RecordSoure="select * from 表名 where nr like '% mno %'"
Data1.refresh
If Data1.Recordset.NoMatch Then MsgBox "没有这个名字！", , "提示"
End Sub