cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
7 mai 2006 à 18:33
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
7 mai 2006 à 20:09
bonjour
voila dans se code je fais une recherche,mais quand je met l' il me met une erreur
Private Sub txt_search_Change()
If Classement <> "Qualite_film" Then
rq = "select * from film WHERE nom_film LIKE '" & txt_search & "%' order by " & Classement
Call Rafresh(0)
Else
ListFilm.Clear
List1.Clear
rq = "select * from film where nom_film LIKE '" & txt_search & ""
Call Rafresh(1)
rq = "select * from film where nom_film LIKE '" & txt_search & ""
Call Rafresh(1)
rq = "select * from film where nom_film LIKE '" & txt_search & ""
Call Rafresh(1)
rq = "select * from film where nom_film LIKE '" & txt_search & ""
Call Rafresh(1)
If ListFilm.ListCount = 0 Then
ListFilm.AddItem "Aucun film dans la base de donnée"
End If
End If
End Sub
auriez vous une idée pour qu'il prends en compte le l'
merci
@ plus
petchy
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 7 mai 2006 à 18:57
Dans les requêtes, les apostrophes sont des caractères spéciaux : il faut les doubler pour que la requête soit correcte :
rq = "select * from film WHERE nom_film LIKE '" & replace(txt_search.text, "'", "''") & "%' order by " & Classement