Update et ces variables incorrectes

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Voilà mon probleme!

J'essaie de faire un UPDATE sur des données, j'ai pris la source du code dans le forum et il me retourne l'erreur:

EDBEngineError avec "nom de champ incorrect CODE"

Or d'après le code, CODE n'est pas le nom d'un champ mais la variable affectée par la valeur du champ "Code_Piece".

Sauriez vous quoi faire à ma place???
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 WITH DataModule1.QModifPiece DO BEGIN SQL.Clear; SQL.Add('UPDATE Arbo_Test SET CODE=:Code_Piece,'); SQL.Add(' NOMBRE=:Nb_Piece,TD=:MTBF,PRIX=:Prix'); SQL.Add('WHERE CODE=:Code_Piece and NOMBRE=:Nb_Piece and TD=:MTBF and PRIX=:Prix'); SQL.Add('AND '+ concatener + ' = ' + QuotedStr(SelectedModule)+''); ParamByName('Code_Piece').AsString := CodePiece_Edit.Text; ParamByName('Nb_Piece').AsInteger := StrToInt(NbPiece_Edit.Text); ParamByName('MTBF').AsFloat := StrToFloat(MTBF_Edit.Text); ParamByName('Prix').AsCurrency := StrToCurr(Prix_Edit.Text); ExecSQL; END;

17/05/2006, 10h21
Rayek

Fait voir la structure de ta table Arbo_Test

A mon avis tu as inversé l'utilisation Champ/paramètre dans la requete.
De pls au vu de la requete , elle sert à rien, car tu recherches à remplacer des valeurs d'un source qui a ces mêmes valeurs 8O
17/05/2006, 10h37
forzaxelah

Oui, je n'ai pas bien compris la requete UPDATE

(Je précise, je ne me suis mis qu'à SQL il y a 1 mois car mon stage m'oblige à faire un programme informatique (et je ne fais de formation informatique dans mes études....alors dès fois je peux paraître déroutant dsl... :mouarf: )

Je te donne ma table:

ID_Engin_FK3--------Char(15)
Module_N1-----------Char(60)
Module_N2-----------Char(60)
Module_N3-----------Char(60)
Module_N4-----------Char(60)
Module_N5-----------Char(60)
Module_N6-----------Char(60)
Code_Piece----------Char(25)
Nb_Piece------------ShotInt
Nom_Pas_FK1--------Char(15)
Operation_M---------Char(25)
Prix-----------------Currency
MTBF---------------Float
Duree_Operation----Float
Nb_MOE------------ShortInt
Cout_Conso--------Currency

Ok, c'est bien ce que je pensais, t'as inversé les valeurs :P

Ci-dessous un exemple par rapport à ton code en corrigeant les erreurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
WITH DataModule1.QModifPiece DO
BEGIN
  SQL.Clear;
  SQL.Add('UPDATE Arbo_Test SET Code_Piece=:PCODENew,');
  SQL.Add('                     Nb_Piece=:PNOMBRENew,MTBF=:PTDNew,Prix=:PPRIXNew');
  SQL.Add('WHERE Code_Piece=:PCODEOld and Nb_Piece=:PNOMBREOld and MTBF=:PTDOld and Prix=:PPRIXOld');
  SQL.Add('AND '+ concatener + ' = ' + QuotedStr(SelectedModule)+'');
  ParamCheck := True;
// Pour les nouvelles valeurs
  ParamByName('PCODENew').AsString := CodePiece_Edit.Text;
  ParamByName('PNOMBRENew').AsInteger := StrToInt(NbPiece_Edit.Text);
  ParamByName('PTDNew').AsFloat := StrToFloat(MTBF_Edit.Text);
  ParamByName('PPRIXNew').AsCurrency := StrToCurr(Prix_Edit.Text);
// Pour les anciennes valeurs à rechercher
  ParamByName('PCODEOld ').AsString := CodePiece_Edit.Text;
  ParamByName('PNOMBREOld ').AsInteger := StrToInt(NbPiece_Edit.Text);
  ParamByName('PTDOld ').AsFloat := StrToFloat(MTBF_Edit.Text);
  ParamByName('PPRIXOld').AsCurrency := StrToCurr(Prix_Edit.Text);
  ExecSQL;
END;

Un Update permet de mettre à jour des enregistrements selon des critères de recherches.
Faudrait que tu nous dises précisemetn ce que tu veux mettre à jour ca aiderai pour expliquer la requete à faire.

17/05/2006, 10h55
forzaxelah

Tout a fait excuse moi je viens de relire mon post!!!

alors en gras ceux à modifier ...

ID_Engin_FK3--------Char(15)
Module_N1-----------Char(60)
Module_N2-----------Char(60)
Module_N3-----------Char(60)
Module_N4-----------Char(60)
Module_N5-----------Char(60)
Module_N6-----------Char(60)
Code_Piece----------Char(25)
Nb_Piece------------ShotInt
Nom_Pas_FK1--------Char(15)
Operation_M---------Char(25)
Prix-----------------Currency
MTBF---------------Float
Duree_Operation----Float
Nb_MOE------------ShortInt
Cout_Conso--------Currency

Par contre, je me demandais:
Peut on vérifier d'abord les valeurs qui ont "réellement" ét modifiés, on gagnerait en temps de réponse, car dans notre cas il va tout modifier sans vérifier si c'est différent ou pas non???
17/05/2006, 11h08
Rayek

Citation:

Envoyé par forzaxelah

Tout a fait excuse moi je viens de relire mon post!!!

alors en gras ceux à modifier ...

ID_Engin_FK3--------Char(15)
Module_N1-----------Char(60)
Module_N2-----------Char(60)
Module_N3-----------Char(60)
Module_N4-----------Char(60)
Module_N5-----------Char(60)
Module_N6-----------Char(60)
Code_Piece----------Char(25)
Nb_Piece------------ShotInt
Nom_Pas_FK1--------Char(15)
Operation_M---------Char(25)
Prix-----------------Currency
MTBF---------------Float
Duree_Operation----Float
Nb_MOE------------ShortInt
Cout_Conso--------Currency

Comment tu sais que c'est tels ou tels articles à mettre à jour ?

Citation:

Par contre, je me demandais:
Peut on vérifier d'abord les valeurs qui ont "réellement" ét modifiés, on gagnerait en temps de réponse, car dans notre cas il va tout modifier sans vérifier si c'est différent ou pas non???

Pas vraiment, tu fais une requete pour vérifier si tu dois faire une modif pour après faire un update :
- au mieux tu feras un nombre de select = au nombre d'update(s'il n'y a aucune modif à faire)
- au pire tu auras 2 fois plus d'actions à faire qu'avec un simple update. Select pour vérifier + Update (dans le cas ou faut tous les modif)

La clause Where de la requete est la pour faire la selection donc pas besoin de rajouter une couche ;)
17/05/2006, 11h30
forzaxelah

Mais le programme ne va pa connaitre "Nb_PieceNew" puisque c'est un champ qui n'existe pas?????

[quote=Malatar]Comment tu sais que c'est tels ou tels articles à mettre à jour ?

C'est parce que dans cette partie là, on ne modifie que les champs en gras.

Par contre je vais avoir un pb!

Explication: en gros les champs Modules (de 1 à 6) sont destinés à une arbo (TreeView pour le composant).

exemple:

Module_N1/N2/N3/N4/N5/N6/Prix/Opé/MTBF
A- ---------B---C---D---E --F---100---Z---------1
A- ---------B---C---D---E --F---100---ZZ---------1
A- ---------B---C---D---E --F---100---ZZZ---------1
A- ---------B---C---D---E --F---100---ZZZZ---------1
A- ---------B---C---D---E --F---100---ZZZZZ---------1

Donc quand on modifie une ligne en fait, il faut en modifier plusieurs!!!
(si on change les valeurs comme Prix,...)
17/05/2006, 11h37
Rayek

Citation:

Envoyé par forzaxelah

Mais le programme ne va pa connaitre "Nb_PieceNew" puisque c'est un champ qui n'existe pas?????

Où as tu vu un nb_pieceNew ? dans le code que je t'ai affiché c'est Nom_du_Champ = : Paramètre

Citation:

C'est parce que dans cette partie là, on ne modifie que les champs en gras.

Par contre je vais avoir un pb!

Explication: en gros les champs Modules (de 1 à 6) sont destinés à une arbo (TreeView pour le composant).

exemple:

Module_N1/N2/N3/N4/N5/N6/Prix/Opé/MTBF
A- ---------B---C---D---E --F---100---Z---------1
A- ---------B---C---D---E --F---100---ZZ---------1
A- ---------B---C---D---E --F---100---ZZZ---------1
A- ---------B---C---D---E --F---100---ZZZZ---------1
A- ---------B---C---D---E --F---100---ZZZZZ---------1

Donc quand on modifie une ligne en fait, il faut en modifier plusieurs!!!
(si on change les valeurs comme Prix,...)

Je comprend pas du tout ce que tu veux faire lol

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 WITH DataModule1.QModifPiece DO BEGIN SQL.Clear; SQL.Add('UPDATE Arbo_Test SET Code_Piece=:PCODENew,'); SQL.Add(' Nb_Piece=:PNOMBRENew,MTBF=:PTDNew,Prix=:PPRIXNew'); SQL.Add('WHERE Code_Piece=:PCODEOld and Nb_Piece=:PNOMBREOld and MTBF=:PTDOld and Prix=:PPRIXOld'); SQL.Add('AND '+ concatener + ' = ' + QuotedStr(SelectedModule)+''); ParamCheck := True; // Pour les nouvelles valeurs ParamByName('PCODENew').AsString := CodePiece_Edit.Text; ParamByName('PNOMBRENew').AsInteger := StrToInt(NbPiece_Edit.Text); ParamByName('PTDNew').AsFloat := StrToFloat(MTBF_Edit.Text); ParamByName('PPRIXNew').AsCurrency := StrToCurr(Prix_Edit.Text); // Pour les anciennes valeurs à rechercher ParamByName('PCODEOld ').AsString := CodePiece_Edit.Text; ParamByName('PNOMBREOld ').AsInteger := StrToInt(NbPiece_Edit.Text); ParamByName('PTDOld ').AsFloat := StrToFloat(MTBF_Edit.Text); ParamByName('PPRIXOld').AsCurrency := StrToCurr(Prix_Edit.Text); ExecSQL; END;
Pour ce que je veux faire:

On part de ça:

Module_N1/N2/N3/N4/N5/N6/Prix/Opé/MTBF
A- ---------B---C---D---E --F---100---Z---------1
A- ---------B---C---D---E --F---100---ZZ---------1
A- ---------B---C---D---E --F---100---ZZZ---------1
A- ---------B---C---D---E --F---100---ZZZZ---------1
A- ---------B---C---D---E --F---100---ZZZZZ---------1

imaginons on veut changer le prix et passer de 100 à 300
Dans mon programme je suis calqué sur une seule de ces lignes (celle en gras) sachant que le champ Opé n'est pas prise en compte pour le moment.

Et bien je dois mettre à jour les 5 lignes pour que ma MAJ soit bonne donc:

Module_N1/N2/N3/N4/N5/N6/Prix/Opé/MTBF
A- ---------B---C---D---E --F---300---Z---------1
A- ---------B---C---D---E --F---300---ZZ---------1
A- ---------B---C---D---E --F---300---ZZZ---------1
A- ---------B---C---D---E --F---300---ZZZZ---------1
A- ---------B---C---D---E --F---300---ZZZZZ---------1

J'espère que j'ai pu être un peu plus précis dans mon interrogation :aie:

il est passé où le code_piece ??? ainsi que le nb_piece ???

Version simple de l'explication de l'update
Code:

1 2 3 4 Update La_table set La_liste_des_champs_a_mettre_a_jour Where Critères_permettant_d'identifier_le_ou_les_enregistrements
Si on regarde bien tes tableaux et la ligne en gras, seul opé est différents par rapport aux autres champs
Si par exemple je veux changer le prix de cette ligne (toujours par rapport a ton jeux d'essai malgrès qu'il soit pas représentatifs ...)
Code:

1 2 3 4 5 6 7 8 SQL.Add('Update LaTable'); SQL.Add('set prix = :PPrix'); SQL.Add('Where opé=:POpe'); ParamCheck := True; Parameters.ParamByName('PPrix').Value := 300 Parameters.ParamByName('POpe').Value := 'ZZZ'; ExecSQL;
Pour la liste complète
Code:

1 2 3 4 5 6 7 8 9 SQL.Add('Update LaTable'); SQL.Add('Set prix=300'); SQL.Add('Where Module_N1 := :PN1 and Module_N2 =:PN2 AND ETC ..'); ParamCheck := True; Parameters.PAramByName('PN1').value := 'A'; Parameters.ParamByName('PN2').Value := 'B'; etc... ExecSQL;
Etc... = Mettre le nombre de champ significatif permettant d'identifier l'ensemble d'enregistrement à mettre à jour

Dites moi, Pourquoi quand je mets Parameters, il ne le reconnait pas???:roll:

Code:

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

dailleurs il me retourne parametres NCode_Piece non reconnu ( EDatabase Error)

Citation:

Envoyé par forzaxelah

Dites moi, Pourquoi quand je mets Parameters, il ne le reconnait pas???:roll:

Car parameters c'est avec Ado (l'habitude :P)
Citation:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 WITH DataModule1.QArbo DO BEGIN SQL.Clear; SQL.Add('UPDATE Arbo SET Code_Piece =:NCode_Piece, Nb_Piece =:NNb_Piece,'); SQL.Add(' MTBF =:NMTBF, Prix =:NPrix'); SQL.Add('WHERE Module_N6 = '+ QuotedStr(Piece_Edit.Text)); ParamCheck := True; ParamByName('NCode_Piece').Value := CodePiece_Edit.Text; ParamByName('NNb_Piece').Value := StrToInt(NbPiece_Edit.Text); ParamByName('NMTBF').Value := StrToFloat(MTBF_Edit.Text); ParamByName('NPrix').Value := StrToCurr(Prix_Edit.Text); ExecSQL; END;
dailleurs il me retourne parametres NCode_Piece non reconnu ( EDatabase Error)
Car tu as un espace entre : et NCode_Piece

23/05/2006, 14h25
forzaxelah

Pourtant malgré l'espace mis,

j'ai le message
"EDATABASEERROR 'QARbo parametres Champ 'Ncode_Piece' non trouvés"
23/05/2006, 14h44
Rayek

Citation:

Envoyé par forzaxelah

Pourtant malgré l'espace mis,

j'ai le message
"EDATABASEERROR 'QARbo parametres Champ 'Ncode_Piece' non trouvés"

Normal car il ne faut pas d'espace entre les : et ton nom de variable

J'ai un peu de mal avec le UPDATE comme tu peux le voir...

J'aimerais comprendre pourquoi tu as écrit Old et New avec les memes edit dans les deux cas, quel est l'intérêt???

Rappel:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 WITH DataModule1.QModifPiece DO BEGIN SQL.Clear; SQL.Add('UPDATE Arbo_Test SET Code_Piece=:PCODENew,'); SQL.Add(' Nb_Piece=:PNOMBRENew,MTBF=:PTDNew,Prix=:PPRIXNew'); SQL.Add('WHERE Code_Piece=:PCODEOld and Nb_Piece=:PNOMBREOld and MTBF=:PTDOld and Prix=:PPRIXOld'); SQL.Add('AND '+ concatener + ' = ' + QuotedStr(SelectedModule)+''); ParamCheck := True; // Pour les nouvelles valeurs ParamByName('PCODENew').AsString := CodePiece_Edit.Text; ParamByName('PNOMBRENew').AsInteger := StrToInt(NbPiece_Edit.Text); ParamByName('PTDNew').AsFloat := StrToFloat(MTBF_Edit.Text); ParamByName('PPRIXNew').AsCurrency := StrToCurr(Prix_Edit.Text); // Pour les anciennes valeurs à rechercher ParamByName('PCODEOld ').AsString := CodePiece_Edit.Text; ParamByName('PNOMBREOld ').AsInteger := StrToInt(NbPiece_Edit.Text); ParamByName('PTDOld ').AsFloat := StrToFloat(MTBF_Edit.Text); ParamByName('PPRIXOld').AsCurrency := StrToCurr(Prix_Edit.Text); ExecSQL;
Et une autre question:

Dans la clause WHERE on doit mettre finalement ce à quoi doit se rattacher les modifications, donc quelque chose qui ne doit pas "bouger" puisque c'est grâce à cet "appui" sur lesquels il doit se poser afin de bien répondre à la requête non???

:roll:

24/05/2006, 08h25
Rayek
Je ne peux pas te dire mieux que ça :
Code:

1 2 3 4 Update La_table set La_liste_des_champs_a_mettre_a_jour Where Critères_permettant_d'identifier_le_ou_les_enregistrements
Pour le old et new, j'ai repris ce qu'exprimer ton code à la base, mais après c'est à toi d'adapter selon tes besoins. Je ne suis pas la pour faire ton code, je te donne des pistes, à toi de les suivre ou de les ignorer.
Regarde bien les exemples que je t'ai donné, sinon tu vas dans la partie SQL du site et tu regarde comment fonctionne les Update, les exemples fournis sont trés bon. ^^
24/05/2006, 09h00
forzaxelah

Ne t'en fais pas, je ne demande pas a ce que tu fasses mon code, meme si tu y contribue tres fortement.
C'était juste pour comprendre les notions de Old et New.

Bon je m'y remets
24/05/2006, 09h07
Rayek

Old = ancienne valeur
New = Nouvelle valeur

Si j'ai mis les même valeur pour les old et new, c'est que j'avais pas autres choses sous la main et je te montrais au passage ce que ta requete etait en train de faire. Car les old et new étaient identiques dans ton exemple de requete au début.

Rebonjour!

long WE non???

Bon de retour sur Delphi et paf!

J'ai une différence de type en erreur et pourtant j'ai suivi tes instructions A LA LETTRE!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
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').AsInteger := StrToInt(NbPiece_Edit.Text);
ParamByName('MTBF').AsFloat := StrToFloat(MTBF_Edit.Text);
ParamByName('Prix').AsCurrency := StrToCurr(Prix_Edit.Text);
ExecSQL;
END;

je reflechis alors:D

30/05/2006, 08h45
Rayek

car tu dois essayer de mettre un type string dans un champ type int ou inversement ;)

Module_N6 = int ou string ?
Code_piece = idem ?

à la place des [b]asstring/asinteger/etc..[b] du parambyname , utilise Value, et si code_piece est un string, utilise QuotedStr

Voir 40 message(s) de cette discussion en une page