gestion de l'exception EMysqlException

Bonjour a tous

En essayant de rajouter un nouvel enregistrement avec une clef existante, j’ai ce message d’erreur : « Le projet a provoqué une classe d’exception EMysqlException avec le message #23000 duplicate entry ‘DT/0686’ for key1, processus stoppé. Utilisez Pas-à pas ou Exécuter pour continuer » et c'est normal.

J’ai essayé de traiter cette exception avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10

uses Mysqlerrors;   try table1.Post;   except on E :EMySQLException do MessageDlg('Erreur: clef en double', mtError, [mbOk], 0);   end;

---

ça ne marche pas

Vous n’auriez pas une idée

Merci

Citation:

---

ça ne marche pas

---

Il faut être plus clair,que te renvoie la gestion de l'exception

Citation:

---

Il faut être plus clair,que te renvoie la gestion de l'exception

---

le meme message d'erreur

"Le projet a provoqué une classe d’exception EMysqlException avec le message #23000 duplicate entry ‘DT/0686’ for key1, processus stoppé. Utilisez Pas-à pas ou Exécuter pour continuer "

si je fais ça

Code:

---

1 2 3 4 5 6

try table1.Post; except MessageDlg('Erreur: clef en double', mtError, [mbOk], 0); end;

---

ça marche
mais j'aurai un probleme dans le cas ou je veux modifier un champ existant
ça va declancher l'exception

Code:

---

1 2 3 4 5 6 7

try table1.Post;   except table1.Cancel; MessageDlg('Erreur: clef en double', mtError, [mbOk], 0); end;

---

Code:

---

1 2 3 4 5 6 7 8

try table1.Post;   except table1.Cancel; MessageDlg('Erreur: clef en double', mtError, [mbOk], 0); end;

---

ça marche pour un nouvel enregistrement,

pour modifier un enregistrement existant ça pose probleme (enfin chez moi)

merci pour ton aide

Pourrions nous avoir le traitement que tu fais avant le try ou plus encore le code utilisé.

en gros il y a un bouton pour ajouter un nouvel enregistrement

Code:

---

1 2 3 4 5 6

procedure TFprincipale.BitBtn1Click(Sender: TObject); begin table1.edit; table1.append; end;

---

un autre bouton pour valider

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TFprincipale.BitBtn2Click(Sender: TObject); begin try table1.Post; except table1.Cancel; MessageDlg('Erreur: cet enregistrement existe ', mtError, [mbOk], 0); end; end;

---

merci

Citation:

---

table1.edit;
table1.append;

---

Il faut gérer (avec deux boutons par exemple "Edit" "Ajout") un cas ou tu fais

Code:

---

1 2	table1.edit;

---

et un autre ou tu fais

Code:

---

1 2	table1.append;

---

Oula, Edit et append à la suite ca sert strictement à rien.

Soit tu fais Edit (Tu passes la table en mode édition), soit tu fais Append (Tu ajoutes une ligne et tu passes en mode édition).