adoquery插入问题！传递参数时报错！

Question

with aqinput do
    begin   //active:=false;
    sql.Clear;
    sql.Add('insert into b_wzmxk (wzlb,spbm,sccjbm,kfh,ph,xq,jhj,sl,'+
    'js,mz,tj,bzqk,zldj,yjbgh,pzflmc,gnflmc,gb,ztbm) '+
    ' values(:1,:2,:3,:4,:5,:6,:7,:8,' +
    ':9,:10,:11,:12,:13,:14,:15,:16,:17,''03''')
      Parameters.ParamByName['1'].Value :=trim(dblookupcombobox2.DataField );
      Parameters.ParamByName('2').Value :=trim(dblookupcombobox1.KeyField);
      Parameters.ParamByName('3').Value :=trim(dblookupcombobox3.KeyField);
      parameters.ParamByName('4').Value :=trim(dblookupcombobox2.DataField );
      parameters.ParamByName('5').Value :=trim(edit3.Text  );
      parameters.ParamByName('6').Value :=datetimepicker1.DateTime ;
      parameters.ParamByName('7').Value :=strtofloat(trim(edit1.Text));
      parameters.ParamByName('8').Value :=strtoint(trim(edit2.Text));
      parameters.ParamByName('9').Value :=strtoint(trim(edit4.Text));
      parameters.ParamByName('10').Value :=trim(edit5.Text  );
      parameters.ParamByName('11').Value :=trim(edit6.Text);
      parameters.ParamByName('12').Value :=trim(edit2.Text);
      parameters.ParamByName('13').Value :='';
      parameters.ParamByName('14').Value :='';
      parameters.ParamByName('16').Value :='';
      parameters.ParamByName('15').Value :='';
      parameters.ParamByName('17').Value :='';
      // parambyname('1').
      Prepared :=true;
   aqinput.ExecSQL ;
   //aqinput.Parameters['1'].Value在Parameters.ParamByName['1'].Value :=trim(dblookupcombobox2.DataField );这句报错[Error] Unit4.pas(79): Missing operator or semicolon;这是怎么回事？
下面几句都是这样的；

Answer 1

前一句加个；
Parameters.ParamByName['1'].Value 改成（'1')

Answer 2

to: rockswj(石头，我要学Sql) 改成Parameters.ParamByName('wzlb').Value :=trim(dblookupcombobox2.DataField );
还是报老错误！
同时他下面几句也是一样！

Answer 3

该为下面的试一试://active:=false;
    sql.Clear;
    sql.Add('insert into b_wzmxk (wzlb,spbm,sccjbm,kfh,ph,xq,jhj,sl,'+
    'js,mz,tj,bzqk,zldj,yjbgh,pzflmc,gnflmc,gb,ztbm) '+
    ' values(:1,:2,:3,:4,:5,:6,:7,:8,' +
    ':9,:10,:11,:12,:13,:14,:15,:16,:17,''03''');   //这里少了一个分号
      Parameters.ParamByName('1').Value :=trim(dblookupcombobox2.DataField );
      Parameters.ParamByName('2').Value :=trim(dblookupcombobox1.KeyField);
      Parameters.ParamByName('3').Value :=trim(dblookupcombobox3.KeyField);
      parameters.ParamByName('4').Value :=trim(dblookupcombobox2.DataField );
      parameters.ParamByName('5').Value :=trim(edit3.Text  );
      parameters.ParamByName('6').Value :=datetimepicker1.DateTime ;
      parameters.ParamByName('7').Value :=strtofloat(trim(edit1.Text));
      parameters.ParamByName('8').Value :=strtoint(trim(edit2.Text));
      parameters.ParamByName('9').Value :=strtoint(trim(edit4.Text));
      parameters.ParamByName('10').Value :=trim(edit5.Text  );
      parameters.ParamByName('11').Value :=trim(edit6.Text);
      parameters.ParamByName('12').Value :=trim(edit2.Text);
      parameters.ParamByName('13').Value :='';
      parameters.ParamByName('14').Value :='';
      parameters.ParamByName('16').Value :='';
      parameters.ParamByName('15').Value :='';
      parameters.ParamByName('17').Value :='';
      // parambyname('1').
      Prepared :=true;
   aqinput.ExecSQL ;
   //aqinput.Parameters['1'].Value

Answer 4

value结束的时候少了一个)
可以用parameters[0].value=:

Answer 5

sql.Add('insert into b_wzmxk (wzlb,spbm,sccjbm,kfh,ph,xq,jhj,sl,'+
    'js,mz,tj,bzqk,zldj,yjbgh,pzflmc,gnflmc,gb,ztbm) '+
    ' values(:1,:2,:3,:4,:5,:6,:7,:8,' +
    ':9,:10,:11,:12,:13,:14,:15,:16,:17,''03'')');

Answer 6

sql.Add('insert into b_wzmxk (wzlb,spbm,sccjbm,kfh,ph,xq,jhj,sl,'+
    'js,mz,tj,bzqk,zldj,yjbgh,pzflmc,gnflmc,gb,ztbm) '+
    ' values(:1,:2,:3,:4,:5,:6,:7,:8,' +
    ':9,:10,:11,:12,:13,:14,:15,:16,:17,''03''')//这里少了个分号啊
楼主粗心哦：）

Answer 7

给参数赋值的时候，可以写得简单些的
Parameters[0].Value:=....
Parameters[1].value:=.....
...
...
...