probleme sur recherche 5 [VB6]Résolu

Question

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&#233;e"
    End If
End If
End Sub
auriez vous une id&#233;e pour qu'il prends en compte le l'
merci
@ plus
petchy

cs_DARKSIDIOUS · Accepted Answer

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 _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_petchy · Answer

super,merci
bonne soir&#233;e
petchy

Probleme sur recherche 5 [VB6]

2 réponses

Discussions similaires