Prob des doublons!!

Salut,
Je veux savoir cmt je peux éviter de saisir un enregistrement qui existe déjà.J'ai essayé de faire un fonction de recherche mais elle n'a pas marché.Est que vous pouvez m'aider SVP?
Merci d'avance.

Plus de précisions seraient les bienvenues...

merci

Fabien M.

voici la fonction que j'ai utilisé:
   
Function Trouver ():boolean;
   DM.DSRuche.Dataset.First;
   while Not DM.DSRuche.Dataset.EOF do
      Begin
         If Dm.DSRuche.Dataset.Fields[0].Value=DBEdit.Text then
               Begin
                     Trouver:=True;
               End
                Else
                 Begin
                       DM.DSRuche.Dataset.Next;
                   End;
      End;
Et dans la partie Enregistrement avant de faire le Poste je verifie d'abord la valeur de TROVER si elle est False j'effectue l'enregistrement si non j'annule mais malheureusement ça passe tjrs sans vérifier :-((

Regarde bien ton code de près :
Function Trouver ():boolean;
   DM.DSRuche.Dataset.First;
   while Not DM.DSRuche.Dataset.EOF do
      Begin
         If Dm.DSRuche.Dataset.Fields[0].Value=DBEdit.Text then
               Begin
                     Trouver:=True;
               End
                Else
                 Begin
                       DM.DSRuche.Dataset.Next;
                   End;
      End;
Même quand la valeur est trouvée, tu passes à l'enregistrement suivant !
Sauf coup de chance où le dernier enregistrement serait celui qui correspond à ce que tu cherches, ta fonction renverra pratiquement toujours faux.

Voici le code remanié et allégé :

function Trouver(AText: string): boolean;
begin
  //Initialiser le résultat
  Result := False;

  with DM.DSRuche.Dataset do
  begin
    First;
    while not EOF do
    begin
      if Fields[0].AsString = AText then
      begin
        Result := True;
        //Là, il faut sortir de la boucle While
        Break;
      end;
      Next;
    end;
  end;
end;


Mais pourquoi n'utilises-tu pas la méthode Lookup des TDataSet ?



Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<

Bon merci pour votre aide mais même avec la nouvelle fonction que vous m'avez donné j'ai tjrs le même problème il reconnaît le doublons juste quand on insert une valeur qui est égale à  l'ID du premier enregistrement et dès qu'on insert une autre différente il débugue . Merci

Alors, c'est que le problème est ailleurs dans ton code servant à insérer un nouvel enregistrement.

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<

Merci bien mais je crois avoir trouver le problème: au cour de l'execution de la fonction quand il passe à l'instruction First il mis à jour automatiquement la table donc il faut faire un cancel avant     Mais je travaille mnt avec des requettes je vois que c'est beaucoup mieux.    Merci beaucoup pour votre aide

Merci bien pour votre aide precieuse avnt je faisais le cancel sans conditions (State in dsEditModes ) Mais Mnt ça marche
Merci mille fois.