Question

VB与Access连接的模糊查询问题

实现对图中站点的模糊查询，查询代码如下：
Dim cn As ADODB.Connection '定义数据连结
Dim rs As ADODB.Recordset '定义数据集
Dim ConStr As String '定义字符串ConStr

Dim str As String
Dim str1 As String
Dim str2 As String

Set cn = New ADODB.Connection '设置数据连结
Set rs = New ADODB.Recordset '设置数据集

ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\db1.Mdb;Jet OLEDB:Database Password=" '连接数据库的类型，版本，路径
cn.Open ConStr '打开对应数据集

str1 = "Select * from 轨道交通 where 站点 like'%" & Text1.Text & "%'"
str2 = "'" & mm & "'"
str = str1 & str2 '选择姓名=所选行，第一列文本的值
rs.Open str, cn, 3, 3 '打开rs数据集

str1 = "Select * from 轨道交通 where 站点 like'%" & Text1.Text & "%'"
str2 = "'" & Text1.Text & "'"
str = str1 & str2

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.Mdb " '指定对应数据库
Adodc1.RecordSource = str
Adodc1.Refresh

rs.Close
cn.Close
查询不到 ，求大神指点

Answer 1

分析：
str1 = "Select * from 轨道交通 where 站点 like'%" & Text1.Text & "%'"
str2 = "'" & mm & "'"
str = str1 & str2 '选择姓名=所选行，第一列文本的值
那么最后，str 是 ：
"Select * from 轨道交通 where 站点 like'%" & Text1.Text & "%'" & "'" & mm & "'"
你在这三行代码后面，加一行这个

Msgbox str

跟踪看看输出什么了？

追问

一个这个样子的对话框，确定之后就没显示了

追答

这个，我的理解，后面一个 % 把其后面的内容都屏蔽掉了吧？
应该修改成这样试试：把后面一个 %符号与4之间的两个单引号去掉。
就这样：
str = "Select * from 轨道交通 where 站点 like'%" & Text1.Text & "%" & mm & "'"

Answer 2

将“%”换成“*”号试试 我以前遇到过这种问题

追问

换了 不管用啊

追答

str2 是什么意思！？

追问

str2=mm = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) '捕捉被选择行，第2列的值
等于的是一个插件，就是上图中的表格

追答

目的没说清楚 肯定是sql 语句语法错误。 是不是要查询包含text1文本的记录 ？是 就只要str1 = "Select * from 轨道交通 where 站点 like'%" & Text1.Text & "%'" 就行 str2 不要 注销就行