Récupérer une erreur SQL avec TIBDataSet

Bonjour,

J'utilise un TIBDataSet et quand je supprime volontairement un enregistrement (avec la requête DeleteSQL) qui viole les contraintes de la clé étrangère, comment puis-je faire pour récupérer l'exception EIBInterbaseError ?

Quand j'utilise l'évènement OnDeleteError pour afficher le message d'erreur de mon choix, cela n'empêche pas l'apparition du message d'erreur EIBInterbaseError

Quelqu'un a une idée ?

Cyril

RE_

Je n'ai pas résolu mon problème mais je l'ai contourné en créant un trigger qui me renvoie un message d'erreur à peu près comme je veux. Je dis à peu près car il y a des infos supplémentaires qui viennent se greffer à mon message. Ce n'est pas top comme solution et si quelqu'un a mieux, je suis preneur...

Je met même le code du trigger si ça intéresse quelqu'un car ça n'a pas été facile à pondre et que la doc sur les triggers Firebird est plutôt rare...

Le trigger :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

SET TERM ^ ; CREATE OR ALTER TRIGGER VERIF_DELETE_CATEGORIA FOR CATEGORIAS ACTIVE BEFORE DELETE POSITION 0 AS DECLARE VARIABLE NB_ESPECE INTEGER; BEGIN SELECT COUNT(ESP_ID) FROM ESPECIES WHERE CAT_ID = OLD.CAT_ID INTO NB_ESPECE; IF (NB_ESPECE <> 0) THEN EXCEPTION DEL_CAT_ERROR_FK; END; SET TERM ^ ;

---

Et l'exception :

Code:

---

CREATE EXCEPTION DEL_CAT_ERROR_FK 'É PROIBIDO DE DELETAR UMA CATEGORIA QUE TEM UMA(S) ESPÉCIE(S)!!!';

---

Salut,

Citation:

---

Envoyé par cgone

Quand j'utilise l'évènement OnDeleteError pour afficher le message d'erreur de mon choix, cela n'empêche pas l'apparition du message d'erreur EIBInterbaseError

---

Quelle est la valeur de retour de la variable Action de la procedure OnDeleteError ?
Si tu la laisse à daFail c'est normal que le message IB apparaissent. Mets cette valeur à daAbort ou daRetry selon la cas.

@+ Claudius.

Salut,

C'est tout ce qu'il me fallait... :D
Merci