奥运专题:欢迎
我的程序每1小时执行1次,可是我的数据没有刷新,是怎回事?请各位大侠指教!
以下是1段从数据库中提数据的语句:
Set db = OpenDatabase("", True, False, "ODBC;DSN=elementinfo;UID=sa;PWD=;login timeout=5")
Set rs = db.OpenRecordset("select * from tabTimeData where StationNum='53463' and ObservTimes like " & "'%" & md & "%' ")‘ObservTimes观测时间=随时变化的当前时间md
//ObservTimes(观测时间)字段就是从表中的索引,
md 就是我取的时间变量,是这样得到的:
rr = Str(Format(Now, "yyyymmdd"))
tt = Format(Now, "hh")
md = Trim(rr) & Trim(tt)