Question

VB如何查询数据库-某一天中的某一时段

比如说我建好了一个名为X的数据库
我查询到了这个数据库7月7日当天0-24点（每个整点读一次数）燃煤的使用量
假如：0点为10吨，1点为20吨。。。。。。。24点为N吨
我怎么用VB语言实现7月7日当天0-24点的燃煤总累计使用量
我想用24点查询的值减去0点查询的值，可是实现不了
求大神帮忙实现，在线等，如有疑问请追问

Answer 1

最简单也是最容易理解的方式，是用两次查询的方法，先查出7月7日0时的使用量，再查出7月8日0时的使用量，两者的差值就是你要的结果了：
.....
rs.open "select 使用量 from x where format(日期,'yyyymmddhh')='2014070700'",conn,1,1
s=rs(0)
rs.close
rs.open "select 使用量 from x where format(日期,'yyyymmddhh')='2014070800'",conn,1,1
s=rs(0)-s
rs.close
MsgBox "7月7日当天0-24点的燃煤总累计使用量为" & s & "吨"

追问

对，就是这个意思
还有两点不明白，麻烦大神解释下
如果我用DTPicker选择日期的话
format(日期,'yyyymmddhh')='2014070800'" 这里该怎么写
后面的 conn,1,1 又是什么意思？

运行提示：连接无法用于执行此操作，在此上下文中它可能已被关闭或无效

追答

conn是数据连接对象，你没有具体说明你的数据库是如何连接的，我只能按大家通常的用法说个例子而已，后面的两个1是打开记录集的参数

DTPicker可以这样来插入：

rs.open "select 使用量 from x where format(日期,'yyyymmddhh')='" & Format(DTPicker.Value, "yyyymmdd") & "00'",conn,1,1

rs.open "select 使用量 from x where format(日期,'yyyymmddhh')='" & Format(DTPicker.Value + 1, "yyyymmdd") & "00'",conn,1,1

追问

先谢谢了。弄不成的话我再问你吧。

Answer 2

select 日期,sum(使用量) as 使用量汇总 form 表格 where 日期=#2014-7-7# and 时间>=0 and 时间<=24

追问

可以具体说一下么，我是新手
你这样查出来的不是7月7日 0点 -24点的数么
我要的是24点减去0点的数