Question

VB编程中 DTPicker控件查询日期，不能精确到月和日？

代码：
If SSTab1.Tab = 0 Then '如果当前选择的是“收入项目”选项卡

Set Mydb = ExeCutesql("select * from 收入 where 日期>'" & DTPicker1.Value & "' and 日期<'" & DTPicker2.Value & "' ", Str_text)
Set MSHFlexGrid1.DataSource = Mydb

Else '当前选择的是“支出项目”选项卡
Set Mydb1 = ExeCutesql("select * from 支出 where 日期>'" & DTPicker1.Value & "' and 日期<'" & DTPicker2.Value & "' ", Str_text)
Set MSHFlexGrid2.DataSource = Mydb1

End If





Answer 1

Format(MyDate, "dddd, mmm d yyyy")

如果想要DTPicker控件也是日期与时间都有的就按下面的设置：
将DTPicker控件的Format项选择3-dtpCustom 之后再将CustomFormat项输入：yyyy-mm-dd hh:mm:ss

代码：
If SSTab1.Tab = 0 Then '如果当前选择的是“收入项目”选项卡

Set Mydb = ExeCutesql("select * from 收入 where 日期>'" & CONVERT(VARCHAR(19), DTPicker1.Value,120) & "' and 日期<'" & CONVERT(VARCHAR(19), DTPicker2.Value,120) & "' ", Str_text)
Set MSHFlexGrid1.DataSource = Mydb

Else '当前选择的是“支出项目”选项卡
Set Mydb1 = ExeCutesql("select * from 支出 where 日期>'" & CONVERT(VARCHAR(19), DTPicker1.Value,120) & "' and 日期<'" & CONVERT(VARCHAR(19), DTPicker2.Value,120) & "' ", Str_text)
Set MSHFlexGrid2.DataSource = Mydb1

End If

Answer 2

代码没什么问题，你可以试试：
Set Mydb1 = ExeCutesql("select * from 支出 where 日期>'" & DateValue(DTPicker1.Value) & "' and 日期<'" & DateValue(DTPicker2.Value) & "' ", Str_text)
如果要包含日期，可以将 日期> 日期< 改成 日期>= 日期<=

追问

还是不行啊！求指导

追答

你能说一下是什么错误码？你光说不行我很难判断啊

追问

关键是没错误码 只能找到相差年以上，找不到月或日里面的数据

追答

相差年以上？你能说详细点吗？

追问

如图 我建立的数据时 2013/ 4/10的 ，但是 不能在 2013/4/3 -2013/4/30 这段时间内被找到
只能被 2013/4/3 -2014/4/30这段时间内找到

追答

你要确保你建立的数据库中的“日期”字段的类型是datetime类型。代码应该没问题，要不你再试试：
Set Mydb1 = ExeCutesql("select * from 支出 where 日期 bewteen '" & DateValue(DTPicker1.Value) & "' and '" & DateValue(DTPicker2.Value) & "' ", Str_text)

追问

新问题出现了 改完 字段

追答

重新绑定吧

追问

怎么重新绑定？

追答

呃，你原来怎么绑定的？你问的确实很细，问题是我对你的环境完全不了解，我不是神，很多问题远程只凭你只言片语无法回答。

追问

留个qq呗！我给你我的程序

追答

278700294@qq.com

Answer 3

把SQL语句中的单引号变为#