Discussion :

[samlerouge]

hello,
J'ai un Ttable connecté via ADO à une db ACCES. (Avec Delphi 7)

J'ai un code dans PostError qui affiche un message personnalisé,
le voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TdmCuisinePlus.tblCategoriePostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  sNomCat:String;
  begin
  sNomCat:=FrmMaintenanceCategorie.dbtCategorie.EditText;
 
  E.Message := 'Erreur d''insertion :' + sLineBreak + 'La catégorie '+sNomCat+' existe déjà '+sLineBreak+ 'Veuillez entrer une nouvelle catégorie';
ShowMessage(e.Message);
 
 Action := daAbort;
FrmMaintenanceCategorie.dbtCategorie.Clear;
  FrmMaintenanceCategorie.dbtCategorie.SetFocus;
 
end;

Le problème est que ce message vaut si on veut insérer un champs qui existe déjà (Le champs en question est indexé sans doublon dans ACCESS).
Si une erreur de type champs vide ou autres intervient c'est le même message qui s'affiche.

J'ai regarder dans l'aide d'ACCESS, il y a un liste de code d'erreur de Microsoft Jet.

Mais voila, comment fait -on pour capturer quelle erreur a été déclenchée grâce au code d'erreur?

Merci de votre aide

[Merlin]

plutôt que de bricoler e.message, ce qui l'écrase... tu n'a qu'à afficher directement e.message et tu auras le bon message à chaque fois :-) !

[samlerouge]

Ca dépend pour qui tu fais le projet. Dans mon cas qui est un projet d'école, donc c'est pour moi, c'est vrai je peux avoir les messages d'erreurs standards.

Mais si tu fais un projet plus professionnel que tu désires vendre, il est plus conviviale pour l'utilisateur de recevoir un message d'erreur adéquat.

En ce qui concerne de la construction du E.message si c'est du bricolage, c'est juste un essai.

J'ai parcouru longtemps le forum et était voir http://www.delphi.about.com (cours ADO) mais personne ne parles du fait de pouvoir gérer les erreurs exact d'Access.

Merci comme même du conseil

[samlerouge]

Pour être un peu plus clair j'aimerais intercepter directement le numéro de l'erreur d'ACCES comme le code d'erreur d'ORACLE dans du post ci-dessous:
http://www.developpez.net/forums/vie...acle+exception ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
try 
  ... 
  except 
    on E: EOracleError do begin 
      if E.ErrorCode = -20002 then begin 
        MessageDlg('Mon message', mtInformation, [mbOk], 0); 
      end; 
    end; 
  end;

Existe -t-il la même solution pour ACCESS?

[samlerouge]

J'ai fais quelques recherche et voila ma conclusion:

Comme j'ai appliqué des régles de gestion dans ACCES, du style pas de doublon, pas de champs vide ou bien la taille pour un champs donné.
Lorsque depuis Delphi, j'ai un erreur c'est donc les messages ACCES qui s'affiche.

Etant donné qu'il ne doit pas être possible de récupérer le n° d'erreur de Microsoft Jet. Mais seulement le message d'erreur.

J'ai donc opté pour une solution plus simple. En effet, j'affiche un message personnalisé depuis Delphi si une des regles n'est pas respectée.

Comme ca j'ai bien un message d'erreur personnalisé spécifique (doublon, champs vide ou autres.)
Du style

Code :

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

1
2
3
4
5
6
7
8
9
Try
INSERT .....
EXCEPT
 IF doublon() THEN showmessage
 ELSIF vide() THEN showmessage
 .....
 .....
 END;
end;

Merci