Discussion :

[Invité1]

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 :

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

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

[teach]

ça ne marche pas

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

[Invité1]

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 :

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

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

[Montor]

Code :

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

1
2
3
4
5
6
7
try
table1.Post;
 
except
     table1.Cancel; 
     MessageDlg('Erreur: clef en double', mtError, [mbOk], 0);
 end;

[Invité1]

Code :

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

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

[teach]

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

[Invité1]

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

Code :

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

1
2
3
4
5
6
 
procedure TFprincipale.BitBtn1Click(Sender: TObject);
begin
table1.edit;
table1.append;
end;

un autre bouton pour valider

Code :

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

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

[teach]

table1.edit;
table1.append;

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

Code :

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

1
2
 
table1.edit;

et un autre ou tu fais

Code :

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

1
2
 
table1.append;

[Rayek]

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).