Foxtable(狐表)用户栏目专家坐堂 → SQL数据源时间加载条件的写法


  共有11705人关注过本帖树形打印复制链接

主题:SQL数据源时间加载条件的写法

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
SQL数据源时间加载条件的写法  发帖心情 Post By:2012/11/9 13:55:00 [显示全部帖子]

  我有一个表 时间列以日期 + 时间保存的  我想加载今日的数据  这样写 确不起作用,应该咋改?

 

    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)

 

  会加载 今日前的所有数据!




 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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:32:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 14:34:00 [显示全部帖子]

以下是引用lin_hailun在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'

 只会加载一秒的数据。

  小林 我用过 date.today  也没有起作用,老大的是对的  只是没有明白为啥呀加上1天


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 15:05:00 [显示全部帖子]

老大 表达式是对的 但是就是不出来

 


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 15:18:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:mafz$c6}5i(mee_{urghkg.jpg
图片点击可在新窗口打开查看

 

  老大 你看我的合成有问题吗?


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 15:28:00 [显示全部帖子]

我可能知道原因!


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 15:31:00 [显示全部帖子]

老大 我要筛选两个时间范围是不是

 

日期 > =      And  日期 <=     ?


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 15:52: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("DateTimePicker2").Value & "'","数据源",false)

 

  我要加载 2012-11-08  到 2012 -11 -09 的数据 但是怎么加载都只有8号的数据!


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 16:42:00 [显示全部帖子]

我做历史查询的

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/9 16:46:00 [显示全部帖子]

以下是引用lin_hailun在2012-11-9 16:06:00的发言:
 因为你的 发送时间 列有 时:分:秒

 你的条件比如是

 发送时间 >= '2012-11-09' And 发送时间 <= '2012-11-10'

 就相当于

 发送时间 >= '2012-11-09 00:00:00' And 发送时间 <= '2012-11-10 00:00:00'

 中间只有一天24小时的间隔。

---------------------------------------

 楼主,别纠结了。

 Dim d As Date = Date.Today
DataTables(e.Form.Name & "_Table1").Fill("Select * From{网络通讯} Where 发送时间 >= '" & d1 & "'And 发送时间 < '" & d.addDays(1) & "'" ,"服务器",False)

 

  小林 ,你看看老大的这段代码 应该不关时间格式的问题的?

 

 


 回到顶部
总数 15 1 2 下一页