vb calender日历控件双击日期如何从数据库中取出当日数据？？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → vb calender日历控件双击日期如何从数据库中取出当日数据？？

标题：vb calender日历控件双击日期如何从数据库中取出当日数据？？

只看楼主

其实天狠蓝

等　级：新手上路
帖　子：3
专家分：0
注　册：2013-1-6
结帖率：0

楼主

已结贴√ 问题点数：8 回复次数：4

vb calender日历控件双击日期如何从数据库中取出当日数据？？

Private Sub Calendar1_DblClick()
sql = "select conten from files where date='" & Date & "'"
Dim rs As New ADODB.Recordset
rs.Open sql, conn
Text1.Text = rs(0)
End Sub

这么写date显示的就是当日日期，怎么办呢？

2013-03-28 10:25

其实天狠蓝

等　级：新手上路
帖　子：3
专家分：0
注　册：2013-1-6

第 2 楼

得分:0

新手求帮助啊，，，，

2013-03-28 10:44

xbj_hyml

等　级：论坛游侠
威　望：1
帖　子：24
专家分：114
注　册：2012-11-28

第 3 楼

得分:8

Private Sub Calendar1_DblClick()
    dim tempStr as String
    tempStr=Date & " %"
    sql = "select conten from files where date like '" & tempStr & "'"
    Dim rs As New ADODB.Recordset
    rs.Open sql, conn
    Text1.Text = rs(0)
End Sub
----取出一天的数据，是这个意思嘛？