Discussion :

[jer64]

Bonjour,

Lorsque je crée un nouvel enregistrement dans ma table, je souhaite détecter si c'est un doublon et envoyer un message.

Voilà un code qui fonctionne mais qui me semble pas génial:

Code :

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

1
2
3
4
 
 
if datamodule1.IBDataSet2.Locate('NOM',combobox1.Text,[locaseInsensitive]) then
showmessage('Doublons');

N'y a-t-il pas un code plus efficace?

Merci d'avance.

Jer.

[neilbgr]

Il me semble qu'on ne fera pas mieux que le moteur de base de données; donc déclarer une "unique key" sur le(s) champs de la table. Et là, au moment de poster l'ajout, une exception surviendra en disant qu'il y un contrainte d'unicité.

Code :

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

1
2
3
alter table T_PERSONNE_PERS
add constraint C_PK_T_PERSONNE_PERS
unique (PERS_NOM)

[jer64]

Oui, mais j'ai besoin de vérifier la présence du doublon avant de poster, car l'utilisateur final doit avoir l'info dés le départ pour éviter un travail de saisie inutile.

???

[Rayek]

Tu peux le faire par une requete :

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 Doublon (sParam : String) : Boolean;
begin
  Result := False;
  With Query do // a toi de mettre le bon composant ici
  begin
    Close;
    SQL.Clear;
    SQL.Add(' Select ChampNom from laTableNom');
    SQL.Add(' Where NOM = ' + QuotedStr(sParam));
    try
      Open;
 
      if RecordCount > 0 then
        Result := True
    Except on E:Exception do
      Showmessage(E.Message);
    end; // try
  end; // with
end;

[jer64]

J'ai utilisé l'exemple de la function sur un bouton, mais ma requête m'indique toujours la même réponse quelque soit le nombre d'enregistrement et la présence ou non de doublons:

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
 
 
With datamodule1 do
  begin
 
    ibdataset2.Close;
    ibdataset2.selectSQL.Clear;
    ibdataset2.selectSQL.Add(' Select * from MATABLE');
    ibdataset2.selectSQL.Add(' Where NOM = '+ '''' + combobox1.Text + '''');
 
    ibdataset2.Open;
 
    if ibdataset2.RecordCount > 1 then
 
 
      Showmessage('Doublons') ELSE showmessage('OK');
 
  end;

Ou est l'erreur?

Jer

[Rayek]

Cette fonction doit te permettre de rechercher s'il n'y a pas déjà 1 nom qui existe.
Mais dans la requete, toi, tu cherches s'il y a deux fois ou plus le nom dans la base de données.

Code :

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

1
2
 
if ibdataset2.RecordCount > 1 then // Tu affiches doublons que s'il y a 2 ou plus

il faut que tu indique 0 au lieu de 1 si tu veux une réponse.

[jer64]

Bonjour,

if ibdataset2.RecordCount > 1 then // Tu affiches doublons que s'il y a 2 ou plus



il faut que tu indique 0 au lieu de 1 si tu veux une réponse.

Même comme cela j'ai toujours la même réponse????????????

JER

[Rayek]

Attention les requetes sont sensibles à la casse (Majuscule/minuscule)

[jer64]

J'ai fait attention à la casse, mais le problème n'est pas résolu.

??????

[Andry]

Salut.

Attention avec l'utilisation de recordcount avec Interbase, car des fois ça ne renvoi pas le nombre d'enregistrement exacte, il faut fetcher.
Il vaut mieux utiliser une requête parametrer et tester s'il y a des enregistrement renvoyés

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
 
  Function TPerson.CheckExist (Nom : String) : Boolean;
  With TIbQuery.Create do 
  Try 
    try
      Database := TonIBDatabase;
      Transaction := TonIbTransaction;
      SQL.Add(' Select ChampNom from laTableNom'); 
      SQL.Add(' Where NOM = :PNOM'); 
      ParamByname('PNOM') .Asstring := Nom;
      Open; 
      Result := Not IsEmpty; 
    Except on E:Exception do 
      Showmessage(E.Message); 
    end; 
  finally
    Free;
  end; // with

Ce fonction renvoi vrai si la personne existe dans la base de dnnée.

A toi de le modifier.

A+

[jer64]

Bonjour,

Merci pour votre aide mais je n'y comprend rien, rien ne fonctionne.


???????????

Jer

[Andry]

Bonjour,

Dis nous ce que tu ne comprends pas.
La fonction que je t'ai donnée ci dessous permet de tester que la personne ayant comme nom NOM existe dans la table LaTableNom.
Si c'est à propos de l'utilisation, il suffit de :
- declarer une fonction Function CheckExist (Nom : String) : Boolean;
dans la section privée de ta fiche.
- ajouter IBQuery dans la clause Uses de ta fiche.
- utiliser maintenant

Code :

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

1
2
3
 
if CheckExist (combobox1.Text) then
   showmessage('Doublons');

à la place de

Code :

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

1
2
3
 
datamodule1.IBDataSet2.Locate('NOM',combobox1.Text,[locaseInsensitive]) then 
  showmessage('Doublons');

Et le tours est joué

Bon dev

[jer64]

Merci beaucoup, maintenant j'ai compris et cela marche impec.

Encore merci pour ton aide.

A+

Jer