[VB ACCESS] utilisation du like
Tidodo
Messages postés
143
Date d'inscription
Statut
Membre
Dernière intervention
-
hery -
hery -
Bonjour !
voilà un petit soucis de syntaxe. Pouvez me dire comment j'utilise la fonction like SQL dans VB.
Ca doit etre un truc du genre :
ADODC1.RecordSource=("Select * From concert Where Date_concert like ' " & TextRechercheDate.Texte & " ' ? ")
Mais cette syntaxe ne marche pas !
Please help me ! C'est assez urgent !
voilà un petit soucis de syntaxe. Pouvez me dire comment j'utilise la fonction like SQL dans VB.
Ca doit etre un truc du genre :
ADODC1.RecordSource=("Select * From concert Where Date_concert like ' " & TextRechercheDate.Texte & " ' ? ")
Mais cette syntaxe ne marche pas !
Please help me ! C'est assez urgent !
A voir également:
- Vba like
- Voir like instagram - Guide
- Coco like - Accueil - Réseaux sociaux
- Excel compter cellule couleur sans vba - Guide
- Wawacity like - Accueil - Outils
- Vba attendre 1 seconde ✓ - Forum VB / VBA
25 réponses
car si votre date est de type texte voici un bout de code qui fonctionne chez moi sans problème. en VBA
ma table est
trucEtTrac (id entier,nom Text, prenom Text, dateVie Text)
ma table est
trucEtTrac (id entier,nom Text, prenom Text, dateVie Text)
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
rst.Open "SELECT * FROM trucEtTrac WHERE dateVie like '%" & Text1.Text & "%'", con, adOpenDynamic
MsgBox rst(2)
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
La syntaxe est la même que tu sois en vb ou vba, c'est du sql avec des caractères joker (? = n'importe quel caractère unitaire, * = chaine de n caractères quelconques), ex :
SELECT TOTO FROM TATA WHERE TITI LIKE "toto*";
SELECT TOTO FROM TATA WHERE TITI LIKE "*toto*";
SELECT TOTO FROM TATA WHERE TITI LIKE "*toto";
SELECT TOTO FROM TATA WHERE TITI LIKE "?toto";
SELECT TOTO FROM TATA WHERE TITI LIKE "toto*";
SELECT TOTO FROM TATA WHERE TITI LIKE "*toto*";
SELECT TOTO FROM TATA WHERE TITI LIKE "*toto";
SELECT TOTO FROM TATA WHERE TITI LIKE "?toto";
Essaie ca, ca devrait marcher : "Select * From concert Where Date_concert like * " & TextRechercheDate.Texte & " ? ")
Après si tu expliquais ce que tu veux faire on pourrait peut etre plus t'aider. j'imagine que TextRecherchedate c'est une textbox.
Après si tu expliquais ce que tu veux faire on pourrait peut etre plus t'aider. j'imagine que TextRecherchedate c'est une textbox.
au fur et à mesure que je tape, je dois avoir des résultats
Private Sub Text1_Change()
Adodc1.RecordSource = "Select * From concert Where Date_concert like * " & Text1.Text & " ? "
Adodc1.Refresh
End Sub
sqlbindparameter not used for all parameter
Tchuss
Private Sub Text1_Change()
Adodc1.RecordSource = "Select * From concert Where Date_concert like * " & Text1.Text & " ? "
Adodc1.Refresh
End Sub
sqlbindparameter not used for all parameter
Tchuss
Il faut mettre un like *" & Text1.Text & "* ", mais ne pas oublier de rafraichir le code à chaque saisie de caractère...
"You have an error in your SQL syntaxe near '* m *' at line 1"
Private Sub Text1_Change()
Adodc1.RecordSource = "Select * From concert Where Date_concert like * " & Text1.Text & " * "
Adodc1.Refresh
End Sub
Private Sub Text1_Change()
Adodc1.RecordSource = "Select * From concert Where Date_concert like * " & Text1.Text & " * "
Adodc1.Refresh
End Sub
Rajoute un ' avant la premiere étoile et aprrès la deuxieme ce qui donne :
like'* " & Text1.Text & " *' "
like'* " & Text1.Text & " *' "
Tu avais mis des simple-quote pour séparer la chaine de caractères, ils ont disparu...
A+ Blux
... like '*" & Text1.Text & "*';"--
A+ Blux
"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
L'erreure a été corrigée lorsque tu as rajouté les apostrophes ? vu qu'il n'y a plus d'erreur on peut pas trop d'aider, soit il n'y avait rien dans ta table qui correspondait à ta recherche soit il y a un probleme autre part.
Voilà les screen : http://www.univers-com.fr/CCM/Screen1.JPG
http://www.univers-com.fr/CCM/Screen2.JPG
Voilà le code :
Adodc1.RecordSource = "Select * From concert Where Ville_concert like '*" & Text1.Text & "*';"
Adodc1.Refresh
http://www.univers-com.fr/CCM/Screen2.JPG
Voilà le code :
Adodc1.RecordSource = "Select * From concert Where Ville_concert like '*" & Text1.Text & "*';"
Adodc1.Refresh