////////////////！！十万火急！！！！！//////////////////

Question

在VB语言里的SQL 查询语句你如何实现对SQL server 数据库datetime 字段名 riqi的操做
比如! 我要做每一天时间段的查询 datetime 的记录如下
2004-05-17 12:01:22 
2004-05-18 14:22:55
2004-05-15 10:00:12
2004-05-06 09:00:45
2004-03-04 06:02:11
select * from biao where  riqi>=某天的零点开始 and  riqi<=某天的23:59:59结束如何写啊!!(两个某一天是同一天)
select * from biao where  riqi>="2004-05-17 00:00:00" and  riqi<="2004-05-17 23:59:59"
要做到这样功能的语句如何写啊

Answer 1

SELECT a.CarID,b.CarNo,COUNT(*) AS Cs FROM TabDispatch AS a LEFT JOIN TabCar AS b ON b.CarID=a.CarID WHERE  a.RegTime>='2004-06-17 00:00:00' AND a.RegTime<='2004-06-17 23:59:59' GROUP BY a.CarID,b.CarNo ORDER BY a.CarID,b.CarNo这是我现在做的系统里一条查询语句，我设断点拿的，成功的。

Answer 2

Dim Rs As New ADODB.Recordset
sql="SELECT * FROM Biao WHERE RiQi>='2004-06-17 00:00:00' AND RiQi<='2004-06-17 23:59:59'"
rs.open sql,Cnn, adOpenKeyset, adLockOptimistic, adCmdText
'你要查的记录集出来了
rs.close
set rs=nothing

Answer 3

用“Between...And...”也可以的。sql="SELECT * FROM Biao WHERE RiQi Between '2004-06-17 00:00:00' AND '2004-06-17 23:59:59'"

Answer 4

按照你的说法
我的语句
  select * from biao where riqi>='2004-06-17 00:00:00' and riqi<='2004-06-17 23:59:59'group by riqi
 没有问题才对？是吗
但是一直没有调试好啊！提示00错误

Answer 5

select * from biao where  convert(varchar(10),riqi,120)='2004-5-27'or:select * from biao where  datediff(day,'2004-5-27',riqi) between 0 and 1当然，'2004-5-17'可以换成变量，如@dt

Answer 6

放置一个text1，让用户写日期，初始化为：text1.text=format(now,"yyyy-mm-dd")
一个command1。
command1_click()
dim lefts as string
dim rights as string
dim sqlstr$
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb;"
lefts=text1.text & " 00:00:00" : rights=text1.text & " 23:59:59" '注意空格否则不符合时间格式
sqlstr="select * from biao where  riqi>=#" & lefts & "# and riqi<= #" & rights "#"
rs.open sqlstr,cn
.......
rs.close
set rs=nothing
cn.close
set cn=nothing
end sub

Answer 7

上面是access数据库的情况，如果你是sql server数据库，把“#” 改为“'”。

Answer 8

Dim summ, summm, hh, sxb, sxb1 As Double
 Dim datex1, datex2
 Dim tt As String
 Dim a, b, i, x As Integer
 i = 0
 a = 2
 b = 3
 MSF1.Visible = False
 For i = 0 To 6
  datex1 = Format(DateAdd("d", -i, Date), "yyyy-mm-dd 00:00:00")
  datex2 = Format(DateAdd("d", -i, Date), "yyyy-mm-dd 23:59:59")
  tt = "select * from jxc_dj_1_pos where yyyymm_jxc>=" & "'" & datex1 & "'" & " and  yyyymm_jxc<= & " '" & datex2 & "'" '& " order by yyyymm_jxc " & Desc
  re.Open "select * from jxc_dj_1_pos where Yyyymm_jxc<=" & "'" & datex1 & "'"
   Do Until re.EOF
   tt = Format(re.Fields("rq"), "hh")
    Select Case Format(re.Fields("rq"), "hh")
    Case 9
      MSF1.TextMatrix(2, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 10
      MSF1.TextMatrix(3, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 11
      MSF1.TextMatrix(4, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 12
      MSF1.TextMatrix(5, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 13
      MSF1.TextMatrix(6, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 14
      MSF1.TextMatrix(7, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 15
      MSF1.TextMatrix(8, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 16
      MSF1.TextMatrix(9, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 17
      MSF1.TextMatrix(10, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 18
      MSF1.TextMatrix(11, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 19
      MSF1.TextMatrix(12, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 20
      MSF1.TextMatrix(13, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 21
      MSF1.TextMatrix(14, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 22
      MSF1.TextMatrix(15, a) = Format(re.Fields("ysje") & "", "##,##0.00")
   End Select
   re.MoveNext
 Loop
 a = a + 1
 b = b + 1
     re.Close
    Next
   MSF1.Visible = True我的语句是这样写的没有错啊

Answer 9

Dim summ, summm, hh, sxb, sxb1 As Double
 Dim datex1, datex2
 Dim tt As String
 Dim a, b, i, x As Integer
 i = 0
 a = 2
 b = 3
 MSF1.Visible = False
 For i = 0 To 6
  datex1 = Format(DateAdd("d", -i, Date), "yyyy-mm-dd 00:00:00")
  datex2 = Format(DateAdd("d", -i, Date), "yyyy-mm-dd 23:59:59") 
  re.Open"select * from jxc_dj_1_pos where yyyymm_jxc>=" & "'" & datex1 & "'" & " and  yyyymm_jxc<= & " '" & datex2 & "'" '& " order by yyyymm_jxc " & Desc
   Do Until re.EOF
   tt = Format(re.Fields("rq"), "hh")
    Select Case Format(re.Fields("rq"), "hh")
    Case 9
      MSF1.TextMatrix(2, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 10
      MSF1.TextMatrix(3, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 11
      MSF1.TextMatrix(4, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 12
      MSF1.TextMatrix(5, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 13
      MSF1.TextMatrix(6, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 14
      MSF1.TextMatrix(7, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 15
      MSF1.TextMatrix(8, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 16
      MSF1.TextMatrix(9, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 17
      MSF1.TextMatrix(10, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 18
      MSF1.TextMatrix(11, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 19
      MSF1.TextMatrix(12, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 20
      MSF1.TextMatrix(13, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 21
      MSF1.TextMatrix(14, a) = Format(re.Fields("ysje") & "", "##,##0.00")
    Case 22
      MSF1.TextMatrix(15, a) = Format(re.Fields("ysje") & "", "##,##0.00")
   End Select
   re.MoveNext
 Loop
 a = a + 1
 b = b + 1
     re.Close
    Next
   MSF1.Visible = True

Answer 10

select * from biao where  convert(varchar(10),riqi,120)='2004-5-27'or:select * from biao where  datediff(day,'2004-5-27',riqi) between 0 and 1

Answer 11

还要加上参数：rs.open sql,Cnn, adOpenKeyset, adLockOptimistic, adCmdText

Answer 12

Dim Rs As New ADODB.Recordset
sql="SELECT * FROM Biao WHERE RiQi>='2004-06-17 00:00:00' AND RiQi<='2004-06-17 23:59:59'"
rs.open sql,Cnn, adOpenKeyset, adLockOptimistic, adCmdTextrs.close
set rs=nothing

Answer 13

海梅网络
为你提供 编程问题解答  软件下载   电影欣赏
网站主人天天晚上上线亲自回答问题
hm120.vicp.net

Answer 14

当天的最后是否等于明天的0零时减1秒,用dateadd函数实现.