Question

VB 使用“like”模糊查询的问题

Private Sub Text1_Change()
adohytz.ConnectionString = PublicStr
If Combo1.Text = "会议主题" Then
adohytz.RecordSource = "select * from tbOA_hyjl where 会议主题 like'%" & Text2.Text & "%'and 发布人='" + Mid(frm_mainBefore.StatusBar1.Panels(5).Text, 5, Len(frm_mainBefore.StatusBar1.Panels(5).Text) - 4) + "'order by 发布时间 desc"
adohytz.Refresh
Set DataGrid1.DataSource = adohytz
End If
End Sub

哪里有问题，错误提示说“事实错误 424 要求对象”
一楼的朋友请明细一点好吗？小弟是菜鸟

Answer 1

朋友的sql语句有问题，查询不到数据，绑定datagrid就要出错。like模糊查询没有问题，问题sql语句中空格问题语法错误，确保数据库已连接、修改如下试试

adohytz.RecordSource = "select * from tbOA_hyjl where 会议主题 like' %" & Text2.Text & "% 'and 发布人='" + Mid(frm_mainBefore.StatusBar1.Panels(5).Text, 5, Len(frm_mainBefore.StatusBar1.Panels(5).Text) - 4) + "' order by 发布时间 desc"

建议将sql语句赋值后到查询分析器验证一下。