vb数据库,两时间段查询,出现了日期漏洞,请高手指教。
DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimsqlAsStringSetcn=NewADODB.Connectionc...
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\我的工程\运营数据.mdb;"
sql = "select * from 基本信息 where 日期 between '" & DTPicker1.Value & "' And '" & DTPicker2.Value & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
Set MSHFlexGrid1.Recordset = rs
MSHFlexGrid1.Refresh
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
我的数据在22号。23号,但我从1号开始,30号结束,就可以查到。但把开始调到3号,4号,5号。6号,7号,8号,9号,做为开始,结束还是30号就查不到数据,从10号开始就又可以查到了,郁闷,不知道怎么回事。 展开
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\我的工程\运营数据.mdb;"
sql = "select * from 基本信息 where 日期 between '" & DTPicker1.Value & "' And '" & DTPicker2.Value & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
Set MSHFlexGrid1.Recordset = rs
MSHFlexGrid1.Refresh
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
我的数据在22号。23号,但我从1号开始,30号结束,就可以查到。但把开始调到3号,4号,5号。6号,7号,8号,9号,做为开始,结束还是30号就查不到数据,从10号开始就又可以查到了,郁闷,不知道怎么回事。 展开
2个回答
展开全部
语句没错问题可能出在你取值的时候
断点跑下看看是不是在取值的时候给的值不对
断点跑下看看是不是在取值的时候给的值不对
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询