以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]DateTimePicker不会用啊  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52147)

--  作者:cat88hzh
--  发布时间:2014/6/10 10:59:00
--  [求助]DateTimePicker不会用啊
能不能写一个简单地使用 DateTimePicker 控件做查询的代码啊?
我用sql server数据库
想实现一个简单查询时间段的功能的按钮
Dim Filter As String

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Filter = "Creation_Date >= " & dt1.Value & " And Creation_Date <= " & dt2.Value
DataTables("数据监控").LoadFilter = Filter
DataTables("数据监控").Load()

但是报错,操作数类型冲突: date 与 int 不兼容。
但是DateTimePicker里我已经选的是Date类型的,Creation_Date字段本身就是日期类型的,是不是还需要什么转换?

--  作者:有点甜
--  发布时间:2014/6/10 11:01:00
--  
Dim Filter As String

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Filter = "Creation_Date >= #" & dt1.Value & "# And Creation_Date <= #" & dt2.Value & "#"
DataTables("数据监控").LoadFilter = Filter
DataTables("数据监控").Load()

--  作者:cat88hzh
--  发布时间:2014/6/10 11:08:00
--  
这样我也试过,会报错\'#\' 附近有语法错误。 我看说明上写过,只有ACCESS数据库才加#,我是SQL SERVER数据啊,应该就那样写感觉就对的啊。
--  作者:Bin
--  发布时间:2014/6/10 11:09:00
--  
Filter = "Creation_Date >= \'" & dt1.Value & "\' And Creation_Date <= \'" & dt2.Value & "\'"
--  作者:有点甜
--  发布时间:2014/6/10 11:09:00
--  

sqlserver,用单引号

 

Dim Filter As String

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Filter = "Creation_Date >= \'" & dt1.Value & "\' And Creation_Date <= \'" & dt2.Value & "\'"
DataTables("数据监控").LoadFilter = Filter
DataTables("数据监控").Load()


--  作者:cat88hzh
--  发布时间:2014/6/10 11:14:00
--  
偶偶!!对就是这个问题,多谢! 原来时间类型要加上’ 到是没注意啊啊