PublicSubshowbb()
DimiAsInteger
DimjAsString
DimkAsString
DimXAsDate
Dimtime1AsString
Dimtime2AsString
Dimtime3AsString
DimYAsString
DimRsAsNewADODB.Recordset'定义连接数据库的ADO变量
time1=Format(datetime.Value,"yyyy-MM-dd")
X=CDate(time1)
Y="'"+time1+"'"
Fori=0To23
Ifi=10Then
j=CStr(i)
time2=j&":"&"00"&":"&"00"
EndIf
Ifi+1=10Then
k=CStr(i+1)
time3=k&":"&"00"&":"&"00"
EndIf
openDB1'打开IFIX_DATA数据库,该函数在后面有定义
CmdTruck.ActiveConnection=conn
CmdTruck.CommandText="selectdata.PH,data.PAH,data.浊度fromdatawhereconvert(char(10),时间,120)='time1'andconvert(char(8),时间,108)between'time2'and'time3'"
SetRs=CmdTruck.Execute
这样写查询不到数据,当把time1,time2,time3换成准确值如:time1改成2020-02-28,time2改成14:00:00,time3改成15:00:00时可以查询到数据,请帮忙看看错在哪里?
分 --> |