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 

하지만 (오라클) 두꺼비에서 실행할 때이 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 모두가 제대로 (오라클 TIMESTAMP) 입력 날짜 것을 확인하고.

이것은 적절한 날짜 변환 및 비교를 유지하고 수행합니다.