Question

VB 模糊查找

Adodc1.RecordSource = "select * from 数据表 where 货号 like '%" & Text1.Text & "%'" 提示form 错误
我的本意是从数据表中找出含有text1内容的货号
请问这句该怎么改
Private Sub cmd1()
Dim It As String
It = Combo1.Text
If It = "货 号" Then
On Error GoTo 3
Adodc1.Recordset.Filter = "货号= '" & Text1.Text & " ' "
Else
If It = "进货单位" Then
On Error GoTo 3
Adodc1.Recordset.Filter = "进货单位= '" & Text1.Text & " ' "
Else
If It = "品 牌" Then
On Error GoTo 3
Adodc1.Recordset.Filter = "品牌='" & Text1.Text & "'"
Else
On Error GoTo 3
Adodc1.Recordset.Filter = "进货地点= '" & Text1.Text & " ' "
End If
End If
End If
3: End Sub
这是我本来的查找方法，但不能模糊查找现在我就是想改成模糊查找

Answer 1

这条模糊查询的SQL语句没有错。你应该检查一下“货号”字段的数据类型！
like查询条件只能用于字符型或者字符串型字段，如果你的“货号”字段是int型，查询就会出错...

追问

货号是 字符型的

追答

原来用Recordset.Filter呀， Recordset.Filter本身只返回查询到结果的【第一个记录】的游标，不会返回整个结果集的。

追问

原先是要输入全称才可以找到，现在我想改成模糊查找。因为我用的是datagrid控件，所以返回的结果可以显示的。

Answer 2

貌似like本身就是模糊查找的关键字吧？不用%吧？

追问

关键是他提示form语法错误

追答

那你试试把%删掉试试

追问

删掉了没用,我想知道具体整用select 的语法

追答

那我就不清楚了，手上没有VB平台，不能测试。你单独运行select语句试试，一点一点排查吧。

追问

你能写一句select语句让我参考一下吗？比如从数据库表中查找货号为1的语句

追答

我感觉你的句子没错。RecordSource是什么属性的，支持运算吗？

追问

recordsource是数据源

追答

你先把select语句存入字符串再使用试试。

追问

还是不行 就是提示from错误

追答

我用vfp测试了一下，连接符不能用&，改成+

追问

VB 里面就是用&的。我发现问题的所在了。那个语句没啥错，关键是我下面的链接语句错了呵呵，谢谢