Discussion :

[tijani]

Bonjour,

J'ai voulu faire un message personnalisé lors de la suppression d'un enregistrement de la base.

Code :

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

1
2
3
4
5
6
7
8
9
 
IBSQL1.SQL.Add('DELETE FROM UTILISATEUR WHERE ID_UTILISATEUR='+IntToStr(ID));
 
      try
 
      IBSQL1.ExecQuery;
      except
          fonction :=  'ok';
      end;

mais en exécutant pas à pas, l'erreur apparait comme message d'alerte (foreign key IBINTERBASEERROR).
Comment arriver à éliminer l'erreur par défaut?
Merci

[Cl@udius]

Salut

Si tu exécutes ton programme en mode debug (via l'EDI donc avec F9) il est normal que l'exception s'affiche. Ce qui ne se produira pas si tu l'exécutes directement.

@+ Claudius

[peter27x]

Ce que veut dire Claudius c'est que ça se produira pas en lançant le programme depuis le .exe directement (depuis l'explorateur quoi).

Petite précision car ça me paraissait pas forcément très clair.

[Cl@udius]

Euh lui, comment ça je ne suis pas clair.
Remarque ta phrase est très claire.

[peter27x]

Euh lui, comment ça je ne suis pas clair.
Remarque ta phrase est très claire.

Bah, tu le prends avec le sourire et tu as bien raison.

C'est juste que des fois un truc nous semble tellement simple que pour le "traduire" à un tiers on emploi par forcément des termes très clairs... J'ai donné des formations aux utilisateurs pendant plusieurs années par le passé (des groupes allant de 3/4 à 17/18 grand maxi) et du coup maintenant je dois avoir une sorte de "déformation professionnelle" quant au fait d'essayer d'expliquer clairement les choses...

[tijani]

Merci Cl@udius et Peter27x.