Discussion :

[SergioMaster]

Bonjour,

dans le cadre d'un programme j'utilise une table mémoire que je remplie en fonction d'une requête dans un BDD

Code :

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

1
2
 
      Datas.Produits.CopyDataSet(Datas.GQuery, [coRestart, coAppend]);

Jusque là pas de soucis.

Maintenant, connaissant mes utilisateurs , je me suis mis en tête d'éviter des doublons et donc d'ignorer le/les ajouts inutiles. J'ai donc ajouté un clé primaire à ma table mémoire
et me suis alors penché sur les mises à jour en mémoire cache

Code :

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

1
2
3
4
5
6
 
      Datas.Produits.CachedUpdates:=True;
      Datas.Produits.CopyDataSet(Datas.GQuery, [coAppend]);
      if Datas.Produits.UpdatesPending then
          Datas.Produits.ApplyUpdates;
      Datas.Produits.CachedUpdates:=False;

Code :

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

1
2
3
4
5
procedure TDatas.ProduitsAfterApplyUpdates(DataSet: TFDDataSet;
  AErrors: Integer);
begin
Produits.Refresh;
end;

Mais, là, il y a un hic

[FireDAC][Comp][DS]-205. Impossible d'actualiser l'ensemble de données [Produits]. Les mises à jour en cache doivent être validées ou annulées et le mode Batch doit être terminé avant l'actualisation

1 - Je dois avoir oublié quelque chose mais je vois pas quoi ?
2 - Comment faire pour ignorer les insertions de lignes dupliquées ?

Merci, mes CachedUpdates sont loin dans ma mémoire et c'est un cas que je n'ai pas trouvé dans les exemples

[ShaiLeTroll]

Perso, je gérais le Delta du TClientDataSet manuellement et générait mon propre SQL

[SergioMaster]

J'ai aussi fait comme ça, abandonnant le CopyDataset et le cacheupdate

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    while not EOF do
        begin
         Datas.Produits.Insert;
         for I := 0 to 4 do
           Datas.Produits.Fields[i].Value:=Fields[i].Value;
         try
           Datas.Produits.Post;
         except
           Showmessage('Err');
         end;
         Next;
     end;

Problème mon message d'erreur ne montre toujours pas le bout de son nez, l'exception est levée avant :
J'en perd mon latin de cuisine on est vendredi !

du coup, j'ai l'impression de reculer avec un code de ce genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
   while not EOF do
        begin
         if not Datas.Produits.FindKey([Fields[0],Fields[1]]) then
         begin
          Datas.Produits.Insert;
          for I := 0 to 4 do
           Datas.Produits.Fields[i].Value:=Fields[i].Value;
           Datas.Produits.Post;
         end;
         Next;
        end;