[VB6] [ADO] Like sur base Access

Bonjour,

J'ai une requête à faire sur une table avec un like.
Pour trouver les champs commençant par A, je fais un filter sur le recordset :
RS.Filter "Champ like 'A*'"

Par contre, si je recherche les champs se terminant par A
RS.Filter = "Champ like '*A'"
ça ne fonctionne pas.

J'ai également le même problème avec le filter suivant :
RS.Filter = "Champ like '*A*'"

Quelqu'un a-t-il la solution ? :idea:

J'ai eu le même problème que toi : le LIKE ne fonctionne pas tout à fait comme sous VBA :

- Essaie de tout mettre en majuscules
- Remplace * par %

Code:

---

WHERE UCase(Champ) LIKE '%" & UCase(A) & "%' "

---

J'ai trouvé la solution :
le like 'A*' et le like '*A*' fonctionnent tous les deux en VB en faisant un filter.
Il reste donc le like '*A' à résoudre :
Il suffit pour cela de remplacer le like '*A' par like '*A*' et de faire ensuite un filtre avec quelques lignes de code pour afficher uniquement les lignes dont le champ se termine par A.

Voici ce que j'ai fait dans mon programme :
Rs est le Recordset
libellé est le nom d'un champ
txtlibelle est la zone de texte où j'ai entré mes critères de sélection.

If InStr(1, TxtLibelle.Text, "*") = 1 Then 'si la zone recherchée commence par une étoile (recherche du type *A)
If InStr(2, TxtLibelle.Text, "*") > 1 Then 'si la zone recherchée se termine par une étoile (recherche du type *A*)
Tb.Filter = "libelle like '" & TxtLibelle.Text & "'"
If Not Tb.EOF Then
Tb.MoveFirst
Do While Not Tb.EOF
'Affichage des données
Tb.MoveNext
Loop
Exit Sub
Else
Screen.MousePointer = 0
MsgBox "Aucun résultat !", vbApplicationModal + vbInformation
End If
Else 'recherche du type *A
Tb.Filter = "libelle like '" & TxtLibelle.Text & "*'"
If Not Tb.EOF Then
Tb.MoveFirst
Do While Not Tb.EOF
If Mid$(Tb!libelle, Len(Tb!libelle) - (Len(TxtLibelle.Text) - 1) + 1, Len(TxtLibelle.Text) + 1) = Mid$(TxtLibelle.Text, 2, Len(TxtLibelle.Text) - 1) Then
'affichage des données
End If
Tb.MoveNext
Loop
Exit Sub
Else
Screen.MousePointer = 0
MsgBox "Aucun résultat !", vbApplicationModal + vbInformation
End If
End If
Else 'recherche du type A ou du type A*
Tb.Filter = "libelle like '" & TxtLibelle.Text & "'"
If Not Tb.EOF Then
Tb.MoveFirst
Do While Not Tb.EOF
'affichage des données
Tb.MoveNext
Loop
Exit Sub
Else
Screen.MousePointer = 0
MsgBox "Aucun résultat !", vbApplicationModal + vbInformation
Exit Sub
End If
End If

Et voilà :D

Ton code est un peu compliqué avec un recordset ... personnellement, j'aurais fait une requête select. (cf tutoriel de Cafeine dans la section Access ...).
M'enfin, si ça marche ...

C'est peut être normal que tu trouve cela difficile car c'est du VB et pas du VBA !
:(
D'autre part, le RecordSet est une requête Select défini de la manière suivante :

Dim RS as adodb.recordset
dim rSQL AS String
set RS=new ADODB.Recordset
rSQL="SELECT * from Table "
RS.Open rSQL, Base, adOpenStatic, adLockReadOnly

:wink:

et ca :

Code:

---

rSQL="SELECT * from Table WHERE Libelle Like '*A'"

---

Ca ne amrche pas ?

Voilà, c'est ce que je voulais dire, Zem.

rSQL="SELECT * from Table WHERE Libelle Like '*A'"

fonctionne très bien en DAO mais pas en ADO !!!

et c'est là tout le problème :cry:

Pourtant la requête que je t'ai donné plus haut :

Code:

---

rSQL = "SELECT * FROM Table WHERE UCase(Champ) LIKE '%A'; "

---

fonctionne nickel chez moi, en ADO ... on a peut être pas le même VB6 ?

Ok, ça marche. Je n'avais pas mis le % et j'avais laissé l'étoile.

Je te remercie beaucoup. C'est génial. Ça faisait longtemps que je faisais des bidouilles pour arriver à mes fins. ENCORE MERCI. :D