Discussion :

[jojo86]

Bonsoir,

Je voudrais fair un system d'importation et d'exportation des données...

Lors de l'éxportation, je viendrais copier le fichier.db (la table) et lors de l'importation, je viendrais ajouter les données de la table à celle déjà éxistante.

Mais le souci, c'est que je ne sais pas comment faire pour éviter les doublons pour "filtrer" en quelque sorte... car je ne veux pas qu'il y ait deux fois les même valeur dans la table...

Merci de votre aide !

[rsc]

L'idée à la plus simple à mon avis est de créer sur ta table Destination un index "UNIQUE" sur la ou les colonnes que tu ne veux pas doublonner, puis d'insérer tes enregistrements, non par une requête SQL unique, mais un par un dans une boucle sur ta table source. Et tu places l'insertion dans un bloc try...except, comme ça la tentative d'insertion du doublon provoque une erreur, mais interceptée par ton bloc try.

[jojo86]

Oui... mais je debute et j'ai pas tout saisi...
Peut tu me donner un exemple? merci

[rsc]

Pour l'index, tu l'ajoutes dans le Module de Base de Données, à la création par exemple.
Ensuite dans le Code :

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
Table1 .Open;
Table2 .Open;
while not Table1 .Eof do
begin
  try
    Table2 .Insert;
    for i := 0 to Table1 .FieldCount - 1 do
       Table2 .Fields [i] .Value := Table1 .Fields [i] .Value ;
    Table2 .Post; {Cette ligne va provoquer une erreur en cas de doublon}
  except
    on E: Exception do
    {si l'erreur est une erreur de duplication de clé, on la passe sous
      silence, sinon, on affiche le message d'erreur}
      if (EDBEngineError(E).Errors[0].ErrorCode = DBIERR_KEYVIOL)
           then Table2 .Cancel
           else raise;
  end;
  Next;
end;

[jojo86]

Merci pour cette réponse, mais j'ai un souci avec

"DBIERR_KEYVIOL" j'ai un identificateur non declaré..? pourquoi?

Merci de ton aide !

[Cl@udius]

"DBIERR_KEYVIOL" j'ai un identificateur non declaré..? pourquoi?

Parce que il te manque BDE dans tes uses.

@+ Claudius

[jojo86]

Je galère...

J'ai le message :
"Le projet Project2.exe a provoqué une classe d'exception EDatabaseError avec le message 'Impossible de modifier le champ 'Id''. "

A quoi est-ce du?

[rsc]

Il peut y avoir différentes raisons. La première à laquelle je pense est que tu as déclaré le champ Id de ta table Destination en AutoIncrémenté, alors quand tu essaies de lui affecter une valeur, il n'est pas content. Remplace :

Code :

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

for i := 0 to Table1 .FieldCount - 1 do

par

Code :

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

for i := 1 to Table1 .FieldCount - 1 do

pour laisser de côté le champ Id, qui sera généré automatiquement.

[jojo86]

Alors... ça fonctionne, mais ma table2 se rempli entierement par le premier enregistrement de l'autre table...

Je comprend pas pourquoi...

[rsc]

Est-ce que tu n'as pas oublié le Next, qui devrait d'ailleurs être :

Code :

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

Table1 .Next;

Désolé de l'erreur.
Mais ce que je ne comprends pas, c'est que ta table se remplit de doublons ??? Il doit y avoir un pb quelque part. As-tu bien créé l'index ? Sur quelles colonnes ?

[jojo86]

Merci de ton aide c'est très gentil.

Mes tables parlons en !

Les deux tables ont la même structure : un champ "Id" avec une incrémentation automatique et qui est l'index. Ensuite, un champ Application et un champ Pass qui sont des champs de type alphanumérique...

je viens de rajouter le Table1.next...

Maintenant, la totalitée de la table1 est copiée dans la table 2... j'ai éssayé de "bidouiller" pour trouver quelque chose mais je peux rien faire moi...

Merci !

[rsc]

Je n'ai pas le Module de Base de Données sous les yeux, mais de mémoire, tu dois avoir dans le menu contextuel de ta table un "Restructurer Table". Et dans la fenêtre de restructuration une possibilité de créer des index secondaires. Là, tu spécifies la ou les colonnes de l'index, et tu n'oublies pas de cocher Unique. Ensuite, ta table n'accepte plus les doublons sur ces colonnes.

[rsc]

Je peux me tromper, mais n'aurais-tu pas oublié le - 1 ?

Code :

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

for i := 1 to Table1 .FieldCount - 1 do

[jojo86]

Bon pour récapituler, voici le code :

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
 
var i:integer;
begin
Table1 .Open;
Table2 .Open;
while not Table1 .Eof do
begin
  try
    Table2 .Insert;
    for i := 1 to Table1 .FieldCount - 1 do
    Table2 .Fields [i] .Value := Table1 .Fields [i] .Value ;
    Table2 .Post; {Cette ligne va provoquer une erreur en cas de doublon}
    Table1.Next;
  except
    on E: Exception do
    {si l'erreur est une erreur de duplication de clé, on la passe sous
      silence, sinon, on affiche le message d'erreur}
      if (EDBEngineError(E).Errors[0].ErrorCode = DBIERR_KEYVIOL)
           then Table2 .Cancel
           else raise;
  end;
  Next;
end;
end;

Je vien de modifier la table comme tu m'as dit, et donc maintenant quand j'execute le code, j'ai un message qui me dit :"violation de clé. Index:unique"...

J'avance pas des masses...

[rsc]

Mais si, mais si, on avance .
Je suppose que tu as ce message d'erreur lorsque tu exécutes ton programme à partir de Delphi. Or, par défaut, le débogueur intégré affiche les messages d'erreur, même si les erreurs sont gérées - le programme continue, mais après avoir fermé le message.
Pour voir si c'est ça, tu peux lancer directement l'exe (en dehors de Delphi, par l'Explorateur Windows par exemple). Ou alors, tu vas (chemin dans Delphi 5, à adapter selon versions) dans Outils / Options du débogueur / Exceptions du langage et tu décoches "Arrêter sur exceptions Delphi". Tu valides, et tu réessaies.
Et tu me tien au courant

[jojo86]

Bien m'sieur, je fais ça tout de suite !

[jojo86]

Bon et bien, si je créer un index secondaire sur mes tables, l'application ce bloque... si je supprime l'index secondaire, l'application ne bug plus, mais cette fois, on recopie tout le contenu de la table1 dans la table2...

[jojo86]

Yes c'est bon !!!

J'avais oublié de mettre

Code :

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

1
2
 
Table1.next;

Juste après :

Code :

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

1
2
3
 
if (EDBEngineError(E).Errors[0].ErrorCode = DBIERR_KEYVIOL)
           then Table2.Cancel;

Donc je pense que le programe était bloqué dans la boucle... j'ai donc rajouté :

Code :

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

1
2
3
4
5
6
 
if (EDBEngineError(E).Errors[0].ErrorCode = DBIERR_KEYVIOL)
           then begin
           Table2.Cancel;
           Table1.Next;
           end

Et maintenant ça fonctionne !!!

Voici le code complet pour ceux qui voudront :

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
27
28
29
 
var i:integer;
begin
Table1 .Open;
Table2 .Open;
 
while not Table1 .Eof do
begin
  try
    Table2 .Insert;
    for i := 1 to Table1 .FieldCount - 1 do
    Table2 .Fields [i] .Value := Table1 .Fields [i] .Value ;
    Table2 .Post; {Cette ligne va provoquer une erreur en cas de doublon}
    Table1.Next;
  except
    on E: Exception do
    {si l'erreur est une erreur de duplication de clé, on la passe sous
      silence, sinon, on affiche le message d'erreur}
      if (EDBEngineError(E).Errors[0].ErrorCode = DBIERR_KEYVIOL)
           then begin
           showmessage ('bloquer');
           Table2.Cancel;
           Table1.Next;
           end
           else raise;
  end;
  Next;
end;
end;

Un grand merci à rsc. Merci beaucoup !!!