Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Recherche sous access

Recherche sous access

2 réponses
Avatar
progo
Je veut faire une recherche dans une base de donnée access mais j'ai toujour
la méme donnée qui s'affiche ?
Ou est mon erreur ?

Private Sub CmdRechercher_Click()
Dim strRecherche As String

strRecherche = "Titre LIKE" & "'" & TxtRechercher.Text & "'"
DataFilm.Recordset.FindFirst (strRecherche)
LblTitre.Caption = DataFilm.Recordset.Fields("Titre").Value
LblDescription.Caption = DataFilm.Recordset.Fields("Description").Value
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Marc
"progo" a écrit dans le message de
news:c583l5$s3l$
Je veut faire une recherche dans une base de donnée access mais j'ai


toujour
la méme donnée qui s'affiche ?
Ou est mon erreur ?

Private Sub CmdRechercher_Click()
Dim strRecherche As String

strRecherche = "Titre LIKE" & "'" & TxtRechercher.Text & "'"
DataFilm.Recordset.FindFirst (strRecherche)
LblTitre.Caption = DataFilm.Recordset.Fields("Titre").Value
LblDescription.Caption = DataFilm.Recordset.Fields("Description").Value
End Sub




Hello,

bien entendu, tu n'as pas oublié de mettre une * à la fin de ton texte
recherché?
Sinon, ton findfirst ne trouveras rien faciel à vérifier avec
datatFIlm.recordset.nomatch

Si tu ne veux pas que l'utilisateur soit obligé de taper l' '*', fais ceci:

strRecherche = "Titre LIKE" & "'" & TxtRechercher.Text & "*" & "'"

Jean-Marc
Avatar
Antoun
je dirais qu'il faut un espace entre LIKE et l'apostrophe...


strRecherche = "Titre LIKE '" & TxtRechercher.Text & "'"

ou, si tu veux absolument faire une concaténation superfétatoire :

> strRecherche = "Titre LIKE" & " '" & TxtRechercher.Text & "'"

progo a écrit:
Je veut faire une recherche dans une base de donnée access mais j'ai toujour
la méme donnée qui s'affiche ?
Ou est mon erreur ?

Private Sub CmdRechercher_Click()
Dim strRecherche As String

strRecherche = "Titre LIKE" & "'" & TxtRechercher.Text & "'"
DataFilm.Recordset.FindFirst (strRecherche)
LblTitre.Caption = DataFilm.Recordset.Fields("Titre").Value
LblDescription.Caption = DataFilm.Recordset.Fields("Description").Value
End Sub