Discussion :

[noorhoda]

bon jour

comment je peux empecher un utilisateur d'entrer deux fois le meme client

j'ai utiliser l'application suivante

Code :

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

1
2
3
if dbedit1.text=ADOtable1.fieldvalues['Num_client'] then showmessage('le client existe') h
else
if ADOtable1.state in [dsedit,dsinsert] then ADOtable1.post

mais elle n'a pas marcher, toujour le message afficher meme si le client n'existe pas.

[BuzzLeclaire]

bon jour

comment je peux empecher un utilisateur d'entrer deux fois le meme client

j'ai utiliser l'application suivante

if dbedit1.text=ADOtable1.fieldvalues['Num_client'] then showmessage('le client existe') h
else
if ADOtable1.state in [dsedit,dsinsert] then ADOtable1.post

mais elle n'a pas marcher, toujour le message afficher meme si le client n'existe pas.

Hummm ?

- Quel BDD ?
- Champs clé primaire suffirai ...
- Et puis
dbedit1.text=ADOtable1.fieldvalues['Num_client']
tu fais un Locate avant ?

Bye.

[noorhoda]

j'utilise SQL server 2005

Num_clien n'a pas la clé primaire

j'ai utiliser l'application suivante mais c'est le meme problème
toujour le message afficher meme si le client n'existe pas.

Code :

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

1
2
3
4
5
6
7
8
9
if (dbedit1.Text<>'') then
begin
adoTable1.Filtered:=true;
adoTable1.Filter:='Num_client='+QuotedStr(dbedit1.Text+' ')
dbedit1.text=ADOtable1.fieldvalues['Num_client']
showmessge('le client existe);
end
else 
if ADOtable1.state in [dsedit,dsinsert] then ADOtable1.post

[paulfr]

Bonjour,

dans un tel cas pour le champ il vaudrait mieux créer un index ayant une valeur unique,
exemple l'index "IDernum" à l'attribut "ixUnique" :

Code :

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

1
2
3
4
5
6
7
with IndexDefs do
    begin
      Clear;
      Add('IDernum', 'NREP', [ixDescending, ixUnique]);
      Add('IxCode', 'CODE', []);
      Add('IxNrep', 'NREP', []);
    end;

PL

[ShaiLeTroll]

Pourquoi utiliser Filter ? C'est lourd non ?
Tu devrais utiliser RecordCount pour vérifier si il y a déjà le client

Fait un SELECT Count(*) WHERE client = ... et si c'est Zéro, tu fais l'insert !
Cela bien-sûr cela n’empêche pas de mettre un Index Unique sur le client !
Attention, mieux vaut laisser le champ autoInc comme clé Primaire !

[BuzzLeclaire]

Pourquoi tu n'utilise pas le LOCATE ?

Cela fonctionne trés bien...

Code :

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

1
2
3
4
5
if TblAdo.locate('Num_Client',dbEdit1.text) Then
// il existe
else
// il existe pas
End;

Et puis : une question, le champ num_client c'est un numéro que l'user tape ? ou tu t'es trompé, car tu souhaites tester si le nom existe et pas le numéro...

Sinon je répète qu'un champ avec doublon interdit serait un plus...

[ShaiLeTroll]

Attention, si il y a un Append\Post pour insérer le nouveau client sur le même DataSet utilise pour Filter et Locate cela doit provoquer un Post implicite ou un Cancel, à vérifier lequel !
Si Post implicite, il y a donc insertion du doublon
Si Cancel implicite, il y a perte de la saisie !

Comme Buzz, avec SQL Server, il faut utiliser un INDEX UNIQUE !

Code sql :

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

CREATE UNIQUE INDEX IX_ClientNum ON Client(Num_client);

[noorhoda]

merci

[noorhoda]

Pourquoi tu n'utilise pas le LOCATE ?

Cela fonctionne trés bien...

Code :

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

1
2
3
4
5
if TblAdo.locate('Num_Client',dbEdit1.text) Then
// il existe
else
// il existe pas
End;

Et puis : une question, le champ num_client c'est un numéro que l'user tape ? ou tu t'es trompé, car tu souhaites tester si le nom existe et pas le numéro...

Sinon je répète qu'un champ avec doublon interdit serait un plus...

c'est un numéro que l'user tape
merci cette méthode fonctionne bien