Question

VB模糊查询

rs.Open "select * from 表名 where " & Trim(sql), cn, adOpenDynamic

怎么改为模糊查询。求大神回答。急。
我自己改的
rs.Open "select * from 表名 where '" like '%" & Trim(sql) " %", cn, adOpenDynamic
不行啊。。。。。。。。

Answer 1

你这样改是不行的，rs.open这个语句不要改，要改你的sql变量的值，你现在的sql值可能是xx='yy'，修改为xx like '%yy%'就可以了。

追问

什么xx='yy'，不明白啊。能帮我改一下吗？写出来吗？

rs.Open "select * from tdata where " like '%" & Trim(sql) & "%', cn, adOpenDynamic
现在改了这样，还是不行。。特别是那些' ",这些引号，看到就烦了。原本理清关系的，现在都弄晕。 。。麻烦

追答

rs.Open "select * from tdata where " like '%" & Trim(sql) & "%', cn, adOpenDynamic

这句肯定是错的，刚才我就说了，不要这样写！rs.Open语句无须任何修改，这个语句必须是：
rs.Open "select * from 表名 where " & Trim(sql), cn, adOpenDynamic

需要修改的是前面给sql赋值的地方，就是你的sql是怎么得来的，肯定有一个sql="....."的语句，需要修改那个语句，把里面的=改为like

追问

Private Sub Command1_Click()
sql = "NuclideData='" & Trim(Combo1.Text) & "'"
Call insearch(sql)
End Sub
Private Sub Form_Load()
sql = ""
Call insearch(sql)
End Sub

源代码，，求大神帮帮忙。。明天要用。。分都给你了，，好人一生平安。

追答

Private Sub Command1_Click()
sql = "NuclideData='" & Trim(Combo1.Text) & "'"
Call insearch(sql)
End Sub
修改为：
Private Sub Command1_Click()
sql = "NuclideData like '%" & Trim(Combo1.Text) & "%'"
Call insearch(sql)
End Sub

追问

If Len(Trim(sql)) <= 0 Then
Rs.Open "select * from tdata", cn, adOpenDynamic
Else
Rs.Open "select * from tdata where " & Trim(sql), cn, adOpenDynamic
End If
Set DataGrid1.DataSource = Rs 总感觉这段出错
调试没错，但是现在完全查不到信息啊，我的表ID是NuclideData，后加like了，sql不知查那个ID了。。好人，能上hi一下吗？直接聊

追答

NuclideData是什么类型，是不是可以like，我多么希望你看懂我给出的语句吧，求求你稍微用心看一眼。