delphi adotable beforpost

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:

---

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

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:

---

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:

---

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"

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