使用vb6从oracle数据库检索当前日期记录
问题描述:
我有一个包含作品列表的表。所以我想用vb6在msflexgrid中显示今天的工作列表。使用vb6从oracle数据库检索当前日期记录
代码:
strwrlist = "Select * From BIOMED.HelpDesk_Work_Master where TO_DATE(TO_CHAR(WR_DATE,'DD-MON-YYYY HH:MM:SS'),'DD-MON-YYYY HH:MM:SS')='" & dt & "'"
'dt hold the current date i.e. dt = Format(CDate(rsgetdt.Fields("SYSDATE")), "DD-MMM-YYYY HH:MM:SS")
MsgBox strwrlist
Set rsgetwrlist = Nothing
If rsgetwrlist.State = adStateOpen Then rsgetwrlist.Close
rsgetwrlist.Open strwrlist, Cn.con, adOpenForwardOnly, adLockReadOnly
Do While Not rsgetwrlist.EOF
If IsNull(rsgetwrlist("WR_NO")) = False Then
msflxgrdlow.TextMatrix(r, 0) = rsgetwrlist.Fields("WR_NO")
End If
msflxgrdlow.AddItem ""
rsgetwrlist.MoveNext
r = r + 1
loop
但它并没有给我的记录列表,当我,当我在蟾蜍(Oracle)的运行运行从VB 这个查询和相同的查询它给工作列表。 那么确切的问题是什么?
答
我期望它的一部分就是你在日期比较的不同格式之间转换。 尽量只:
strwrlist = "Select * From BIOMED.HelpDesk_Work_Master where WR_DATE=TIMESTAMP'" & format(dt, "yyyy-mm-dd hh:mm:ss") & "'"
确保双方WR_DATE和DT的类型正确(在Oracle TIMESTAMP)日期。
这保留并做适当的日期转换和比较。
滴答不会是绿色的,除非点击:) – bjan