[已解决]模糊查询代码提示错误。

蒋德宏

请老师帮忙看看，我查询的文本框中输入内容的时候，代码提示错误，应该怎么改代码。谢谢！ 查询.rar (27.93 KB, 下载次数: 13)

2013-7-12 17:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-13 09:29

查询.rar (32.35 KB, 下载次数: 11)

2013-7-13 09:28 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Private Sub 模糊查询_Change()
   
2.     Dim SQL$, temp$, i&, j&, s$
   
3.     temp = 模糊查询.Text
   
4.     SQL = "select * from [主要$] "
   
5.     If temp <> "" Then    '模糊查询.Text不为空
   
6.         For i = 0 To rs.Fields.Count - 1    '逐个字段
   
7.             s = s & " or " & rs.Fields(i).Name & " like '%" & temp & "%'"    '查询字符串
   
8.         Next i
   
9.         SQL = SQL & " where " & Mid(s, 4)
   
10.     End If
    
11.     '    If temp <> ComboBox1.Value Then ComboBox1.ListIndex = -1 '清除ComboBox1可能显示的部门
    
12.     '    Call 显示数据(SQL) '刷新ListView1数据
    
13.     '    Call 清空文本框
    
14.     '    模糊查询.SetFocus
    
15. End Sub
    

复制代码

你的RECORDSET对象从何而来？
这里都没有定义也没有创建，肯定会有问题的。

蒋德宏

hwc2ycy 发表于 2013-7-12 18:02
你的RECORDSET对象从何而来？
这里都没有定义也没有创建，肯定会有问题的。

老师你好！这是我在其他地方复制来的，自己不是很懂这个，如果你有时间的话可以帮我一下吗？谢谢！

hwc2ycy

明天给你改，今天刚上完课，还有事要忙。

蒋德宏

hwc2ycy 发表于 2013-7-12 22:15
明天给你改，今天刚上完课，还有事要忙。

好的！老师那麻烦您了。

hwc2ycy

查询.rar (32.35 KB, 下载次数: 11)

2013-7-13 09:28 上传

点击文件名下载附件

蒋德宏

hwc2ycy 发表于 2013-7-13 09:29

可以了！谢谢老师了。