Discussion :

[stfanny31]

Salem
j'ai une table en mode edition (pour modifier les enregistrement )
mais l'orsque j'écrit un enregistrement qui existe déja j'ai le message de violation de clé !!
ou doi-je l’intercepte et comment
cela fait un long moment que je cherche ,mais sans réponse
voici le code que j'utilise :

http://www.developpez.net/forums/d53...on-exceptions/

[akli_agha]

Essaies de faire juste ça :

Code :

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

1
2
3
4
5
6
7
 
try
  table1.Post;
except
   table1.cancel; 
   ShowMessage('Code existe déjà !');
end;

[SergioMaster]

encore un
il serait temps de comprendre comment on gère les exceptions

la réponse était déjà dans le post cité
exemple sans prétention

je rappelle également que pour certains composants base de données il existe des évènements comme : onPostError si justement indiqué par @tryexceptend (et toujours dans le même post)

[stfanny31]

j'ai utiliser le code ,comme indiquer dans le poste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
 if (E is EDBEngineError) then
     begin
      case (E as EDBEngineError).Errors[0].ErrorCode of
      9729 :  begin   MessageDlg('ERREUR', mtInformation,[mbOk], 0);TABLE1.Cancel;;end;
      end;
  Abort;
  end;
end;

mais j'obtiens le message d'erreur

Code :

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

violation de clé

puis j'ai mon message

Code :

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

'ERREUR'

qu-es-qui va pas dans ce code

[akli_agha]

Il faut affecter à Action une des valeurs de TDataAction (voir le help de delphi)

essaies ce code

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
   MessageDlg(e.Message, mtInformation,[mbOk], 0);
   Action := daAbort;
end;

[stfanny31]

mais j'ai tjr mon message d'erreur !!

[ShaiLeTroll]

le OnPostError est bien affecté au DataSet concerné ?
Tu as bien un Message Informatif (code de akli_agha) puis un Message d'Erreur
Peut-être même une Notification d'Exception en plus, ce qui ferait 3 Messages !

Le Cancel est-il utile en cas d'Echec du Post ?
Faudrait vérifier le State est toujours en dsEdit\dsInsert

[stfanny31]

le OnPostError est bien affecté au DataSet concerné ?

j'ai pas bien compri cela veut dire quoi ?
j'ai une seul table avec un seul data source

Tu as bien un Message Informatif (code de akli_agha) puis un Message d'Erreur

j'ai un message d'erreur puis le message indicatif

Faudrait vérifier le State est toujours en dsEdit\dsInsert

ca je connais pas du tout

SVP vous pouvez pas m'aidé

[SergioMaster]

faudrait peut être que l'exécution du projet ne soit pas en mode déboguage

[stfanny31]

faudrait peut être que l'exécution du projet ne soit pas en mode déboguage

que veut dire cela !!
et comment le faire !!

[SergioMaster]

cela veut simplement dire que quand on obtient pour un même séquence :

try
Table.Post
except
on E:EException do
begin
Showmessage('Erreur');
...
end;
Abort;
end;

deux messages , le premier étant égal a E.message et le second 'Erreur' il y a de forte chance que le lancement de l'éxécution du programme ait été fait via L'IDE (en mode débug) et que l'option (je ne sais plus laquelle) d'affichage d'erreur soit coché .

[stfanny31]

l'obtion c 'Arrêter sur exceptions Delphi'
j'ai chercher dans :Projet/option/compilateur et j'ai pas trouvé
j'ai delphi 5 ,vous coyé que elle n’existe pas !!

[akli_agha]

C'est dans Outils|Options du débogeur, onglet Exceptions du langage

[stfanny31]

donc c'est ca
dans notre table1 mettre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
 if (E is EDBEngineError) then
     begin
      case (E as EDBEngineError).Errors[0].ErrorCode of
      9729 :  begin   MessageDlg('ERREUR', mtInformation,[mbOk], 0);TABLE1.Cancel;;end;
      end;
  Abort;
  end;
end;

et désactiver
'Arrêter sur exceptions Delphi'
dans Outils|Options du débogeur, onglet Exceptions du langage
merci a vous tous