DELPHI+ACCESS 循环更新问题(100)

temp1.SQL.Add('update 商品资料 set 拼音简码=yjm where 商品编码=:spbm');//temp1.parameters.ParamByName('pyjm').value :=GetPyChar(ADOQuery3.Fields.Fields[2].AsString);temp1.parameters.ParamByName('spbm').value := ADOQuery3.Fields.Fields[0].AsString;temp1.ExecSQL;//----以上可以执行通过，以下加了个循环就提示出错。 ADOQuery3.First; temp1.Close; temp1.SQL.Clear; while not ADOQuery3.Eof do begin //在这里处理循环的每一条记录 temp1.SQL.Add('update 商品资料 set 拼音简码=yjm where 商品编码=:spbm');// temp1.parameters.ParamByName('pyjm').value :=GetPyChar(ADOQuery3.Fields.Fields[2].AsString); temp1.parameters.ParamByName('spbm').value := ADOQuery3.Fields.Fields[0].AsString; temp1.ExecSQL; ADOQuery3.Next; end;//-----------出错信息： 不正常地定义参数对象。提供了不一致或不完整的信息。

ADOQuery3.First; temp1.Close; while not ADOQuery3.Eof do begin //在这里处理循环的每一条记录 temp1.SQL.Clear; temp1.SQL.Add('update 商品资料 set 拼音简码=yjm where 商品编码=:spbm');// temp1.parameters.ParamByName('pyjm').value :=GetPyChar(ADOQuery3.Fields.Fields[2].AsString); temp1.parameters.ParamByName('spbm').value := ADOQuery3.Fields.Fields[0].AsString; temp1.ExecSQL; ADOQuery3.Next; end;

谢谢