Update et ces variables incorrectes

et ben j'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
WITH DataModule1.QArbo DO
BEGIN
SQL.Clear;
SQL.Add('UPDATE Arbo SET Code_Piece =:Code_Piece, Nb_Piece =:Nb_Piece,');
SQL.Add('                MTBF =:MTBF, Prix =:Prix');
SQL.Add('WHERE Module_N6 = '+ QuotedStr(Piece_Edit.Text));
ParamCheck := True;
ParamByName('Code_Piece').AsString := CodePiece_Edit.Text;
ParamByName('Nb_Piece').AsSmallInt := StrToInt(NbPiece_Edit.Text);
ParamByName('MTBF').AsFloat := StrToFloat(MTBF_Edit.Text);
ParamByName('Prix').AsCurrency := StrToCurr(Prix_Edit.Text);
ExecSQL;
END;