Dim conn                     '定义类对象

Dim SCon                     '定义数据库连接字符串

Dim oRs1,oRs2,oRs3           '定义获取到的数据集

Dim oCom

Dim m,i,j

Dim strSQL1,strSQL2,strSQL3,whe

Dim riqi

Dim D1,D2,D3,D4,D5,D6,D7,D8

Dim Year_B,Month_B,Day_B,Hour_B

Dim My_Month,My_Year,My_Day,My_Hour

Dim DB1

Dim T1

riqi=Now

DB1=riqi/24

My_Year=Year(DB1)

My_Month=Month(DB1)

My_Day=Day(DB1)

My_Hour=Hour(DB1)

sCon= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=WINCC;Data Source=.\WINCC"

whe=" where year(MyTime)="&My_Year&" and month(MyTime)="&My_Month&" and day(MyTime)="&My_Day&" "  '设置查询条件

strSQL1= "SELECT convert(char(13),MyTime,21),Data01,Data02,Data03,Data04,Data05,Data06,Data07,Data08  FROM  ReportMinute "  & whe

strSQL2= "SELECT AVG(Data01),AVG(Data02),AVG(Data03),AVG(Data04),AVG(Data05),AVG(Data06),AVG(Data07),AVG(Data08)  FROM  ReportMinute " & whe

strSQL3= "SELECT sum(Data01),sum(Data02),sum(Data03),sum(Data04),sum(Data05),sum(Data06),sum(Data07),sum(Data08)  FROM  ReportMinute " & whe

Set conn=CreateObject("ADODB.Connection")

    conn.ConnectionString = sCon

    conn.CursorLocation = 3

    conn.Open

Set oRs1 = CreateObject("ADODB.Recordset")

Set oRs2 = CreateObject("ADODB.Recordset")

Set oRs3 = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")

    oCom.CommandType = 1

Set oCom.ActiveConnection = conn

    oCom.CommandText = strSQL1

Set oRs1 = oCom.Execute              '获取查询的历史数据集，是虚拟的数据结果表

    m = oRs1.RecordCount             '获取查询的历史数据行数，便于后边自动设置报表行数

    oCom.CommandText = strSQL2

Set oRs2 = oCom.Execute              '获取查询的合计数据集，是虚拟的数据结果表

    oCom.CommandText = strSQL3

Set oRs3 = oCom.Execute              '获取查询的平均数据集，是虚拟的数据结果表

每分钟往数据库中写一次数据，现在想读某个小时内的数据，请问要怎么实现呢？按现在的查询条件可以查询到某天内的数据，不知道某小时内的怎么实现