Filtrage (recherche) DelphiRésolu

Question

Bonjour, tout le monde j'ai besoin d'aide je suis débutant sur Delphi et je veux faire une Recherche ( filtrage ) dans mon petit programme.
Sachant que mon tableau ne contient que des NOMBRES.

 voila une photo : je  souhaite dans la recherche écrire la hauteur et avoir le volume des deux BAC ( A301 ; A302 ) :

si ça peut aider le tableau a étais récupérer d'une base de donnée Access 
MERCI D'AVANCE !

jordane45 · Answer

Bonjour,
Merci de garder à l'esprit que CodeS-SourceS est une communauté d'entraide. Toutes les réponses sur le forum sont assurées par des bénévoles qui donnent de leur temps libre pour aider à résoudre les problèmes.

A noter également que nous ne faisons pas dans le "tout cuit". Soit tu trouves ton bonheur dans la partie source du site, soit à l'aide de ton moteur de recherche favori.
 Ici, nous aidons volontiers sur des sujets techniques précis.

Je t'invite à consulter les liens suivants :

http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture

http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code 

Merci donc de reformuler ta demande en respectant ces quelques points.  
 

PS: j'ai édité le titre de ta question : 
AIDE ! Code source filtrage (recherche) Delphi
AIDE n'apporte rien au titre ...Code source non plus.

PS2 : N'oublie pas de nous montrer ton code..

Aminos17 · Answer

Merci pour ta réponse... le code que j'ai utiliser pour le filtre :

 beginif Edit1.Text<> '' then begin       DataModule2.ADOTable1.Filter := 'HAUTEUR like '+QuotedStr(Edit1.Text+'*');       DataModule2.ADOTable1.Filtered := true; end else begin      DataModule2.ADOTable1.Filtered := false; end;

mais j'ai un message d'erreur : IMPOSSIBLE D'OUVRIR LE FILTRE y'a t'il une erreur ??? 

Merci D'avance ...

Aminos17 · Answer

une aide s'il vous plait :( ???

sp40 · Answer

Bonjour,

Je pense que le "Like" n'est pas supporté par la propriété Filter de ton ADOTable. Il faudrait peut-être utiliser plutôt un TADOQuery et passer ton "Like" avec ça.

solilog · Answer

Bonsoir,

Une solution qui marche toujours, est de mettre Filtered=True, puis de faire le test dans l'evenement OnFilterRecord.

solilog

Aminos17 · Answer

C'est bon probleme resolu ! j'ai pas vraiment fais de changement jai changer le nom du champ ( Hauteur --> Nom ) le reste est rester le meme et sa marcher...pour etre plus precis voila le code que jai utiliser :

procedure TForm1.Edit1Change(Sender: TObject);beginif Edit1.Text<>'' thenbegin   DataModule2.ADOTable1.Filter := 'Nom like '+QuotedStr(Edit1.Text+'*');   DataModule2.ADOTable1.Filtered := true;end elsebegin   DataModule2.ADOTable1.Filtered := false;end;end;end.

Merci pour vos reponse !!!

Filtrage (recherche) Delphi

6 réponses

Votre réponse

sur les mêmes thèmes