使用vb6從oracle數據庫檢索當前日期記錄

Question

我有一個包含作品列表的表。所以我想用vb6在msflexgrid中顯示今天的工作列表。

代碼：

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 這個查詢和相同的查詢它給工作列表。 那麼確切的問題是什麼？

Answer 1

我期望它的一部分就是你在日期比較的不同格式之間轉換。 儘量只：

strwrlist = "Select * From BIOMED.HelpDesk_Work_Master where WR_DATE=TIMESTAMP'" & format(dt, "yyyy-mm-dd hh:mm:ss") & "'" 

確保雙方WR_DATE和DT的類型正確（在Oracle TIMESTAMP）日期。

這保留並做適當的日期轉換和比較。