搬家第41天-citect2018citectVBA按照日期查询access数据报表

前面的练习，查询access都是把全部结果显示出来，有时候我们只是想知道某一天的数据，就需要条件查询。

在前面的citect练习页面放置一个microsoft date and time picker。查询按钮的脚本中条件查询语句这么修改，其他语句不变

ssql1="select curdate as 日期,curtime as 时间,temp1 as 温度1,temp2 As 温度2,temp3 As 温度3,temp4 As 温度4"

ssql2=",press1 as 压力1,press2 as 压力2,press3 as 压力3,press4 as 压力4"

ssql3=",flow1 as 流量1 ,flow2 as 流量2 from mytable where curdate=datevalue('" & cdate(main_AN7.value) & "') order by curdate,curtime"

 

 

datevalue是在查询sql语句中将字符串转换成日期类型

 

补充一下，在citect中microsoft date and time picker的属性值value是一个长整型，不是日期时间的字符串值，需要先转换一下。在一些MSDN的介绍中说这个控件还有一个text属性，数值是日期时间，但是citect中这个控件没有text属性，似乎是阉割版的控件，其他一些微软的控件都是这样，需要注意。