Discussion :

[tintin62]

bonjour
j'ai une table adotable sur la fiche un dbnavigateur
j'ai rempli des dbedit pour la table et lors de la validation
des données je regarde si la données "reference n'est pas un doublons
avec la commande beforpost

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TfPrimo.ADOTable1BeforePost(DataSet: TDataSet);
    var
ref:string;
begin
 ref:=fprimo.DBEdit1.Text;
  if adotable1.Locate('reference',ref,[])= true then
 
    begin
   showmessage(' reference existante');
   fprimo.ADOTable1.Cancel;
   end;
end;

mais j'obtiens une erreur stack overflow error

merci pour aide

[SergioMaster]

Bonjour,

quelque part c'est logique. Vous êtes en train de modifier ADOTable1 disons que vous avez "un curseur" sur la ligne en cours de modification et par votre instruction de recherche sur cette même table adotable1.Locate('reference',ref,[]) vous déplacer le curseur ailleurs. Que vous ayez une erreur n'est donc pas surprenant.

Si vous voulez vérifier, il aurait fallu que la recherche soit sur un autre ensemble de données ou une interrogation par SQL
d'un autre côté s'il s'agit d'une clé , un contrainte d'index unique permettrait de lever une erreur qu'il suffirait de gérer au niveau du Post avec un bloc

Code :

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

1
2
3
4
5
6
7
8
9
10
 
try 
 Adotable1.Post; 
except 
   on E:EdatabaseError do    // affinable
     begin 
        showmessage(' reference existante');
        ADOTable1.Cancel;
     end;
end;

parlons maintenant de votre code, j'ai remarqué que vous aviez tendance à ajouter, inutilement, le nom de la forme (encombrant inutilement la lecture)

Code :

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

1
2
3
4
5
6
7
8
procedure TfPrimo.ADOTable1BeforePost(DataSet: TDataSet);
begin
  if adotable1.Locate('reference',DBEdit1.Text,[])= true then
    begin
      showmessage(' reference existante');
     ADOTable1.Cancel;
   end;
end;

et enfin renommez vos composants afin de rendre plus explicite, pensez "maintenance"

[ShaiLeTroll]

Il ne faut pas appeler Cancel depuis BeforePost mais un Abort qui lui fera le Cancel.