Aminos17
Messages postés22Date d'inscriptionvendredi 6 juin 2014StatutMembreDernière intervention18 juillet 2015
-
Modifié par jordane45 le 7/06/2014 à 02:15
Aminos17 -
15 janv. 2022 à 09:57
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
Messages postés37738Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention 3 octobre 2023342 7 juin 2014 à 02:14
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 ???
sp40
Messages postés1276Date d'inscriptionmardi 28 octobre 2003StatutContributeurDernière intervention 3 juillet 201515 10 juin 2014 à 11:53
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.
Aminos17
Messages postés22Date d'inscriptionvendredi 6 juin 2014StatutMembreDernière intervention18 juillet 20151 12 juin 2014 à 00:08
merci de ta réponse ( j'ai pas pu répondre a cause de la connexion internet) je vais essayer ! tout de suite !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Aminos17
Messages postés22Date d'inscriptionvendredi 6 juin 2014StatutMembreDernière intervention18 juillet 20151 12 juin 2014 à 00:13
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;