Discussion :

[djouahra.karim1]

bonjour TLM

pourquoi j'ai cette erreur : violation de clé.
j'ai fait un select (queyr1) puis je boucle dans cette requête pour inserer depuis le contenu du requête dans une table.

le programme s'excécute et j(ai pu même voir le resultat depuis l'explorateur
mais j'ai le message d'erreur pour violation de clé

j'utilise Delphi6 et BD Paradox

voici mon code d'insertion dans ma table (qui est vide au départ)

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
 
query1.Close  ;
query1.sql.clear;
query1.Sql.Text := 'Select DISTINCT EXNV, EXORIG, EXDEST from Expl';
 
query1.Active := True;
If query1.RecordCount > 0 Then
     Begin
     query1.FetchAll;
     query1.First;
     While not query1.eof Do
         Begin
         datamodule2.Tetatsperchgtnvol.Insert;
         nv := query1.FieldByName('EXNV').AsString;
         orig := query1.FieldByName('EXORIG').AsString;
         dest := query1.FieldByName('EXDEST').AsString;
         datamodule2.TetatsperchgtnvolNVOL.Value := nv;
         datamodule2.TetatsperchgtnvolORIG.Value := orig;
         datamodule2.TetatsperchgtnvolDEST.Value := dest;
         query1.Next;
         datamodule2.Tetatsperchgtnvol.Post;
         datamodule2.Tetatsperchgtnvol.Next;
         End;
      End;
 
query2.Close  ;
query2.sql.clear;
query2.sql.Add ('select * from etatsperchgtnvol');
query2.open;

[djouahra.karim1]

Bonjour TLM

bon j'ai trouvé la faille de mon problème :

c'était dans la table où j'ai déclaré NVOL comme index primaire, puis il y'a eu deux valeurs pour NVOL qui se resemble et c'était là le problème lors d'inserion. Donc il faut éviter de déclarer un index primaire où il y'a le risque d'avoirs des même valeurs pour ce champs.

Bon voilà le problème et réglé

Merci pour ceux qui ont jetéun coup d'oeil sur mon problème