[讨论]后台为SQL的日期查询

fyq

请大虾们看一下，以下两个代码有什么不同，为什么后一段代码查询出来的日期会出错？





－－－－－－－－－－－－－－－－－－－－

以下可用于ACCESS作前台，SQL作后台数据库。也可用于纯ACCESS环境。

If Not IsNull(Me.开始日期) Then
stw = stw & "[日期] >= #" & Me.开始日期 & "#  and "
End If
If Not IsNull(Me.结束日期) Then
stw = stw & "[日期] <= #" & Me.结束日期 & "#  and "
End If

If Len(stw) > 0 Then
stw = Left(stw, Len(stw) - 5)
End If
    Me.窗体1子窗体.Form.FilterOn = True
    Me.窗体1子窗体.Form.Filter = stw

－－－－－－－－－－－－－－－－－－－－



以下只能用于纯ACCESS环境，如果后台数据库为SQL，查询结果会是错误的。开始日期和结束日期均延后2天。

－－－－－－－－－－－－－－－－－－－－－

If Not IsNull(Me.开始日期) Then
   strWhere = strWhere & "([日期] >= " & Format(开始日期, "00000000") & ") AND "
    End If
If Not IsNull(Me.结束日期) Then
  strWhere = strWhere & "([日期] <= " & Format(结束日期, "00000000") & ") AND "
   End If

If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    Me.窗体1子窗体.Form.Filter = strWhere
    Me.窗体1子窗体.Form.FilterOn = True

－－－－－－－－－－－－－－－－－－－－