Discussion :

[abdelghani_k]

Bonjour à tout le monde,

J'ai un fichier base de données au format paradox et qui possède une clé primaire (le fichier est Agent et sa clé est Matricule). J'utilise dans mon application delphi des composants DBEdit reliés via un datamodule (TTable, Tquery) à mon fichier paradox. Je veux contrôler la saisie de valeurs doublons sur la clé primaire à la sortie de DBEdit relié à la clé avant que le moteur de base de données m'affiche le message : 'violation de clé primaire'. J'ai essayé de le faire dans OnValidate de la clé et dans OnExit de DBedit (clé) et j'ai échoué.

Aidez-moi à le faire SVP, et Merci d'avance.

[Cl@udius]

Salut,

Ce que je ferais dans ton cas:

Dans l'évènement OnExit de ton TDBEdit, je ferais un LookUp sur la table (ou le query) pour vérifier la présence ou l'absence de ta clé primaire.

Il faut utiliser un LookUp pour éviter de te déplacer dans ta table pendant la recherche.

Regarde dans l'aide de Delphi la définition de la fonction Lookup, elle est assez bien documentée.

@+Claudius.

[MFDev]

Salut,
Il exite de nombreuses solutions, par exemple:
lors du post, si erreur on laisse tomber:

Code :

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

1
2
3
4
5
 
procedure datamodule.table1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
 begin
	Action := daAbort;
 end;

Avant de rajouter, on vérifie dans la table:

Code :

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

1
2
3
4
5
6
7
8
 
  with datamodule.table1 do begin
    Open;
    SetKey;
    FieldByName('Nom').AsString := sNom;
    if GotoKey then
      Exit;  // existe déjà
    Append...

Plus à la hache, moins propre, à mon avis:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  with datamodule.table1 do begin
    Open;
    Append;
    FieldByName('Nom').AsString := sNom;
    TRY
      Post;
    EXCEPT
      // éventuellement tester par onError si c'est la bonne erreur
      // en tout cas, on ne fait rien
      Close;
      Exit;
    END;

A toi de voir...
@+
Fabrice

[abdelghani_k]

Toujours le même Message avec le code

Code :

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

1
2
3
4
5
6
7
8
 
with datamodule.table1 do begin 
    Open; 
    SetKey; 
    FieldByName('Nom').AsString := sNom; 
    if GotoKey then 
      Exit;  // existe déjà 
    Append...

maintenant c'est au niveau de SetKey que le message s'afiche.

je vous rappelle que j'utilise des dbedit mais apparement dans votre code
sNom est un Edit ou String.

[abdelghani_k]

La recherche nous fait aboutir à notre objectif.
(proverbe : Il ne faut jamais jeter le manche aprés la cognée).

Voici la solution avec des dbcontrols (dbedit ou dbgrid)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const
  eKeyViol = 9729;
 
procedure TDataModule1.TbAgentsPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  if (E is EDBEngineError) then
  if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
  begin
    MessageDlg('Ajout impossible : Valeur déjà saisi.', mtWarning, [mbOK], 0);
    Abort;
  end;
end;

Cette solution se trouve dans les démos de delphi et spécifiquement dans le projet dberrors.dpr (c:\Program Files\Borland\%Delphi%\Demos\Db\DbErrors).

[MFDev]

Bravo, comme quoi, il y a toujours une solution...
Pour ma part, je n'utilise jamais des DBEdit en saisie, uniquement en affichage, et non éditable.
Avec la saisie avec des TEdit, je vérifie la saisie avant de l'envoyer vers la table, donc jamais de violation de clef...
@+
Fabrice

PS: n'oublie pas le [résolu]...