Discussion :

[boudincweole10]

Bonjour à tous,

Je vous expose mon problème. J'ai une Textbox txtrechercher où l'utilisateur tape le nom du client qu'il veut rechercher. Ensuite si je clique sur Valider, je voudrais qu'une datalist se mette à jour en affichant les noms correspondant à la textbox. Voici le bout de code que j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Command1_Click()
Dim NomTemp As String
NomTemp = txtrechercher.Text
strSQLtri = "SELECT Nom,Numéro_Client,Prénom FROM Client ORDER BY_
 Nom,Prénom WHERE Nom LIKE "" & CStr(NomTemp) & " * ""
Call rcTri.Open(strSQLtri, Cn, adOpenDynamic, adLockOptimistic, adCmdText)
Set DataList1.RowSource = rcTri
 
DataList1.ListField = "Nom"
DataList1.BoundColumn = "Numéro_Client"
End Sub

Lorsque que je tape des caractères dans la textbox et que je mets donc Valider, il me dit comme erreur "Type incompatible"...Je ne comprends pas pourquoi...pourtant dans ma table, nom est défini comme un VARCHAR...

[SfJ5Rpw8]

si tu ve encader ta variable .. nom de " il faut les doubler:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
strSQLtri = "SELECT Nom,Numéro_Client,Prénom FROM Client ORDER BY_
 Nom,Prénom WHERE Nom LIKE """ & CStr(NomTemp) & "*"""

mais c'est pas plutôt des ' qu'il faut ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
strSQLtri = "SELECT Nom,Numéro_Client,Prénom FROM Client ORDER BY_
 Nom,Prénom WHERE Nom LIKE '" & CStr(NomTemp) & "*'"

[jacma]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
strSQLtri = "SELECT Nom,Numéro_Client,Prénom FROM Client ORDER BY_
 Nom,Prénom WHERE Nom LIKE "" & CStr(NomTemp) & " * ""

C'est là à priori.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
LIKE '" & strVariable & "%'

PS: bbil plus raide

[boudincweole10]

Merci bcp, ça fonctionne !!