Aminos1722
Messages postés vendredi 6 juin 2014Date d'inscription
18 juillet 2015
Dernière intervention
-
6 juin 2014 à 19:44 - Dernière réponse : Aminos1722
Messages postés vendredi 6 juin 2014Date d'inscription
18 juillet 2015
Dernière intervention
- 12 juin 2014 à 00:13
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 !
jordane4522910
Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut
21 octobre 2018
Dernière intervention - 7 juin 2014 à 02:14
0
Merci
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.
Merci pour ta réponse... le code que j'ai utiliser pour le filtre :
begin if 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 ???
sp401293
Messages postés mardi 28 octobre 2003Date d'inscriptionContributeurStatut
3 juillet 2015
Dernière intervention -10 juin 2014 à 11:53
0
Merci
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.
Aminos1722
Messages postés vendredi 6 juin 2014Date d'inscription
18 juillet 2015
Dernière intervention -12 juin 2014 à 00:13
0
Merci
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); begin if Edit1.Text<>'' then begin DataModule2.ADOTable1.Filter := 'Nom like '+QuotedStr(Edit1.Text+'*'); DataModule2.ADOTable1.Filtered := true; end else begin DataModule2.ADOTable1.Filtered := false; end; end;
