Date Compare in Access db

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • neelaseenu
    New Member
    • Apr 2008
    • 3

    Date Compare in Access db

    Hi there
    Can some one help me with this issue. I have 2 text fields which user selects the date from calender control. Now i want to retreive data from table which falls in the range of these 2 text fields
    here is the code i have written. When i run this form it returns the resultset with no rows.(EMPTY resultset)

    sdate = CDate(Forms![ResolvedInciden tsbySevierity]![Text3])
    edate = CDate(Forms![ResolvedInciden tsbySevierity]![Text5])

    sql = "select IncidentsResolv ed.Severity,cou nt(IncidentsRes olved .Severity) from IncidentsResolv ed WHERE ((IncidentsReso lved.[Arrival Time] >= " & sdate & ") AND (IncidentsResol ved.[Arrival Time] <= " & edate & ")) GROUP BY IncidentsResolv ed.Severity"

    Set MyDB = DBEngine.Worksp aces(0).OpenDat abase("D:\Repor ts\db 1.mdb")
    Set MySet = MyDB.OpenRecord set(sql, DB_OPEN_DYNASET )

    If (MySet.EOF = False And MySet.BOF = False) Then
    MySet.MoveFirst
    level1.Value = MySet.Fields(1)
    MySet.MoveNext
    level2.Value = MySet.Fields(1)
    MySet.MoveNext
    level3.Value = MySet.Fields(1)
    MySet.MoveNext
    ' level4.Value = MySet.Fields(1)
    Else
    MsgBox ("No data found")
    End If

    MySet.Close
    Set MyDB = Nothing


    I have also tried by replacing the above sql stmt to and still no luck

    sql = "select IncidentsResolv ed.Severity,cou nt(IncidentsRes olved .Severity) from IncidentsResolv ed WHERE ((IncidentsReso lved.[Arrival Time] >= #sdate#) AND (IncidentsResol ved.[Arrival Time] <= #edate#)) GROUP BY IncidentsResolv ed.Severity"
  • debasisdas
    Recognized Expert Expert
    • Dec 2006
    • 8119

    #2
    Question moved to access forum.

    Comment

    Working...