Discussion :

[roubase]

J’ai une table paradox avec les champ ( Nom , Prénom , fonction , âge , adresse )
Alors dans ma forme j’ai 5 DBEdit (DBEdit1, DBEdit2, DBEdit3, DBEdit4, DBEdit5)
Maintenant je veux faire une recherche sur ma table celons le nom et prénom !!
Mai je veux quant je écrié le nom et le prénom sur le DBEdit1 et DBEdit2 alors la fonction et l’âge et l’adresse s’affiche automatiquement sur les autre DBEDIT sans utiliser un tableau
Aider moi svp !!

[Ph. B.]

Bonjour,

Pour la recherche dans une table paradox "Matable(Nom, Prenom, Fonction , Age , adresse)" :

Code :

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

1
2
// Recherche sans tenir compte de la casse des caractères
Matable.Locate('Nom;Prenom', VarArrayOf([Edit1.Text, Edit2.Text]),[loCaseInsensitive]);

Les nom et prénom doivent être saisis dans 2 boites d'édition TEdit (les TDBEdit sont destinés à l'édition des colonnes de la table et à leur mise à jour).

Locate renvoie true si elle trouve un enregistrement correspondant,et elle le sélectionne comme enregistrement en cours. Dans ce cas, les TDBEdit associés à la table seront renseignés.
Sinon,Locate renvoie false.

--
Philippe.

[roubase]

Mai es que je doit utiliser ça dans le onclic boutton ou le onclic de édit (editchange ) ( et quelle edit 1 ou 2 celui du nom ou de prénom ) !!?

[chikh_karkar]

dans onchange de l'edit

[roubase]

non ça marche pas je veux un aide svp

Code :

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

1
2
3
4
procedure TForm2.Edit1Change(Sender: TObject);
begin
Table1.Locate('Nom;Prenom', VarArrayOf([Edit1.Text, Edit2.Text]),[loCaseInsensitive]);
end;

[SergioMaster]

s'il faut que nom et prénom soit renseigné le mieux serait de mettre la recherche dans le(s) onexit des composants TEdit
ensuite il faut exactement savoir ce que tu veux : une recherche complète
[] ou partielle [lopartialKey] , case sensitive ou non (rajout de locasesensitive) ce que la touche aurait facilement expliqué

[MIWAN]

non ça marche pas je veux un aide svp

Code :

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

1
2
3
4
procedure TForm2.Edit1Change(Sender: TObject);
begin
Table1.Locate('Nom;Prenom', VarArrayOf([Edit1.Text, Edit2.Text]),[loCaseInsensitive]);
end;

si ça marche bien
regarde le fichier joint