I have Query Select in vb6.0
to get data from Ms.access database
Expand|Select|Wrap|Line Numbers
- SQLSelectdbRAS = "SELECT a.DN, b.DIN, c.PIN, c.UserName, b.Clock, d.ItemName " & _
- "FROM ((ras_Device a INNER JOIN ras_AttRecord b ON a.DN=b.DN) " & _
- "LEFT JOIN ras_Users c ON b.DIN=c.DIN) " & _
- "LEFT JOIN ras_AttTypeItem d ON b.AttTypeId=d.ItemId " & _
- "WHERE b.DIN=c.DIN AND Format(b.Clock, 'mm/dd/yyyy')=#" & _
- Format(dateNow_, "mm/dd/yyyy") & "# AND " & _
- "Format(b.Clock, 'mm/dd/yyyy hh:nn:ss')>=#" & _
- Format(dateNow_, "mm/dd/yyyy 4:00:00PM") & "# AND " & _
- "Format(b.Clock, 'mm/dd/yyyy hh:nn:ss')<=#" & _
- Format(dateNow_, "mm/dd/yyyy 11:00:00PM") & "#"
- Debug.Print SQLSelectdbRAS
- Set rsFinger = da_GetRs(SQLSelectdbRAS)
'Syntax error in date in query expression 'b.DIN=c.DIN AND Format(b.Clock, 'mm/dd/yyyy')=#10/19/2010# AND Format(b.Clock, 'mm/dd/yyyy hh:nn:ss')>=#10/19/2010 4:00:00P10# AND Format(b.Clock, 'mm/dd/yyyy hh:nn:ss')<=#10/19/2010 11:00:00P10#'.
I want to interpret 4:00:00P10 in 4:00:00 PM and 11:00:00P10 in 11:00:00 PM
Can anyone help me to fix that query?
Regards,
Octo