一条SQL语句的写法,请大家多多指教!今天晚上等着急用,无论如何请大家帮忙!(30分)

  • 主题发起人 主题发起人 kelphi
  • 开始时间 开始时间
K

kelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
[red][/red]我有一个表 table1 (record=3000)
xm sp gs nszt nssj
姓名 商品 公司 年审状态 年审时间
...
...


我设置了一个窗体+edit1,在edit1中输入一个时间,然后执行审核。
用一条语句如何实现:我现在输入的时间与库中的所有年审时间进行对比,如果年审时间<我输入的时间,则nszt为“未审“,若>则nszt不变。
 
没太读懂你的最后一句话,相信提示有用:
update table1
set nszt='未审'
where nssj=你输入的时间
UPDATE 表名
SET 字段=新值
WHERE 条件
 
就是我输入一个日期与库中所有年审日期进行比较,如果我的日期大于库中年审日期则nszt=未审。请帮忙,小弟先谢了!
 
update table1
set nszt='一身'
where nssj<strtotime(edit1)
大概这样,我没有试,
 
用TADOCOMMAND,或TADOQUERY
update table1
set nszt='未审'
where nssj<:yourvalue//=datetimetostr(edit1.text).
 
to dongberlin:datetostr未定义,还是不行
 
一、QUERY或ADOQUERY的属性SQL里添加SQL语句
update table1
set nszt='未审'
where nssj<:p_srsj
二、QUERY或ADOQUERY的属性PARAMS中设置p_srsj的DATATYPE为FTDATE
三、将EDIT1的日期赋给p_srsj
QUERY.Parameters[0].value:=STRTODATE(edit1.text);
四、将QUERY或ADOQUERY的ACTIVE设置为TRUE;
或将其OPEN;
 
query1.close;
query1.sql.clear;
query1.sql.add('update tarble1 set nszt="未审" where nssj < '
+ strtotime(edit1.text));
query1.execsql;
 
提示:strtodate未定义,怎么办?
 
使用TQUERY或者TADOQUERY
query1.close;
query1.sql.clear;
query1.sql.add('update tarble1 set nszt="未审" where nssj <datetimetosystemtime(strtodatetime(edit1.text)));
query1.execsql;

同时注意输入日期的格式和数据库接受的日期格式,如果不匹配的话就数据库可能不接受。
不过为什么不将TEDIT改为TDATETIMEPICKER呢,这样的话:
'update tarble1 set nszt="未审" where nssj <datetimetosystemtime(datetimepicker1.datetime)'
yi应该比较不会出问题了。
 
提示:datetimetosystemtime不能定义,和前面的回答差不多,扔不能定义,为什么?
 
知道你的原因了,请按照这样:
如果使用TQUERY的话:
query1.sql.add('update table1 set nszt='''未审''' where nssj < '''+datetimetostr(datetimetosystemtime(datetimepicker1.datetime))+'''');

如果按照上面那些写法,把什么DELPHI的函数名啊控件名啊什么的都当SQL字符串送
到数据库去了,当然会出错了。
 
我不知道有没有理解错误,可不可以在edit1的onexit事件中这样写
if table1.fieldbyname('nssj').asdatetime<strtodatatime(trim(edit1.text)) then
table1.fieldbyname('nszt').asstring:='未审'
else
table1.fieldbyname('nszt').asstring:='未审';
 
接受答案了,谢谢各位。如有空请光临小页http://ezym.yeah.net
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
624
import
I
后退
顶部