Contrôle de saisie de valeurs doublons de la clé primaire.

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.

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.

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

Code:

---

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:

---

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:

---

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

Toujours le même Message avec le code

Code:

---

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.

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:

---

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).

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]...