- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- SQL数据源时间加载条件的写法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25444)
-- 发布时间：2012/11/9 13:55:00
-- SQL数据源时间加载条件的写法
我有一个表 时间列以日期 + 时间保存的 我想加载今日的数据 这样写 确不起作用,应该咋改?
Dim d As Date = Date.Now
Dim d1 As Date = Date.Now
DataTables(e.Form.Name & "_Table1").Fill("Select * From{网络通讯} Where 发送时间>=\'" & d & "\'And 发送时间<=\'" & d1 & "\'" ,"服务器",False)
如果改成这样!
Dim d As Date = Date.Now
DataTables(e.Form.Name & "_Table1").Fill("Select * From{网络通讯} Where 发送时间<=\'" & d1 & "\'" ,"服务器",False)
会加载 今日前的所有数据!
-- 发布时间：2012/11/9 14:11:00
--
呃，当然是不起作用的
比如现在 是 2012-11-09 14:10:59
那你的条件就是
发送时间 >= ’2012-11-09 14:10:59\' And 发送时间 <= ’2012-11-09 14:10:59\'
只会加载一秒的数据。
-- 发布时间：2012/11/9 14:16:00
--
Dim d As Date = Date.Today
DataTables(e.Form.Name & "_Table1").Fill("Select * From{网络通讯} Where 发送时间 >= \'" & d1 & "\'And 发送时间 < \'" & d.addDays(1) & "\'" ,"服务器",False)
-- 发布时间：2012/11/9 14:32:00
--
老大 非常正确:
我又不明白了:
If e.Form.Controls("DateTimePicker1").Value Is Nothing Or e.Form.Controls("DateTimePicker2").Value Is Nothing Then
MessageBox.Show("请输入查询日期")
Return
End If
DataTables(e.Form.Name & "_Table1").Fill("Select * From{网络通讯} Where 发送时间>=\'" & e.Form.Controls("DateTimePicker1").Value & "\'And 发送时间<=\'" & e.Form.Controls("DateTimePicker1").Value & "\'","数据源",false)
这个又是啥问题呢? 根据控件的值来加载,就是加载不到数据!
-- 发布时间：2012/11/9 14:34:00
--
呃，当然是不起作用的
比如现在 是 2012-11-09 14:10:59
那你的条件就是
发送时间 >= ’2012-11-09 14:10:59\' And 发送时间 <= ’2012-11-09 14:10:59\'
只会加载一秒的数据。
小林 我用过 date.today 也没有起作用,老大的是对的 只是没有明白为啥呀加上1天
-- 发布时间：2012/11/9 14:39:00
--
呵呵，老朱，用MessageBox.show显示一下合成的表达式，就知道为啥了。
-- 发布时间：2012/11/9 15:05:00
--
老大 表达式是对的 但是就是不出来
-- 发布时间：2012/11/9 15:11:00
--
比如，
发送时间 >= ’2012-11-09 00:00:00\' And 发送时间 <= ’2012-11-09 00:00:00\'
不也是一秒的数据么？
-- 发布时间：2012/11/9 15:18:00
--
此主题相关图片如下：mafz$c6}5i(mee_{urghkg.jpg
老大 你看我的合成有问题吗?
-- 发布时间：2012/11/9 15:28:00
--
我可能知道原因!