Une Recherche sur deux champs

Bonjour à tous, voilà je voudrais me positionner sur un enregistrement précis d'une table pour pouvoir y éditer des modifications le concernant...!!!
Mon problème est que cette Table : DETAIL.DB (Paradox) dipose une clé composée (N_Ctr+N_Item) et je ne sais pas comment me positionner sur un enregistrement X par rapport à la valeur de 02 champs: N_Ctr et le N_Item

Merci++++++

Salut

Tu peux utiliser la fonction Locate:

Code:

---

1 2	if Table1.Locate('N_Ctr;N_Item', varArrayOf(['V1', 'V2']), [loCaseInsensitive]) then // ... trouvé !

---

Si une occurrence est trouvée Locate renvoie True et se positionne sur l'enregistrement.

@+ Claudius

Citation:

---

Envoyé par Cl@udius

Salut

Tu peux utiliser la fonction Locate:

Code:

---

1 2	if Table1.Locate('N_Ctr;N_Item', varArrayOf(['V1', 'V2']), [loCaseInsensitive]) then // ... trouvé !

---

Si une occurrence est trouvée Locate renvoie True et se positionne sur l'enregistrement.

@+ Claudius

---

Merci ça marche à merveille, je connaissais le LOCATE mais pour un seul champs, je suis agréablement renseignée...

Merci encore:yaisse2:

Salut;

attention quant à l'utilisation de Locate avec des tables volumineuses car c'est une méthode de récherche séquentielle.

Citation:

---

Envoyé par Kelloucheaeh

Salut;

attention quant à l'utilisation de Locate avec des tables volumineuses car c'est une méthode de récherche séquentielle.

---

Salut,
et qu'as tu à proposer ??? en échange??? :(

Re;

les filtres sont une bonne alternative et le Select du SQL l'est aussi très puissant en plus et ne demande pas d'index sur les champs faisant partie de la recherche.

Citation:

---

Envoyé par Kelloucheaeh

Re;

les filtres sont une bonne alternative et le Select du SQL l'est aussi très puissant en plus et ne demande pas d'index sur les champs faisant partie de la recherche.

---

en fait, c'est une recherche qui a pour but de trouver un enregistrement pour procéder à des modifs automatiques lors de l'insertino d'un autre enregistrement dans une autre table, les 02 enregistrements en question ont la même référence!!! donc l'instruction : If Locate tombe à pic pour l'insérer dans mon code de modification!!
Tu vois un peu???

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TNouvLiv.suiButton1Click(Sender: TObject); var Addition, Soustraction:Integer; begin If EditQte.text<>'' then Begin DataModule2.TablLivraison.append; Datamodule2.TablLivraison.FieldValues['Date_Livraison']:=DatePick.Date; Datamodule2.TablLivraison.FieldValues['Ref_Interne']:=DBEditRef.Text; Datamodule2.TablLivraison.FieldValues['Designation']:=DBEditDes.Text; Datamodule2.TablLivraison.FieldValues['Qte_Livree']:=EditQte.Text; Datamodule2.TablLivraison.FieldValues['Fournisseur']:=EditFrs.Text; Datamodule2.TablLivraison.FieldValues['Code_Ctr']:=EditCtr.Text; Try DataModule2.TablLivraison.Post;   DataModule2.TabArticle.Edit; Addition:=DataModule2.TabArticleQte_Stock.Value+StrToInt(EditQte.Text); DataModule2.TabArticle.FieldValues['Qte_Stock']:=Addition; DataModule2.TabArticle.Post; if DataModule2.TabDetail.Locate('N_Ctr;Ref_Interne', varArrayOf([EditCtr.Text, DBEditRef.Text]), [loCaseInsensitive]) then begin DataModule2.TabDetail.Edit; Soustraction:=DataModule2.TabDetailQte.Value-StrToInt(EditQte.Text); DataModule2.TabDetail.FieldValues['Qte_Restante']:=Soustraction; DataModule2.TabDetail.Post; end;   effacementedit; NouvLiv.Close; Except MessageBox(Handle, pchar('Attention, vous avez tenté d''insérer une livraison déja existante dans la base, Vérifier la référence interne ou la date à saisir') , pchar('Insertion d''une nouvelle livraison'), 48); Datamodule2.TablLivraison.Cancel; effacementedit; end; end Else MessageBox(handle,'Saisissez la Quantité Livrée avant la validation','Avertissement',48) end;

---

c'est une procédure d'insertion de nouvelles livraisons en même temps des changement doivet affecter une autre table

Ok et tant mieux pour toi mais je pense toujours que SQL peut être une bonne alternative au ca où tes champs ne sont pas indexés.

Seul le résultat compte pour le moment mais pour une optimisation du code faut peut être y réfléchir.

Citation:

---

Envoyé par Kelloucheaeh

Ok et tant mieux pour toi mais je pense toujours que SQL peut être une bonne alternative au ca où tes champs ne sont pas indexés.

Seul le résultat compte pour le moment mais pour une optimisation du code faut peut être y réfléchir.

---

Oui pour l'optimisation c'est un bon point tu as raison de le préciser, de toute façon je vais essayer de le faire via SQL, on verra bien si ça marche!!!!

Merci+++++