jhwcsj:='';
if (trim(edit_jhwcsj.Text)<>'') then
jhwcsj:=edit_jhwcsj.text;
condition:='xmlxbh is null';
if trim(edit_jhwcsj.text)<>'' then
condition:='xmlxbh='''+edit_xmpzh.text+'''';
with adoquery_jtxmdjb do
begin
sql.clear;
sql.add('update xmzaiyan set jhwcsj='+jhwcsj+' where '+condition+'');
execsql;
end;
属性jhwcsj为日期时间型。程序编译通过,但是在edit中填入2003-1-1或2003/1/1等格式的数据时,数据库表中无法得到相同的结果。请问高手应该如何做?
if (trim(edit_jhwcsj.Text)<>'') then
jhwcsj:=edit_jhwcsj.text;
condition:='xmlxbh is null';
if trim(edit_jhwcsj.text)<>'' then
condition:='xmlxbh='''+edit_xmpzh.text+'''';
with adoquery_jtxmdjb do
begin
sql.clear;
sql.add('update xmzaiyan set jhwcsj='+jhwcsj+' where '+condition+'');
execsql;
end;
属性jhwcsj为日期时间型。程序编译通过,但是在edit中填入2003-1-1或2003/1/1等格式的数据时,数据库表中无法得到相同的结果。请问高手应该如何做?
解决方案 »
- delphi使用Socket的问题
- TreeView怎样可以通过选择当前节点来活得该节点的顶层节点名称?如何可以屏蔽对节点的Text进行修改?如何可以让Label的背景为透明?
- 初学者问:如何用BDE连接sql server 2000?谢谢!
- 如何实现 TrackBar 连续控制播放进度问题
- treeview的显示问题
- 哪里可以下installshield 2000 ?
- csdn还有没有人?人都跑那儿去了?
- 招聘;
- 客户机没有安装SQL SEVER2000,如何显示装有SQL SEVER2000的机器名
- 关于Delphi一个BUG的讨论
- 请教高手,如何获取某个独立应用程序的窗口中socket对象的句柄
- 请教:在调用函数BlockRead()的时候,老是出现 I/O error 998的错误,通常是什么原因?
jhwcsj:='';有问题吧!!!
另外,你还应加一个日期输入是否合法的判断
假如edit_xmpzh.txt的格式为"2002-12-12 00:00:01"
则条件语句改为
format(xmlxbh,'YYYY-MM-DD HH:NN:SS')='2002-12-12 00:00:01'