...datagrid控件实现:点击日历日期在datagrid中显示当天数据

发布网友 发布时间：2024-10-23 20:26

我来回答

共2个回答

热心网友 时间：1天前

‘假定当前连接到数据库的Connection对象是g_Conn（换成你的），你要操作的表是Table，
'其中日期的字段名称是Date。窗体上的控件名称: DTPicker1 ，Adodc1， DataGrid1
‘在FormLoad()中加入下面的代码 ，查询记录中日期的最大值和最小值。
Private Sub FormLoad()
Dim RecordDate As Recordset ’记录集对象，记录日期查询结果
Dim strSQL As String
Dim MaxDate As Date '记录中日期的最大值
Dim MinDate As Date '记录中日期的最小指
strSQL = "select max(Date) as nMax,min(Date) as nMin from Table"
Set RecordDate = g_Conn.Execute(strSQL)
If Not RecordDate.BOF And Not RecordDate.EOF Then
MaxDate = RecordDate.Fields("nMax")
MinDate = RecordDate.Fields("nMin")
End If
End Sub
'如果日期被改变并且是有效日期，刷新 (这里你可以用DTPikcer1的Click事件但DTPicker
‘不仅仅能通过单击选择日期，还有其他方式，个人建议用 Change事件。
Private Sub DTPicker1_Change()
'检验选择的日期是否有效
If DTPicker1.Value < MinDate Or DTPicker1.Value > MaxDate Then
MsgBox "输入日期必须介于" & MinDate & " 和" & MaxDate & "之间!"
Exit sub
end if
strSQL=“SELECT * From Table WHERE Date=#" & DTPicker1.Value & "#"”
Adodc1.ConnectionString = g_Conn.ConnectionString ‘设定Adodc 的连接字符串连接到数据库
Adodc1.RecordSource = strSQL
Adodc1.Refresh '刷新记录
Set DataGrid1.DataSource = Adodc1

End Sub

热心网友 时间：1天前

你所指的当天数据是指当天的日期吗?