Discussion :

[black queen]

Le weekend a porté ses fruits et j'ai trouvé . L'histoire était toute bête : lorsque le lance Access, par défaut il y a une option de sécurité qui désactive le contenu de la base de données... Étonnamment, si cela m'empêche d'afficher un résultat via une requête, je peux quand même afficher un état et insérer de nouvelles données dans ma base...

Bref, en désactivant cette option, je peux afficher le résultat de ma requête qui depuis le début était bonne... Et merci à ceux qui m'ont aidé.

Maintenant, une question un peu moins triviale.

Avec mon code actuel (voir ci-dessous) je peux faire une recherche avec une chaîne de type toto, tata. Cela va me ressortir toutes les entrées contenant une chaîne du type blabla, toto, tata, blabla. Or j'aimerai que cela me ressorte également une chaîne de type toto, blabla, tata, blabla.

Une idée serait de créer plusieurs champs pour saisir un mot clé et de combiner les champs dans ma requête. Ca je devrais y arriver. Mais comment faire pour saisir tous mes mots clés dans un même et unique champ (comme dans un moteur de rechercher web) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmd_recherche_Click()
 
Dim strSql As String
 
strSql = "SELECT *FROM biblio WHERE mots_cles LIKE ""*" & Me.txt_critere & "*"";"
 
Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
Me.lst_resultat.Requery             ' recalcule la liste
 
End Sub

[Mr.Mof]

Bonjour,

Tu peux utiliser un caractère qui te permettrait de délimiter tes mots clés. PAr exemple "," et utiliser la fonction split pour trouver les mots clés saisis:

http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx

En faisant un petit traitement après la saisie, tu doit pouvoir t'en sortir?

[black queen]

Ah ça à l'air d'être ce que je cherchais. Ca ressemble à la fonction explode en php (que je connais). Merci.

Je reviens d'ici peu pour dire si je m'en suis sorti ou pour ressortir mon panneau help

[black queen]

Bon eh bien, ça sera le panneau help je crois bien...

Je pense bien utiliser Split mais je dois avoir un problème dans la construction de la variable condition (enfin je pense). Que je tape un ou plusieurs mots dans le champ de recherche, aucun résultat ne sort

J'ai testé avec les points d'arrêt, le code semble s'exécuter de la façon voulue. Je dois rater quelque chose... mais quoi ?

Voici mon nouveau code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub cmd_recherche_Click()
 
Dim strSql As String, critere() As String, condition As String, txt As String
 
txt = Me.txt_critere
 
critere() = Split(txt, ", ") 'decoupe txt_critere
 
condition = "" 'initialisation de la variable
 
For Each i In critere
'boucle pour creer condition WHERE de la requete
    If condition <> "" Then ' si condition non vide alors on ajoute AND et un nouveau critere à condition
        condition = condition & " AND " & "*" & i & "*"
        Else ' si condition vide alors on le rempli avec un critere
            condition = "*" & i & "*"
    End If
Next i
 
strSql = "SELECT * FROM biblio WHERE mots_cles LIKE " & condition & ";"
 
Me.lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat
Me.lst_resultat.Requery            ' recalcule la liste
 
End Sub

[Mr.Mof]

Peut être en utilisant des côtes simples ' car c'est un champ texte et surtout, si tu cherches un ensemble de mots clés en utilisant le AND, tous les mots devront être trouvés pour te retourner un résultat.

[black queen]

Où ça des cotes simples ? J'ai un peu l'impression de tourner en rond, et du coup je ne sais pas trop où je dois les placer (dans la requête, lors de la concaténation, remplacer tous les " par des ' ou seulement certains, etc.).

Pour le AND, c'est voulu et je fait bien mon essai avec des valeurs qui doivent me retourner un résultat.

[Mr.Mof]

Bon finalement laisse tomber les côtes simple c'est moi qui doit délirer je pense . Par contre un truc que je viens de tester et qui devrait te convenir, à chaque ajout de condition je te conseille d'écrire ceci:

condition = condition & " AND mots_cles LIKE " & "*" & i & "*"

comme ca tu dervrait te retrouver avec une requête qui se termine par "WHERE mots_cles like mot1 AND mots_cles like mot2 ...

[black queen]

Mais bon sang, c'est biensûr !

J'étais tellement persuadé que cela venait de ma découverte de vba que j'en ai oublié les basiques SQL. Mais ce n'est pas pour autant que cela fonctionne

En fait, en toute logique, ma requête devrait être de la forme SELECT * FROM table WHERE mots_cles LIKE "mot_1" AND mots_cles LIKE "mot_2"

Et j'ai du mal à caser les guillemets entre les mots. Pour l'heure j'ai ; SELECT * FROM table WHERE mots_cles LIKE "mot_1 AND mots_cles LIKE mot_2".

Une idée ?

[Mr.Mof]

A chaque ajout d'une condition : " '*" & i & "*' "
Normalement ça devrait fonctionner. Par contre je vois mal pourquoi tu te retrouve avec "mot_1 AND mots_cles LIKE mot_2". Je ne vois pas à quel niveau tu ajoute les guillemets.

[black queen]

Comme dirait un héros que j'ai bien connu : Yata !

C'est bon ça marche Merci du coup de main

J'aurai surement d'autres questions pour améliorer mon questionnaire mais ce que je voulais faire dans un premier temps est fait !

Pour info, je mets mon code ça pourra en aider d'autres.

Encore merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub cmd_recherche_Click()
 
Dim strSql As String, critere() As String, condition As String, txt As String
 
txt = Me.txt_critere
 
critere() = Split(txt, ", ") 'decoupe txt_critere
 
 
 
For Each i In critere
'boucle pour creer condition WHERE de la requete
    If condition <> "" Then ' si condition non vide alors on ajoute AND et un nouveau critere à condition
        condition = condition & " AND mots_cles LIKE " & " '*" & i & "*' "
        Else ' si condition vide alors on le rempli avec un critere
            condition = "'*" & i & "*'"
    End If
Next i
 
'condition = condition
' strSql = condition & ";"
strSql = "SELECT * FROM biblio WHERE mots_cles LIKE " & condition & ";"
 
Me.lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat
Me.lst_resultat.Requery            ' recalcule la liste
 
End Sub