我用getdate()却的当天的时间
但我只需要日期部分
不需要时间
怎么解决
不能用format(getdate(),"yyyy-mm-dd")
这该怎么办?

解决方案 »

  1.   


        date()
      

  2.   

    不行啊
    注:
    我是在数据环境中的command的属性中写的这句话
      

  3.   


        convert(varchar(10),getdate(),120)
      

  4.   

    谢谢了
    果然可以
    我一定给你分
    我想再问一下
    如果吧getdate() 变成dd.value怎么改
    dd 是dtpicker
      

  5.   


    例:
    rs.open "insert into tablename set datefieldname=convert(varchar(10), '" & dtpicker1.value & "', 120) where ..."
    "
      

  6.   


        写错了。应该写cn.execute "..."
      

  7.   

    结果说
    字符串转化为datetime 出错
      

  8.   

    select * from dd where ccrq=convert(varchar(10),'"&dd.value&"',120)

    我实在数据环境中的commmand的属性中写的
      

  9.   


    我给你的是写在代码中的形式。如果是command中设计环境下写的SQL文本,要用参数的形式。select * from dd where ccrq=convert(varchar(10),?,120)
      

  10.   

    我把dd.value 代入?
    发现没什么反映
    也不是从dd.value所选择的日期
      

  11.   

    什么调用语句
    说的是调用datareport的语句吗?
      

  12.   

    Private Sub Command1_Click()Dim SQL
    Dim strq
    Dim cc As DateIf Text1.Text = "" ThenSQL = "SHAPE {select * from dd where ccrq='" & dd.Value & "'group by yxy}  AS Command4 COMPUTE Command4 BY 'bz'"
    DataEnvironment1.Commands(4).CommandText = SQL
    DataReport4.Title = strq
    DataReport4.Show 1
    Unload DataEnvironment1ElseSQL = "SELECT * FROM dd WHERE yxy='" & Text1.Text & "'and ccrq='" & dd.Value & "'"
    DataEnvironment1.Commands(1).CommandText = SQL
    DataReport1.Title = strq
    DataReport1.Show 1
    Unload DataEnvironment1
    End IfEnd SubPrivate Sub Form_Load()
    dd.Value = DateAdd("d", 0, Now)
    End Sub
      

  13.   


        调用该command的相关语句。因为是运行时才能确定日期的值,所以,你得写代码调用才行。不能简单地在设计环境下赋报表的数据源就完事了。    建议先看看有关调用带参数的command的联机帮助。
      

  14.   


        ccrq是什么字段类型?
      

  15.   

    顺便提一下,这段是多余的:Private Sub Form_Load()
    dd.Value = DateAdd("d", 0, Now)
    End Sub
      

  16.   


    你在commands(1)、commands(4)的SQL文本里写上SQL的参数形式的语句。参考我上面写的。调用例:dataenvironment1.command1 dtpicker.value
    set datareport1.datasource=dataaenvironment1.rscommand1
      

  17.   

    确定吗
    为什么我这里总是出错呢 DataEnvironment1.Commands(4) dd.Value
    Set DataReport4.DataSource = DataEnvironment1.rsCommand1
      

  18.   


    我建立了一个类似的环境进行测试,没有发现问题。你的日期字段是用的什么类型?试改用datetime或smalldatetime,SQL语句相应地去掉转换部分:SQL = "SHAPE {select * from dd where ccrq=? group by yxy}  AS Command4 COMPUTE Command4 BY 'bz'"
      

  19.   

    另外注意,因为是运行时调用,你要把设计环境下赋以下的属性的属性值设置为空白:datareport.datasource、datareport.datamember、rpttextbox.datamember
      

  20.   

    你还真是热心阿,今天从你这里又学到了不少东西
    谢谢了
    我用dd.value取代你的?
    SQL文本里写上SQL的参数形式的语句
    结果还是按照文本上的选择
    select * from dd
    dd是订单表
    dd.value是个dtpicker