Office中国论坛/Access中国论坛

标题: [讨论]后台为SQL的日期查询 [打印本页]

作者: fyq 时间: 2006-9-30 22:47
标题: [讨论]后台为SQL的日期查询
请大虾们看一下，以下两个代码有什么不同，为什么后一段代码查询出来的日期会出错？

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

以下可用于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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)