Locate pour éviter doublon

[leopold-lebel]

J'utilise delphi.

Code :

1
2
3
4
5
6
7
8
9
10
procedure TForm1.EnregistrerClick(Sender: TObject);
begin
    table1.Locate('Nom','valeur',[locaseinsensitive]);
    if messageDlg('Souhaitez-vous ajouter cet enregistrement?', mtconfirmation,[mbYes,mbNo],0)= mrYes then table1.Active :=true;
    table1.Post;
    DBedit1.ReadOnly :=true;
    DBedit2.ReadOnly :=true;
    DBedit3.ReadOnly :=true;
    DBgrid1.ReadOnly :=true;
end;

il s'agit d'un morceau de code. la fonction que j'ai souligné en rouge "LOCATE" me cause un peu de problème.
elle devrai me permettre d'interdire l'enregistrement d'un même nom dans un tableau mais je n'arrive pas à dégoter la bonne syntaxe.
QUI PEUT M'AIDER?

[BuzzLeclaire]

Envoyé par leopold-lebel

........ la fonction que j'ai souligné en rouge "LOCATE" ..... elle devrai me permettre d'interdire l'enregistrement d'un même nom dans un tableau .......

Ah bon ? c'est tout récent alors....

La fonction Locate n'interdit rien du tout, elle retourne VRAI si elle trouve au moins une correspondance et se positionner sur l'enregistrement trouvé, retourne FALSE dans le cas contraire.

Imaginons une table avec 2 champs Code et libelle
0 - coucou <= (gros méchant piège)
1 - ici
2 - Buzz
3 - L'éclaire
4 - Coucou <= (gros méchant piège)
5 - ici
6 - oxo la terre

xtable.Locate('libelle','Coucou',[]) => return Vrai et se positionne sur l'enregistrement code 0
xtable.Locate('libelle','Coucou',[locaseinsensitive]) => return Vrai et se positionne sur l'enregistrement code 4
xtable.Locate('libelle','Buzz',[]) => return Vrai et se positionne sur l'enregistrement code 2
xtable.Locate('libelle','Maman aaaaaaaaaah',[]) => return False et reste où il est...

[Ph. B.]

Bonjour,

Envoyé par leopold-lebel

J'utilise delphi.

Mais apparemment pas l'aide qui est fournie avec, sinon vous auriez trouvé !

Une fois le curseur du source placé sur locate, appuyez sur

Syntaxe Delphi :

function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;

Donc

Code :

1
2
3
  if table1.Locate('Nom', 'valeur', [locaseinsensitive]) then
  begin
    //...

Mais vu le reste du code, il y aura d'autres corrections à faire...

[SergioMaster]

déjà , il faudrait que la table1 soit active Avant de faire le Locate

[Rayek]

Envoyé par BuzzLeclaire

Imaginons une table avec 2 champs Code et libelle
0 - coucou <= (gros méchant piège)
1 - ici
2 - Buzz
3 - L'éclaire
4 - Coucou <= (gros méchant piège)
5 - ici
6 - oxo la terre

xtable.Locate('libelle','Coucou',[]) => return Vrai et se positionne sur l'enregistrement code 0
xtable.Locate('libelle','Coucou',[locaseinsensitive]) => return Vrai et se positionne sur l'enregistrement code 4
xtable.Locate('libelle','Buzz',[]) => return Vrai et se positionne sur l'enregistrement code 2
xtable.Locate('libelle','Maman aaaaaaaaaah',[]) => return False et reste où il est...

Je pense qu'il y a une petite erreur avec les deux première solution que tu donnes

xtable.Locate('libelle','Coucou',[]) => return Vrai et se positionne sur l'enregistrement code 0 4
xtable.Locate('libelle','Coucou',[locaseinsensitive]) => return Vrai et se positionne sur l'enregistrement code 4 0