您的位置：首页 > 其它

【机房收费系统】如何查询固定时间段内的数据MSHflexGrid

2014-08-26 10:51 260 查看

在做机房的时候遇到查询时间段的问题，起初的时候就感觉无从下手，后来想了起来，耿建玲老师的视频里讲过两个范围之间的查询，于是就翻翻笔记，问题就解决了，下面把代码贴出来。

Private Sub Command1_Click()

Dim txtSQL As String

Dim MsgText As String

Dim mrc As ADODB.Recordset

If DTPicker1.Value > DTPicker2.Value Then‘当前选中的时间

MsgBox "起始日期不能比终止日期早！", vbOKOnly + vbExclamation, "提示！"

DTPicker1.SetFocus

With MSHFlexGrid1’清空控件内容

.Col = 2

.Rows = 1

.Text = ""

End With

Exit Sub

End If

With MSHFlexGrid1

.Rows = 2

.CellAlignment = 4

.TextMatrix(1, 0) = "卡号"

.TextMatrix(1, 1) = "充值金额"

.TextMatrix(1, 2) = "充值日期"

.TextMatrix(1, 3) = "时间"

.TextMatrix(1, 4) = "充值教师"

.TextMatrix(1, 5) = "结账状态"

txtSQL = "select * from ReCharge_Info where date between '" & DTPicker1.Value & " ' and '" & DTPicker2.Value & "'" ’查询选取时间段的数据

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = True Then ‘该段没有符合的条件

MsgBox "对不起，该时期没有充值记录！", vbOKOnly + vbExclamation, "提示"

Exit Sub

End If

Do While mrc.EOF = False

.Rows = .Rows + 1

.CellAlignment = 4

.TextMatrix(.Rows - 1, 0) = mrc.Fields(2)

.TextMatrix(.Rows - 1, 1) = mrc.Fields(3)

.TextMatrix(.Rows - 1, 2) = mrc.Fields(4)

.TextMatrix(.Rows - 1, 3) = mrc.Fields(5)

.TextMatrix(.Rows - 1, 4) = mrc.Fields(6)

.TextMatrix(.Rows - 1, 5) = mrc.Fields(7)

mrc.MoveNext

Loop

mrc.Close

End With

End Sub

这整个过程需要格外注意三点：1是DTPicker1.Value表示当前选中的日期。2是MSHFlexGrid控件的清除，这里参考了李红同学的博客。3就是最重要的Select
字句的查询：Select * from 【表】where 【查询字段】between ‘’and ‘’

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航