[VB ACCESS] utilisation du like

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)

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

Snif :'( Personne pour m'éclairer ?

Salut,

c'est quoi qui ne marche pas :

erreur de syntaxe, pas de résultat, résultat incorrect ?

erreur de syntaxe

A quel moment : compilation, exécution ?

En VBA ou VB ?

Je veux juste la syntaxe SQL sous VB pour l'utilisation du like.

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";

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.

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

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

Rajoute un ' avant la premiere étoile et aprrès la deuxieme ce qui donne :
like'* " & Text1.Text & " *' "

Personne ne t'a dit de mettre un espace entre * et ce que tu cherches :-)

Regarde mes exemples...

Plus d'erreur, mais aucun resultat :(

Ben corrige moi blux puisque tu es si fort !

Tu avais mis des simple-quote pour séparer la chaine de caractères, ils ont disparu...

... 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.

En 14 il dit qu'il n'a plus d'erreur donc je vois pas ou est le probleme

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

Ok. donc en fait il n'y a plus d'erreur mais ca ne fonctionne pas..
Pourquoi mets tu ville_concert et pas ville dans ta requete SQL ?

parceque dans la table c ville_concert, en affichage j'ai mis que ville pour que ce soit mieux ...