58问答库 > 各位高人给我看看为什么出现错误，我最后的查询结果要显示在LISTVIEW控件中。

各位高人给我看看为什么出现错误，我最后的查询结果要显示在LISTVIEW控件中。

2025-01-05 11:14:16

推荐回答（1个）

回答（1）：

部分代码优化如下:
第一处:
Set db = OpenDatabase("d:\毕业论文\Access\教室保洁任务安排与考评系统.mdb", False, False)
改为:
Set db = OpenDatabase(app.path & "教室保洁任务安排与考评系统.mdb", False, False) '当然你的程序必须要放在当前目录下的.

第二处:
itm.SubItems(1) = rs!班级
类似这种的改为: itm.SubItems(1) = rs("班级")

第三处:
SQL = "select * from 表3：学生基本信息表 where 班级=' " & Trim(Text1.Text) & " ' "
类似这种的改为: SQL = "select * from [表3：学生基本信息表] where [班级]=' " & Trim(Text1.Text) & " ' "

第四处:
数据操作完成后要关闭记录集和连接.

以上四处改完看看还要不要报错..