【结贴】执行sql语句报错**

ccseasy

代码如下
procedure TGNHXCBJZ_ZDGJJYJDBBinfo.DataSetGNHXCBJZ_ZDGJJYJDBBBeforeOpen(DataSet: TDataSet);
var
   ls_year:string;      //当前年
   time:string;        //当前时间
   ls_sql:string;         //sql语句
   ls_dept:string;
begin
    ls_year:=sysutils.IntToStr(DateUtils.YearOf(SysService.Time));  //根据当前时间获得当前年
    time:=QuotedStr(ls_year+'-01-01');//当前年的1月1日
    ls_sql:='1=1';
    ls_dept := QuotedStr(ls_year+'SH%') ;
    ls_sql:=ls_sql+' and (dcr_job like '+ls_dept+' or dcr_fdate >= '+time+' or dcr_fdate is null) ';
    TSQLDataSet(DataSetGNHXCBJZ_ZDGJJYJDBB).UserFilter:=ls_sql;
end;

showmessage()显示的sql语句如下图片：

ccseasy

1

dynasty0628

Oracle数据库要toDate一下吧

ccseasy

怎么todate一下？具体操作是怎样的？

dynasty0628

印象中是toDate('2007-01-01','yyyy-mm-dd')

jiahaiminghr

楼主问题解决了吗？

lixy

由于长时间没有反馈，先结贴了。

有问题请开新贴。