Discussion :

[melles]

Bonjour a tous.
Je me retrouve coincé une fois encore :

L'erreur suivante :

Code :

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

Le projet ProjectName.exe a provoqué une classe d'exception EDBEngineError avec le message 'violation de clé'.

survient lorsque j'utilise une fonction qui vide une table et qui la remplie avec de nouveaux élements.

Aparement c'est un problem de clé, je suppose que cela implique l'index! Mais je ne comprend pas pourquoi.
Mes deux tables ont le meme champ d'indexé qui est : N

Voici le code utilisé

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
procedure fill(var a,b:Ttable);
begin
    a.DisableControls;
    b.DisableControls;
    a.First;
    While not a.Eof do
    begin
      a.Edit;
      a.Delete;
    end;
    b.first;
    while not b.Eof do
    begin
      a.insert;
      a.FieldByName('N').value:= b.FieldByName('N').value;
      a.FieldByName('Open time').value:= b.FieldByName('Open time').value;
      a.FieldByName('Name').value:= b.FieldByName('Name').value;
      a.FieldByName('ID').value:= b.FieldByName('ID').value;
      a.FieldByName('Member').value:= b.FieldByName('Member').value;
      a.FieldByName('Location').value:= b.FieldByName('Location').value;
      a.FieldByName('Assignement').value:= b.FieldByName('Assignement').value;
      a.FieldByName('None').value:= b.FieldByName('None').value;
      a.FieldByName('Current').value:= b.FieldByName('Current').value;
      a.Post; //L'erreur survient ici !!!!!!!!!!!!!!
      b.next;
    end;
    b.EnableControls;
    a.EnableControls;
end;
 
procedure TForm1.PageControl2Change(Sender: TObject);
begin
case  PageControl2.ActivePageIndex of
 0:  begin
      Topen.Filter:= 'Assignement ='  +quotedstr('Active');
      Topen.Filtered:=true;
      fill(Tdeal,Topen);
     end;
  1:  begin
      Topen.Filter:= 'Assignement ='  +quotedstr('NoActive');
      Topen.Filtered:=true;
      fill(Tdeal,Topen);
     end;
  2:  begin
      Topen.Filter:= 'None ='  +quotedstr('yes');
      Topen.Filtered:=true;
      fill(Tdeal,Topen);
     end;
  3:  begin
      Topen.filtered:= false;
      fill(Tdeal,Topen);
     end;
end;
end;

D'avance merci pour vos bonnes idees

[Cl@udius]

Salut

Code :

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

1
2
3
4
5
6
7
 
    a.First;
    While not a.Eof do
    begin
      a.Edit;
      a.Delete;
    end;

Bizarre ta façon de vider la table.

Essaye comme ceci:

Code :

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

1
2
3
4
5
6
7
 
  with A do 
  begin
    Close;
    EmptyTable;
    Open;
  end;

Ensuite, il est à mon avis préférable d'imbriquer ton traitement dans un Try...Finally...end dès lors que tu effectue un DisableControls:

Code :

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

1
2
3
4
5
6
7
8
9
 
  a.DisableControls;
  b.DisableControls;
  try
    // Ton traitement...
  finally
    a.EnableControls;
    b.EnableControls;
  end;

@+ Claudius

[melles]

Merci pour le code de vidange de table
Est il necessaire de metre des try... finally... end apre un DisableControl ?

J'ai du moins updaté le code mais j'ai toujours la meme erreur

[ShaiLeTroll]

Quelle est la base de données ? Gères-t-elles les contraintes ?

[melles]

BD paradox.... et je ne sais pas c'est quoi une contrainte donc je suppose que non...

[Rayek]

A mon avis ton problème vient du fait que ton Index (N) doit être aussi une clef unique ce qui fait que si tu as deux enregistrements avec 2 champs N identique il te génère cette erreur.

Vérifie ta table source pour voir si tu n'as pas plusieurs enregistrements avec plusieurs champs N identique.

fait une requete sur ta table

Code SQL :

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

1
2
3
4
 
select N, count(*) from LE_NOM_DE_LA_TABLE
Having count(*) >= 2
Group by N

Ca te sortiera la liste de tous les N qui sont 2 fois ou plus

Sinon, Open Time c'est fortement déconseillé les champs avec des espaces.

[ShaiLeTroll]

Oki, Paradox, euh les contraintes cela n'existe pas !
Mais il existe les Tables de Référence, cela peu géner ?

Sinon, tu veux effacer une Table, tu as une méthode bien Trash mais qui a l'avantage d'avoir une table on ne peut plus propre ...

tu fermes (close) tout accès à la table (d'ailleurs pour un EmptyTable, il ne faudrait pas un Exclusive à True ?), tu supprime tous les fichiers liés à la table (*.db, *.px, *yg0, ... *.mmo), et tu mets à la place des fichiers tout propre (une copie vide de la table), et hop, tu réouvres la table et elle est parfaitement vide et packée !

[melles]

A mon avis ton problème vient du fait que ton Index (N) doit être aussi une clef unique ce qui fait que si tu as deux enregistrements avec 2 champs N identique il te génère cette erreur.

Effectivement, ce sont bien des clefs uniques. Cela dit, N est un nombre de comptage qui s'implemente de 1 a chaque création de nouveaux champs.
Donc, il ne peut y avoir deux enregistrements éyant la meme valeur.
Dites le si je me trompe!


Un autre point : La discussion http://www.developpez.net/forums/sho...d.php?t=398883
Le monsieur a le meme probleme que moi mais lorsque les enregistrements depassent la centaine!!!!
Serait ce une joincidence avec un grand C ?

En tout cas, probleme toujours pas résolu
Nota Bene : depuis que j'ai ajouté le bloc try.... finally... end. Ces memes erreurs apparaissent beaucoup moins souvent qu'avant.

[gduo200]

Si la table 'A' est du type 'Paradox' et son champ 'N' du type 'Autoincrémenté', cela ne m'étonne pas que cela plante au moment du 'Post'.

Je viens d'essayer de modifier un champs de ce type, pour confirmer ce que je pensait : ce n'est pas possible.

Toutefois le message d'erreur obtenu par Melles concerne "une violation de clé" alors je ne suis pas sur qu'il y ai un rapport.

Il faut s'assurer comme l'a bien dit Malatar que la table est propre de tout doublon. Si tu ne connais pas SQL pour appliquer la solution qu'il propose, détruit ta table et re-crée là ( euh pardon de préciser : copie la avant).

[Rayek]

Si la table 'A' est du type 'Paradox' et son champ 'N' du type 'Autoincrémenté', cela ne m'étonne pas que cela plante au moment du 'Post'.

Je viens d'essayer de modifier un champs de ce type, pour confirmer ce que je pensait : ce n'est pas possible.

Tu peux insérer une valeur dans un champ autoincrémenté, sinon il serait impossible de pouvoir faire des copies de tables.

Effectivement, ce sont bien des clefs uniques. Cela dit, N est un nombre de comptage qui s'implemente de 1 a chaque création de nouveaux champs.
Donc, il ne peut y avoir deux enregistrements éyant la meme valeur.
Dites le si je me trompe!


Un autre point : La discussion http://www.developpez.net/forums/sho...d.php?t=398883
Le monsieur a le meme probleme que moi mais lorsque les enregistrements depassent la centaine!!!!
Serait ce une joincidence avec un grand C ?

En tout cas, probleme toujours pas résolu
Nota Bene : depuis que j'ai ajouté le bloc try.... finally... end. Ces memes erreurs apparaissent beaucoup moins souvent qu'avant.

Essaie avec le code suivant :

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
30
31
32
33
34
35
36
37
 
procedure fill(var a,b:Ttable);
begin
    a.DisableControls;
    b.DisableControls;
    try
    a.First;
    While not a.Eof do
    begin
      a.Edit;
      a.Delete;
    end;
    b.first;
    while not b.Eof do
    begin
      a.Append; // J'ai changé cela, je pense qu'il est préférable de l'utiliser
      a.FieldByName('N').value:= b.FieldByName('N').value;
      a.FieldByName('Open time').value:= b.FieldByName('Open time').value;
      a.FieldByName('Name').value:= b.FieldByName('Name').value;
      a.FieldByName('ID').value:= b.FieldByName('ID').value;
      a.FieldByName('Member').value:= b.FieldByName('Member').value;
      a.FieldByName('Location').value:= b.FieldByName('Location').value;
      a.FieldByName('Assignement').value:= b.FieldByName('Assignement').value;
      a.FieldByName('None').value:= b.FieldByName('None').value;
      a.FieldByName('Current').value:= b.FieldByName('Current').value;
      try
        a.Post; //L'erreur survient ici !!!!!!!!!!!!!!
      Except on E:Exception do
       Showmessage('Erreur d''insertion :' + b.FieldByName('N').AsString + ' - ' + b.FieldByName('Open time').AsString);
      end; 
      b.next;
    end;
    finally
    b.EnableControls;
    a.EnableControls;
    end;
end;

Sinon pour faire une copie simple d'une table dans une autre (il faut qu'elles aient exactement les mêmes champs).

Code SQL :

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

1
2
3
 
Insert into Table_Destination
Select * from Table_Source

Pas sûr que ca fonctionne avec Paradox, je n'utilise plus cette base de données depuis des lustres.

[gduo200]

de Malatar
Tu peux insérer une valeur dans un champ autoincrémenté, sinon il serait impossible de pouvoir faire des copies de tables.

Effectivement, il faut toutefois veiller à fixer la propriété ReadOnly du champ à False. Ce qui n'est pas la valeur par défaut. Merci.

[ShaiLeTroll]

Tient Voir ce sujet

Sinon, le Exclusive est recommandé pour ce genre d'opération ...

Code :

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

1
2
3
4
5
6
a.First;
While not a.Eof do
begin
  a.Edit;
  a.Delete;
end;

cela me suprend, ceci suffit ...

Code :

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

1
2
3
a.First;
While not a.Eof do
  a.Delete;

Pour la Copie, on peut faire ceci, cela évite de changer si la structure change
bon, il faut que la structure soit identique, si l'ordre ne l'est pas, il faut jouer avec FindField ...

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
b.Open();
b.First();
 
for iField := 0 to b.FieldCount - 1 do begin
    a.Fields[iField].ReadOnly := False;
end;
while not b.Eof do begin
      a.Append();
      for iField := 0 to b.FieldCount - 1 do begin
          a.Fields[iField].AsVariant := b.Fields[iField].AsVariant;
      end;
      a.Post();
 
      b.Next();
end;

[Rayek]

Effectivement, il faut toutefois veiller à fixer la propriété ReadOnly du champ à False. Ce qui n'est pas la valeur par défaut. Merci.

Je n'ai jamais eu besoin de changer la propriété ReadOnly quand je fais des insertions de données dans un champ auto-incrémenté.

b.Open();
b.First();

for iField := 0 to b.FieldCount - 1 do begin
a.Fields[iField].ReadOnly := False;
end;
while not b.Eof do begin
a.Append();
for iField := 0 to b.FieldCount - 1 do begin
a.Fields[iField].AsVariant := b.Fields[iField].AsVariant;
end;
a.Post();

b.Next();
end;

Je conseil plutot l'utilisation de l'assign surtout si on commence a avoir des champs de type Blob et autres.

Au lieu de :

Code :

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

 a.Fields[iField].AsVariant := b.Fields[iField].AsVariant;

Je préfére

Code :

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

1
2
 
 a.Fields.Fields[iField].Assign(b.Fields.Fields[iField]);

Depuis que j'utilise l'assign je n'ai plus eu aucun problème de transfert de données.

[aityahia]

si j'ai bien compris vous voullez copier tous le contenu d'une table sans condition dans une autre de la même structures, alors a quoi bon de faire un tel traitement qui peut être long si vous le nombre d'enregistrements est considérable, pourquoi ne pas utiliser une copie directe du fichier avec CopyFile on écrasant l'ancien fichier, ou utiliser le composant TBatchMove comme vous utilisez le BDE.

[ShaiLeTroll]

Entièrement avec aityahia, la copie brut de fichier, cela fonctionne à tous les coup ! c'est ce que je faisais aussi !

Personnellement, à chaque lancement de l'appli, la première chose faite était de remplacer certains tables (Caduques) par des fichiers vides, bien propre, et au cas où réparer les autres tables (persistantes) via ce que j'ai fourni en lien plus haut ...

@Malatar
Pour le Assign, bien vu, j'ai propose le AsVariant, je l'avais utilisé, c'est sur, je n'ai pas eu de blob dans mes tables (double, integer, date ou chaine, des données à courte durée de vie (caduque) lié à des automates) ...

Assign je l'utilise plus souvent pour les Strings, ou dans mes classes personnelles (je pense à une couche de persistance pouvant se copier depuis un DataSet ou un autre Persistant, faut que je fasse aussi via un TXMLDocument ou IXMLNode)

[ProgD]

avant de posé cette question j'aimeré bien comprendre le besoins de faire ce traitement, car AITYAHIA à bien raison, il ya mille et une façon de détourner le problème.
Essayé de nous expliqué un peut le besoin de votre méthode ?

[gduo200]

à Melles
Y a t-il à un moment un filtre sur la table Tdeal ?

[melles]

Me revoila
J'ai fini par laisser tomber ce projet pendant un petit temps pcq ca m'ennerve assez mais bon faut s'y remetre a un moment donne ou un autre!

@gduo200 :
Il n'y a pas de filtre sur Tdeal mais bien sur Topen.

[gduo200]

A part un éventuel index secondaire unique sur un ou plusieurs autres champs de TDeal je ne vois pas d'où vient le problème.

Je poste quand même pour demander si il n'y a pas un problème de conception autours de ta table TDeal : Puisque le champs N est renseigné manuellement à partir d'une autre table, y a t-il une raison pour qu'il soit du type autoincrémenté ?

Dans ton cas, moi j'essayerais de supprimer temporairement la ligne qui affecte N dans la procedure fill, afin de m'assurer que le problème est bien sur ce champs. Peut-être est-ce déja fait ?