请大家近来帮个忙！！！！！！！！！！

Question

这段代码，那里有错误？   Query2.Close;
   Query2.SQL.Clear();
   Query2.SQL.Add('update  ITEM  set NAME=:NAME,PROCD_LEVER=:PROCD_LEVER,SUM_TIME=:SUM_TIME,HIGH=:HIGH,CHARECT=:CHARECT,BOLIANG=:BOLIANG,MIDU=:MIDU,ZONE=:ZONE,SINGLE_MONEY=:SINGLE_MONEY,WATER=:WATER,STRORY=:STRORY,SELF_USE=:SELF_USE,TM=:TM)');
   //Query2.ParamByName('ID').AsInteger:=l_id;
   Query2.ParamByName('NAME').AsString:=trim(Edit2.Text);
   Query2.ParamByName('PROCD_LEVER').AsString:=trim(Edit1.Text);
   Query2.ParamByName('SUM_TIME').AsString:=trim(Edit3.Text);
   Query2.ParamByName('HIGH').AsString:=trim(Edit4.Text);
   Query2.ParamByName('CHARECT').AsString:=trim(Edit5.Text);
   Query2.ParamByName('BOLIANG').AsString:=trim(Edit6.Text);
   Query2.ParamByName('MIDU').AsString:=trim(Edit7.Text);
   Query2.ParamByName('ZONE').AsString:=trim(Edit8.Text);
   Query2.ParamByName('SINGLE_MONEY').AsFloat:=strtofloat(trim(Edit9.Text));
   //Query2.ParamByName('')
   Query2.ParamByName('WATER').AsString:=l_water;
   Query2.ParamByName('STRORY').AsString:=l_strory;
   Query2.ParamByName('SELF_USE').AsString:=l_self_use;
   Query2.ParamByName('TM').AsString:=l_tm;
   //Query2.ParamByName('DEL_FLAG').AsString:=l_del_flag;
   query2.ExecSql();
   
  运行到这里就抱错：
      invalid use of keyword.
      Token:)

Answer 1

query2.Parameters.ParamByName('STRORY').value

Answer 2

错了，Query2.SQL.Add('update  ITEM  set NAME=:NAME,PROCD_LEVER=:PROCD_LEVER,SUM_TIME=:SUM_TIME,HIGH=:HIGH,CHARECT=:CHARECT,BOLIANG=:BOLIANG,MIDU=:MIDU,ZONE=:ZONE,SINGLE_MONEY=:SINGLE_MONEY,WATER=:WATER,STRORY=:STRORY,SELF_USE=:SELF_USE,TM=:TM)');
最后多了个括号

Answer 3

,TM=:TM)');
//多了個 )
=>
,TM=:TM');

Answer 4

哈哈，在请教一个问题，怎样动态的把查询条件加到sql语句中，
例如：Query2.SQL.Add('select * from Atable')
我想加入个查询条件如 ：where del_flag<>'1'
怎么加？

Answer 5

Query2.SQL.Add('select * from Atable ');
Query2.SQL.Add('where del_flag<>''1''');