代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('update temp set ccrmb_new =:nNew where id =:nId') ;
  Query1.ParamByName('nNew').AsInteger := 12;
  Query1.ParamByName('nId').AsInteger :=1 ;
  Query1.ExecSQL;
  Query1.Close;
end;
执行时错误信息如下:
Project BOCCCard.exe raised exception class EDBEngineError with message'Type 
mismatch in expression.'.Process stopped . Use stop or Run to continue.
修改后,这样就能正确执行,
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('update temp set ccrmb_new =12 where id =1') ;
//  Query1.ParamByName('nNew').AsInteger := 12;
//  Query1.ParamByName('nId').AsInteger :=1 ;
  Query1.ExecSQL;
  Query1.Close;
end;
两段代码都是一个意思的啊!!!!