Discussion :

[colorid]

Bonjour

Avec le code suivant j'ai un message "objet parameter défini de manière incorrecte"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
  qry.close;
  qry.SQL.Clear;
  qry.SQL.Text:=
     'UPDATE BATCH SET BATCH_NB_CONTROL = '+IntToStr(Rec.NbrControls)+','+//Int
     'BATCH_DELTA_E_DE_MAX = '+FloatToStr(Rec.DeMax)+','+//float
     'BATCH_DELTA_E_DE_AVERAGE = '+FloatToStr(Rec.DeAverage)+','+ //Float
     'BATCH_NB_OK = '+IntToStr(Rec.NbrControlOk)+','+// Int
     'BATCH_NB_DELTA_E_OK = '+IntToStr(Rec.NbrDeOk)+','+// Int
     'BATCH_RESULT_OK = '+BoolToStr(Rec.ResultOk)+','+ // bool
     'BATCH_DATETIME_END = '+DateTimeToStr(Now)+','+ // DateTime
     ' WHERE BATCH_NO = '+IntToStr(Rec.BatchNo)+' ;'; // Int
  qry.ExecSQL;

Nota :
Le champ "'BATCH_RESULT_OK" est déclaré VARCHAR(32) car BoolToStr fournit '-1' pour true et '0' pour false. Cela marche parfaitement dans les autres tables. De plus j'ai mis la ligne 9 en remarque et cela ne change rien !

Où est le problème ?

[colorid]

Voici le code de déclaration des champs de la table

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  ' BATCH_NB_CONTROL INTEGER, ' + // Nombre de pièces contrôlées
  ' BATCH_DELTA_E_DE_MAX SINGLE, ' + // Delta E Maxi contrôlé sur le lot
  ' BATCH_DELTA_E_DE_AVERAGE SINGLE, ' + // Delta E Moyen contrôlé sur le lot
  ' BATCH_NB_OK INTEGER, ' + // Nombre de pièces bonnes
  ' BATCH_RESULT_OK VARCHAR(2), ' + // Batch acceptable
  ' BATCH_DATETIME_END DATETIME, ' + // date de dernière mise à jour

Correction : le champ ' BATCH_RESULT_OK' est déclaré VARCHAR(2) et non 32 comme indiqué par erreur dans le 1er message
J'ai choisi cette forme après des problèmes de booléens dans access. A la lecture il suffit de lire le champ en mode asInteger et s'il fournit -1 c'est true le contraire c'est false

[BuzzLeclaire]

@Salut

En un mot : parameters

Si tes champs dans la base son bien typés, il n'y a aucune raison de les passer tous en STR ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
With Qry do
begin
    SQL.Clear;
    SQL.Add('UPDATE BATCH SET BATCH_NB_CONTROL = :xNbrControls , ');
    SQL.Add('BATCH_DELTA_E_DE_MAX = xRecDeMax , ');
    SQL.Add('BATCH_DELTA_E_DE_AVERAGE = xDeAverage , ');
    SQL.Add('BATCH_NB_OK = xNbrControlOk , ');
    SQL.Add('BATCH_NB_DELTA_E_OK = xNbrDeOk , ');
    SQL.Add('BATCH_RESULT_OK = xResultOk , ');
    SQL.Add('BATCH_DATETIME_END = xdatetime ');
    SQL.Add('WHERE BATCH_NO = xBatchNo ');
 
   Parameters.ParameterByName('xNbrControls').Value := Rec.NbrControls;
   Parameters.ParameterByName('xDeMax').Value := Rec.DeMax;
   Parameters.ParameterByName('xDeAverage').Value := RecDeAverage;
   Parameters.ParameterByName('xNbrControlOk').Value := Rec.NbrControlOk;
   Parameters.ParameterByName('xNbrDeOk').Value := Rec.NbrDeOk;
   Parameters.ParameterByName('xResultOk').Value := Rec.ResultOk;
   Parameters.ParameterByName('xdatetime').Value := DaNow;
   Parameters.ParameterByName('xBatchNo').Value := Rec.BatchNo;
  Try  
   ExecSQL;
  finally
    Close;
  end;
end;

[colorid]

Résultat :

Delphi ne reconnait pas "Parameters.ParameterByName.ParameterByName"

ParameterByName non déclaré

Faut-il introduire un uses spécifique et si oui lequel ?

[colorid]

Avec le changement en ititullé le code se compile mais à l'exécution une erreur se produit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  With Qry do
  begin
    SQL.Clear;
    SQL.Add('UPDATE BATCH SET BATCH_NB_CONTROL = :xNbrControls , ');
    SQL.Add('BATCH_DELTA_E_DE_MAX = xRecDeMax , ');
    SQL.Add('BATCH_DELTA_E_DE_AVERAGE = xDeAverage , ');
    SQL.Add('BATCH_NB_OK = xNbrControlOk , ');
    SQL.Add('BATCH_NB_DELTA_E_OK = xNbrDeOk , ');
    SQL.Add('BATCH_RESULT_OK = xResultOk , ');
    SQL.Add('BATCH_DATETIME_END = xdatetime ');
    SQL.Add('WHERE BATCH_NO = xBatchNo ');
 
    Parameters.ParamByName('xNbrControls').Value := Rec.NbrControls;
    Parameters.ParamByName('xRecDeMax').Value := Rec.DeMax;
    Parameters.ParamByName('xDeAverage').Value := Rec.DeAverage;
    Parameters.ParamByName('xNbrControlOk').Value := Rec.NbrControlOk;
    Parameters.ParamByName('xNbrDeOk').Value := Rec.NbrDeOk;
    Parameters.ParamByName('xResultOk').Value := Rec.ResultOk;
    Parameters.ParamByName('xdatetime').Value := Now;
    Parameters.ParamByName('xBatchNo').Value := Rec.BatchNo;
  Try
   ExecSQL;
  finally
    Close;
  end;

Curieusement la ligne 13 passe mais pas la ligne 14 message :
Qryarametres 'xRecDeMax' non trouvés

[SergioMaster]

bonjour,

@Buzz commence a prendre de bonnes habitudes avec les paramètres des querys

il a juste oublié de mettre un ':' devant le nom de ces derniers il me semble

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    SQL.Clear;
    SQL.Add('UPDATE BATCH SET BATCH_NB_CONTROL = :xNbrControls , ');
    SQL.Add('BATCH_DELTA_E_DE_MAX = :xRecDeMax , ');
    SQL.Add('BATCH_DELTA_E_DE_AVERAGE = :xDeAverage , ');
    SQL.Add('BATCH_NB_OK = :xNbrControlOk , ');
    SQL.Add('BATCH_NB_DELTA_E_OK = :xNbrDeOk , ');
    SQL.Add('BATCH_RESULT_OK = :xResultOk , ');
    SQL.Add('BATCH_DATETIME_END = :xdatetime ');
    SQL.Add('WHERE BATCH_NO = :xBatchNo ');

[colorid]

Merci mille fois

[BuzzLeclaire]

Salut Serge,

En fait j'ai saisie directe sur le fofo et copier-coller les zones... effectivement avec les ':' sa marchera mieux....