aqryid是TADOQuery
aqryid表的SQL属性如下:
select jyh from t_saledet
where rq=:vdate
运行下面代码时
with aqryid do
begin
Close ;
Parameters.ParamByName('vdate').Value := formatdatetime('yyyy,mm,dd',DBDateTimeEditEh1.value) ;
open;
end;
发生错误提示:
从字符串转为datetime时发生错误
怎么办?谢谢!!
aqryid表的SQL属性如下:
select jyh from t_saledet
where rq=:vdate
运行下面代码时
with aqryid do
begin
Close ;
Parameters.ParamByName('vdate').Value := formatdatetime('yyyy,mm,dd',DBDateTimeEditEh1.value) ;
open;
end;
发生错误提示:
从字符串转为datetime时发生错误
怎么办?谢谢!!
解决方案 »
- 程序自动配置odbc代码,可以连接,但数据库有密码时不知道如何提交密码
- 为什么我用DBCHART只能显示一条记录
- 开发的新组件的使用问题
- 我为什么连不上MSSQL?
- 用鼠标在Timage上写字,怎么弄能得到最佳效果,满意给300分
- 如何利用delphi2010的rtti获得某对象属性的属性?
- 初学者提问:为什么应用无法关闭
- 怎样真正删除一个控件?
- 得到了机器里面所有的进程的ProcessID,我想关掉里面的某一个,应该怎么作了?不要告诉我用sendmessage,呵呵:)
- 请问有哪位好心的大哥帮小妹一把吗?(关于DAO在DLL中的应用)
- ftp下载出错
- 怎么在网页中调用Delphi编写的Activex控件时弹出菜单取相对位置。
formatdatetime('yyyy-mm-dd', DBDateTimeEditEh1.value) ;
begin
qry_xgbb.Close;
qry_xgbb.sql.Clear;
qry_xgbb.sql.Add( ' select c.*,case when c.jh=1 then ''A區警衛室'' when c.jh=2 then ''B區警衛室'' when c.jh=3 then ''回收區'' ' );
qry_xgbb.sql.Add( ' when c.jh=4 then ''F棟宿舍'' when c.jh=5 then ''C棟宿舍'' when c.jh=6 then ''電工房'' ' );
qry_xgbb.sql.Add( ' when c.jh=7 then ''B棟宿舍'' when c.jh=8 then ''A棟宿舍'' when c.jh=9 then ''西側警衛室'' when c.jh=10 then ''A區材料倉'' end as dd ' );
qry_xgbb.sql.Add( ' from( select a.bh,b.Full_Name,b.CB,b.BM,b.KB,b.XB,b.BC,b.GW,b.JN,a.rq,a.bc as jh,a.sj from RES_HR_XGRB a ');
qry_xgbb.sql.Add( ' left join Res_Hrd_Temp b on a.bh=b.Account_Id where a.rq='''+ FormatDateTime('yyyy/mm/dd',cxDateEdit1.Date)+''' ) c order by c.rq,c.sj ');
qry_xgbb.Open;
end;