用VB中的日历（DTPicker) 和datagrid控件实现：点击日历日期在datagrid中显示当天数据

‘假定当前连接到数据库的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_ConnExecute(strSQL)

If Not RecordDateBOF And Not RecordDateEOF Then

MaxDate = RecordDateFields("nMax")

MinDate = RecordDateFields("nMin")

End If

End Sub

'如果日期被改变并且是有效日期，刷新 (这里你可以用DTPikcer1的Click事件但DTPicker

‘不仅仅能通过单击选择日期，还有其他方式，个人建议用 Change事件。

Private Sub DTPicker1_Change()

'检验选择的日期是否有效

If DTPicker1Value < MinDate Or DTPicker1Value > MaxDate Then

MsgBox "输入日期必须介于" & MinDate & " 和" & MaxDate & "之间!"

Exit sub

end if

strSQL=“SELECT From Table WHERE Date=#" & DTPicker1Value & "#"”

Adodc1ConnectionString = g_ConnConnectionString ‘设定Adodc 的连接字符串连接到数据库

Adodc1RecordSource = strSQL

Adodc1Refresh '刷新记录

Set DataGrid1DataSource = Adodc1

End Sub

"select from table where date >= #"+DTPicker+" 00:00:00# and date<=#"+DTPicker+" 23:59:59#"

其中table为你的表名称，date为你的字段名称，DTPicker是你从控件中获得的日期，查询从当天0点到23点59分59秒的信息你就可以查出当天所有记录

另外vb中的字符串相加好像是用＆，太久没用了，你把＋号换成＆就行了

以上就是关于用VB中的日历（DTPicker) 和datagrid控件实现：点击日历日期在datagrid中显示当天数据全部的内容，包括:用VB中的日历（DTPicker) 和datagrid控件实现：点击日历日期在datagrid中显示当天数据、急！！！access中按日期查询数据问题、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！