Discussion :

[dlpxlid]

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 ?

[pepper]

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 :

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

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

[dlpxlid]

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à

[pepper]

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

[dlpxlid]

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

[Maxence HUBICHE]

et ca :

Code :

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

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

Ca ne amrche pas ?

[pepper]

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

[dlpxlid]

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

[pepper]

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

Code :

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

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

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

[dlpxlid]

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.