Set datZhuhuB = dbsContent.OpenRecordset("select * from 住户表,房屋表,收费表 where 住户表.房间代号=房屋表.房间代号 and 住户表.房间代号=收费表.房间代号 and 收费表.收费否=0 and 收费表.收费月份<>" & Format(Curreydate, "yyyy年mm月") & " and 楼宇代号=" & louyu_id & " and 单元id=" & Owner_Id)
为什么报错啊!谢谢
首先不知道你用到的字段中有没是char型的,
如果是字符型的要 "where 字段名=" & 变量 & ""
"收费月份"是什么类型的?
如果是Datetime
Set datZhuhuB = dbsContent.OpenRecordset("select * from 住户表,房屋表,收费表 where 住户表.房间代号=房屋表.房间代号 and 住户表.房间代号=收费表.房间代号 and 收费表.收费否=0 and 收费表.收费月份<>#" & Format(Curreydate, "yyyy年mm月") & "# and 楼宇代号=" & louyu_id & " and 单元id=" & Owner_Id)
我砍。。。
你把where后的所有条件都去掉,先加第一个条件,运行,如果ok那么再加第二个条件...你就会发现是哪里错误了。。。
因该这样写
Set datZhuhuB = dbsContent.OpenRecordset("select * from 住户表,房屋表,收费表 where 住户表.房间代号=房屋表.房间代号 and 住户表.房间代号=收费表.房间代号 and 收费表.收费否=0 and 收费表.收费月份<>" & Format(Curreydate, "yyyy年mm月") & " and 楼宇代号=" & "" & louyu_id & "" & " and 单元id=" & Owner_Id & "")
由于是文本型的所以要用单引号扩起来