编程论坛 → VB6论坛

VB6.0中查询多个条件的语法，请教！

wangyiaihu 发布于 2020-05-02 19:02， 2440 次点击

查询红色框内的 4个条件，代码怎么写？

只有本站会员才能查看附件，请登录

下面是我写的查询单个条件的代码?请问该怎么添加，

rs11.Open "Select * from 数据 Where 设备编号='" & Combo1.Text & "'", conn11, 3, 2

9 回复

wangyiaihu2020-05-02 19:05

回复楼主 wangyiaihu

日期使用的不是COMBO控件，使用的是日期控件DTPicker。。请注意。。。

ZHRXJR2020-05-03 08:26

rs11.Open "Select * from 数据 Where 设备编号='" & Combo1.Text & "' And 日期>=#" & Conbo2.Text & "# And 确认状态='" & Combo4.Text & "'", conn11, 3, 2
均需要符合三个条件，截至日期因为是当天日期，那么大于开始日期，就包括当天日期，不需要加在判断语句中了。

风吹过b2020-05-03 09:09

他这个查询语句不能这样直接写。原因在于他的提交时间，字段属性是字符串类型，不是日期类型。

晕不晕，反正我昨天看了下，无从下手。

wangyiaihu2020-05-03 15:31

回复 3楼 ZHRXJR

你没懂我的意思，我需要的是查询在日期范围以内的，这个条件，应该是BETWIN

wangyiaihu2020-05-03 15:33

回复 4楼风吹过b

查询两个日期范围以内，这样的条件？
代码不好写吗？

ZHRXJR2020-05-03 20:01

回复 5楼 wangyiaihu：
这样的话，开始日期与终止日期均需要使用日期控件选择日期的，那么查询SQL 应该是：
rs11.Open "Select * from 数据 Where 设备编号='" & Combo1.Text & "' And 日期>=#" & CDate(Text!.Text) & "# And 日期<=#" & CDate(Text2.Text) & "# And 确认状态='" & Combo4.Text & "'", conn11, 3, 2

回复 4楼风吹过b
呵呵，疏忽了，今天转换为日期格式了。

wangyiaihu2020-05-04 14:37

回复 7楼 ZHRXJR

按照这个代码运行试了，不管用。

风吹过b2020-05-05 22:47

现在关键是你数据库中日期字段是什么格式，如果日期型的，那么可以上面 ZHRXJR 的代码。
我前面的提醒就是说你显示出来的数据有二种格式，分明是字符串类型，这种情况情况下无法使用一条查询命令进行查询。

#10

wangyiaihu2020-05-06 15:13

回复 9楼风吹过b

是日期型，请写出代码？