CachedUpdates d'une FDMemtable

Version imprimable

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:

1 2 Datas.Produits.CopyDataSet(Datas.GQuery, [coRestart, coAppend]);
Jusque là pas de soucis.

Maintenant, connaissant mes utilisateurs :roll:, 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:

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:

1 2 3 4 5 procedure TDatas.ProduitsAfterApplyUpdates(DataSet: TFDDataSet; AErrors: Integer); begin Produits.Refresh; end;
Mais, là, il y a un hic :aie:

Citation:

[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

27/11/2020, 10h06
ShaiLeTroll

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

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

Code:

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 :arf: on est vendredi !

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

Code:

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;