日历控件刚刚学会怎么弄，但是要查询这两个语句之间的数据的语法我可是较劲脑汁啊，在网上查，自己试，可是每次不是语法错误就是连接不上数据库，我感觉这个方法就在我的眼前，我就是弄不出来，煞费苦心本文来源gaodaimacom搞#代%码@网-
日历控件刚刚学会怎么弄，但是要查询这两个语句之间的数据的语法我可是较劲脑汁啊，在网上查，自己试，可是每次不是语法错误就是连接不上数据库，我感觉这个方法就在我的眼前，我就是弄不出来，煞费苦心啊。下面是查询两个日历控件之间的代码，大家可以看看。
<span style="font-size:18px">Private Sub Command1_Click() date1 = DTPicker1.Value‘这是日历控件 date2 = DTPicker2.Value '比较两个日期的大小 If DateDiff("n", CDate(date1), CDate(date2)) ='" & date1 & "' and date <='" & date2 & "'" Set mrc = ExecuteSQL(txtSQL, Msgtext) If mrc.EOF = True Then MsgBox "没有信息" Exit Sub End If With MSFlexGrid1 Do While mrc.EOF = False .CellAlignment = 4 .Rows = .Rows + 1 .TextMatrix(.Rows - 2, 0) = mrc!cardno .TextMatrix(.Rows - 2, 1) = mrc!addmoney .TextMatrix(.Rows - 2, 2) = mrc!Date .TextMatrix(.Rows - 2, 3) = mrc!Time .TextMatrix(.Rows - 2, 4) = mrc!userID .TextMatrix(.Rows - 2, 5) = mrc!Status mrc.MoveNext If mrc.EOF = True Then .Rows = .Rows - 1 End If Loop End With mrc.CloseEnd sub</span>
写了一大堆，其实最有用的是这句话
txtSQL = “select * from Recharge_Info where date >='” & date1 & “' and date <='" & date2 & "'"
此方法不仅可以比较日期，以此类推，基本上带数字的都能比较吧！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：机房收费系统之—怎样查询两个日期之间的数据
转载请注明原文链接：机房收费系统之—怎样查询两个日期之间的数据
