Discussion :

[dmaitre]

Bonjour,

J'aimerais pouvoir récupérer les erreurs de la abse de donnée (FB 1.0) depuis Delphi. Je travaille avec les composants de base "Interbase".
Ce qu'il me faut, c'est, sur une exception de type EDatabaseError, récupérer la chaîne de caractère de la contrainte violée (ConstrainName). Pour ce faire, dans l'event Applicaltion.OnException, je lance la routine
suivante (prise sur le net) afin de récupérer la constrainte en infraction
avec IB:

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
16
17
18
19
20
function TDM.GetConstraintName: string;
var
  p: PStatusVector;
  i: Integer;
begin
  p:= StatusVectorArray;
  Result:= '';
  i:= 0;
  while p[i]<>0 do
  begin
    if p[i] = 2 then
    begin
      Result:= PChar(p[i+1]);
      Break;
    end
    else
    if p[i]=3 then Inc(i);
    Inc(i,2);
  end; //while
end;

Je lance l'appli et viole une des contrainte de la base (style une valeur
NULL dans un champs NOT NULL ALLOWED). L'exception est bien lancé et la
routine GetConstraintName également lancée. Malheureusement, cette dernière
me retourne toujours une chaîne vide bien que p recoivent une adresse
valide. quelqu'un a-t-il une idée de la raison ?

Merci

David

[Modération, rbag : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[mika]

As tu essayé le pas à pas pour voir le contenu de ta varaible result

[dmaitre]

En fait, cela fonctionne. Je viens de me rendre compte que ça fonctionne mais pas avec tous les constraints. En fait, pour le champs qui ne peut pas être NULL, cela est spécifié dans le DOMAINE du champs et non dans une CHK_CONSTRAINTE. Si je viole une CHK_CONSTRAINTE (ex: CHK1_CLIENT), le résultat de la fonction est bien "CHK1_CLIENT".

Mon problème, c'est maintenant de pouvoir détecter les messages de la base concernant des restrictions au niveau du DOMAINE.