MS Access : gestion des erreurs de clés

Bonjour à tous,:)

Je voudrais gérer les erreurs survenant sur les problèmes de clés, comme par exemples les clés dupliqués.

J'ai une fiche avec un DBNavigator avec des champs dbedit.

Dans mon SQLQuery, je défini le code suivant dans mon événement OnPostError

Code:

---

1 2 3 4 5 6 7 8 9

procedure TDM.SQL_ComptesPostError(DataSet: TDataSet; E: EDatabaseError; var DataAction: TDataAction); begin   ShowMessage (E.Message); DataAction := daAbort;   end;

---

A des fins de test, quand je rentre une clé dupliqué, l'appli déclenche un ODBCexception.

Le ShowMessage (E.Message) n'apparait pas et l'appli s'arrête.:aie:

Comment traiter proprement une ODBCException ?

Merci d'avance

Jazz

J'ai trouvé une solution satisfaisante :ccool:

L'erreur se déclenche à l'appel de la méthode ApplyUpdates du SQLQUERY

Le code de réponse est à implémenter dans l’événement onUpdateError du
SQL QUERY

Ca donne le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TDM.SQL_ComptesUpdateError(Sender: TObject; DataSet: TCustomBufDataset; E: EUpdateError; UpdateKind: TUpdateKind; var Response: TResolverResponse); begin case UpdateKind of ukModify: MessageDlg('Erreur Modification', 'Erreur de modification d''un compte ', mtError, [mbCancel], 0);   ukInsert: MessageDlg('Erreur Insertion', 'Erreur en Ajout d''un compte ' + chr(13) + 'Un compte existe déjà', mtError, [mbCancel], 0);   ukDelete: MessageDlg('Erreur Suppression', 'Erreur de suppression d''un compte ', mtError, [mbCancel], 0); end;   Response := rrAbort; DataSet.Refresh;   end;

---

y a pas ... Lazarus, c'est de la balle ;)

Jazz