Edit apres un append dans une boucle

selon moi du fait que tu travailles avec le table.EOf  et en même temps des append sur la même table peut poser des problèmes.  Ton edit devrait se situer dans une autre boucle...

ce serait quand même super d'avoir une réaction non ???

Bonjour,


excuse moi, mon silence vient du fait que j'était occupé sur un autre projet ces jours-ci. En fait je reprend le travail d'un collègue et je débute en delphi.

Donc dans cette boucle T001.of en plus d'alimenter ma table Notices, j'alimente d'autres tables  à partir de mon ID_Notice qui vient d'être enregistré et notament une table vedette, qui me donne de nouvelles informations pour mettre à jour mon enregistrement de Notices que j'ai créé plus haut. Je ne vois pas comment je pourrai faire autrement que de faire la mise à jours de l'enregistrement dans  la boucle : pour traiter vedette il faut que je connaisse l'ID_Notice en cours et donc que j'ai fait mon enregistrement dans Notices et je ne peux pas traiter le champs 8 de Notices sans être passer par mon algo de vedette. Je tourne donc en rond...

Maintenant il existe peut être une autre méthode delphi pour faire ce que je veux. J'ai essayé de faire la mise à jour de ma table Notices avec une requête sql mais cela prend vraiment trop de temps.
Si quelqu'un peut m'expliquer une alternative, j'en serais ravie

Tu fais un:
id_notice := notices.fields[0].AsInteger;
...
notices.Locate('ID_Notice', id_notice, [loCaseInsensitive]) then

Mais logiquement, tu n'as pas changé de ligne, a moins que si dans la partie de ton code que tu n'as pas affiché. Si tu n'as pas fait d'autres insértion entre temps, pourquoi ne pas essayer quelque chose comme:

Table001.First;
while not Table001.Eof do
  begin
     notices.Append;
     notices.Fields[1].AsString := Table002.Fields[3].AsString;
    ... xtmp_ved est initialisée ...
     notices.Fields[8].AsString := IntToStr(xtmp_ved);

     notices.Post;
       ...
     Table001.Next;
  end;

Je ne suis pas sur mais si j'ai bien compris, tu me propose de faire l'enregistrment dans la table notices en une fois après avoir initialisé xtmp_ved. Mon problème est que je dois connaitre le ID_Notice pour initialiser xtmp_ved. Comment faire pour connaitre la valeur de ID_Notice si je ne l'est pas enregistré avant et fait un post avant xtmp_ved ?

humm as tu essayer de récupérer la valeur sans faire de post ?
genre
Table001.First;
while not Table001.Eof do
  begin
     notices.Append;
     notices.Fields[1].AsString := Table002.Fields[3].AsString;
    ... xtmp_ved:=notices.Fields[0].asinteger
     notices.Fields[8].AsString := IntToStr(xtmp_ved);

     notices.Post;
       ...
     Table001.Next;
  end;

Je ne sais pas si ça marche, mais tu peux otujours tester

J'ai testé cette suggestion mais elle ne marche pas car le POST génère l'incrémentation automatique du ID_Notice.
Cette solution fait que nous cherchons toujours à faire une mise à jour de l'enregistrement dont le ID_Notice=00000000000000

J'ai refait l'exercice et ça me donne vraiment la même chose que Retaks...  Tu n'as peut-être pas enlevé l'utilisation de  id_notice := notices.fields[0].AsInteger;

On utilise pas du tout cette variable (id_notice) c'est la seule chose qui me fait penser que tu es encore sur le 00000

Tu pourrais peut-être utiliser FieldByName('NomDuChamp') au lieu de Fields[x], ça serait peut-être plus fiable, l'ordre des colonnes pourrait changer.

Table001.First;
while not Table001.Eof do
begin
     notices.Append;
     notices.Fields[1].AsString := Table002.Fields[3].AsString;
     ...
     ... xtmp_ved est initialisée ...
     notices.Fields[8].AsString := IntToStr(xtmp_ved);
     notices.Post;
     ...
     Table001.Next;
end;



S'il y a une propriété CachedUpdate sur notices, mets-le peut-être à False


Qualvin

Si tu fais comme ça, c'est presque impossible que ça ne marche pas, puisque tu n'as pas changé d'enregistrement. Du moins ton problème ne viendrais pas te tes données.

Qualvin