recherche phonétique

**Emcy** · 02/02/2006, 08h57

mettre ta fonction Soundex dans la base Access

=> comment fais-tu cela ?
=> je pensais autrement doubler le nombre de mes colonnes (1 colonne pour la valeur réelle et une colonne avec la valeur soundex) : le probleme est qu'avec cette methode je vais perdre en rapidité d'execution (base deux fois plus grosse)....
=> De +, j'ai l'impression qu'on ne peut appliquer cette fonction qu'à un seul mot (on ne peut pas rechercher un mot phonétiquement dans une phrase à moins de balayer un par un chaque mot : et encore si la personne écris un mot en deux partis au lieu d'une seul, ça ne marchera pas => ex: plutot <> plus tot)

Pourtant Google arrive bien à le faire, non ? comment fait-il ?

**random** · 02/02/2006, 10h15

essaye de préfixer ta fonction
et de faire sélect nomdemodule.soundex("bonjour") pour forcer l'interpréteur à rechercher la référence

**marot_r** · 02/02/2006, 16h05

Envoyé par Emcy

mettre ta fonction Soundex dans la base Access

=> comment fais-tu cela ?

Tu vas dans ta base Access et tu crées un nouveau module.
Tu copies le code de ta fonction dans ce nouveau module.
Tu t'assure que la déclaration est 'public'
Save
ferme ta base.
Terminé :-)

=> je pensais autrement doubler le nombre de mes colonnes (1 colonne pour la valeur réelle et une colonne avec la valeur soundex) : le probleme est qu'avec cette methode je vais perdre en rapidité d'execution (base deux fois plus grosse)....

Pas forcément sauf si tu as une machine avec une petite mémoire.

=> De +, j'ai l'impression qu'on ne peut appliquer cette fonction qu'à un seul mot (on ne peut pas rechercher un mot phonétiquement dans une phrase à moins de balayer un par un chaque mot : et encore si la personne écris un mot en deux partis au lieu d'une seul, ça ne marchera pas => ex: plutot <> plus tot)

Oui c'est possible. A tester. Tu peux traiter chacun des mots (un mot est une suite de caratère compris entre deux séparateurs (blanc, vigule, pount, point virgule, point d'exclamation, etc.) puis concatener le resultat et faire une recherche sur le resultat concaténé.

Pourtant Google arrive bien à le faire, non ? comment fait-il ?

Aucune idée, mais ils ont surement des lingusites et autres expert du language. Soundex c'est assez basic comme méthode.

A+

**random** · 02/02/2006, 16h17

il faut ajouter un dictionnaire
mots soundex(desmots) domaines pour y arriver

**Emcy** · 03/02/2006, 08h48

Tu vas dans ta base Access et tu crées un nouveau module.
Tu copies le code de ta fonction dans ce nouveau module.
Tu t'assure que la déclaration est 'public'
Save
ferme ta base.
Terminé :-)

=> c'est déja fait sous excel (regardes mon classeur que j'ai mis en ligne) et ça ne marche pas : peut-être que ça marche uniquement sous Access : tu as essayé chez toi ?

il faut ajouter un dictionnaire
mots soundex(desmots) domaines pour y arriver

=> comment faites vous cela ?

**marot_r** · 04/02/2006, 00h14

Envoyé par Emcy

Tu vas dans ta base Access et tu crées un nouveau module.
Tu copies le code de ta fonction dans ce nouveau module.
Tu t'assure que la déclaration est 'public'
Save
ferme ta base.
Terminé :-)

=> c'est déja fait sous excel (regardes mon classeur que j'ai mis en ligne) et ça ne marche pas : peut-être que ça marche uniquement sous Access : tu as essayé chez toi ?

Non je n'ai pas essayé chez moi mais c'est une histoire de visibilité. Je pense que si tu la définie dans Access aussi, le moteur de la db va voir la fonction et sera capable de l'utiliser dans une requète.

A+

**Maxence HUBICHE** · 04/02/2006, 01h19

Tu ne pourras pas, en SQL.

La fonction doit être dans Access.
Mais, comme tu passes une chaine au moteur, il ne lance pas le VBA de l'appli cible. donc, la fonction Soundex de ton appli Access ne passera pas.

Tu fais de l'ADO ... fais le jusqu'au bout

**Maxence HUBICHE** · 04/02/2006, 02h31

Allez ... je suis pas chien ...
je t'ai fait toute une procédure documentée.
A toi de l'adapter.
Ca devrait pas être trop dur.
Elle te permet de récupérer un recordset au lieu d'un tableau.
En plus, tu peux l'enregistrer, si tu veux.
Bref ... que du bonheur.

Normalement, une fois crée, si tu l'utilises dans une petite procédure bidon du genre :

Code :

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

1
2
3
4
5
Sub testeur()
    Dim r As ADODB.Recordset
    Set r = ReturnColumn("Nom", "dhavauliau")
    MsgBox r(0)
End Sub

tu reçois une jolie msgbox qui t'affiche "Davolio"
Voici le 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Function ReturnColumn(ByVal MOT As String, ByVal TESTER As String) As ADODB.Recordset
'---------------------------------------------------------------------------------------
' Procedure : ReturnColumn
' Créée le  : samedi 04 févr 2006 02:19
' Auteur    : Maxence Hubiche
' Objet     : Procédure renvoyant un recordset ADO déconnecté contenant les informations
'               d'une colonne donnée correspondant au SOUNDEX d'une valeur
'---------------------------------------------------------------------------------------
'
 
    Dim rsOrigin    As ADODB.Recordset
    Dim rsResult    As ADODB.Recordset
 
    Const Nom_Fichier As String = "c:\ThisRecordset.xml"
    Const Chaine_Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Office\Office2K\Office\Samples\Comptoir.mdb"
 
    On Error GoTo GestErr
    'si le fichier existe déjà, le supprimer
    If FileLen(Nom_Fichier) <> 0 Then Kill Nom_Fichier
 
    'Créer 2 recordsets
    Set rsOrigin = New ADODB.Recordset
    Set rsResult = New ADODB.Recordset
 
    'Ouvrir le recordset d'origine pour récupérer les données attendues
    rsOrigin.Open "Select " & MOT & " FROM Employés", Chaine_Conn, adOpenStatic, adLockReadOnly
 
    'Créer et ouvrir le second recordset
    rsResult.Fields.Append MOT, adVarChar, 100
    rsResult.Open
 
    'Parcourir tout le premier recordset
    Do Until rsOrigin.EOF
        'Si la donnée de l'enregistrement en cours correspond au SOUNDEX de la valeur cherchée
        If Soundex(rsOrigin(0)) = Soundex(TESTER) Then
            'Ajouter la valeur au nouveau recordset
            With rsResult
                .AddNew MOT, rsOrigin(0)
                .Update
            End With
        'Sinon
        Else
            'rien à faire
        End If
        'Passer à l'enregistrement suivant
        rsOrigin.MoveNext
    Loop
 
    'Au besoin, enregistrer le fichier
    rsResult.Save Nom_Fichier, adPersistXML
 
    'Renvoyer le recordset
    Set ReturnColumn = rsResult
 
Finprog:
    On Error Resume Next
    'Fermer proprement le recordset d'origine, dans tous les cas
    rsOrigin.Close
    Set rsOrigin = Nothing
    Exit Function
GestErr:
    Select Case Err.Number
        Case 53         'Fichier introuvable
            Resume Next
        Case Else
            MsgBox "L'Erreur N° " & Err.Number & " (" & Err.Description & ") s'est produite de manière inattendue dans la procédure ReturnColumn du module Module Module1", vbCritical, "ERREUR INATTENDUE"
    End Select
    Resume Finprog
End Function

Amuses-toi bien avec

**Emcy** · 06/02/2006, 09h01

merci, c'est bien ce que je craignais : on est obligé de balayer tous les champs.
Est-ce que je n'aurais pas interet à créer une colonne soundex dans ma BDD pour éviter d'avoir à recalculer les soundex de chaque mots à chaque fois ?

=> par contre comment fait-on pour repérer un mot dans une chaine de caratères : je ne vois pas de solution miracle...

**Tofalu** · 06/02/2006, 11h01

Avec LIKE

**Emcy** · 06/02/2006, 13h00

Avec LIKE

=> ça ne peut pas marcher

exemple :
phrase :
tu as vu mon bon omme de neige ?

mot à rechercher (il peut y en vaoir plusieurs :
bonhome

=> comment faire ?

**Tofalu** · 06/02/2006, 14h40

Le soundex fonctionne par mot. Donc bon omme et bonhomme sont incompatible directement avec le soundex. Y a guère de solution à ton problème.

**Emcy** · 06/02/2006, 14h58

c'est dommage .. snif,snif

**Maxence HUBICHE** · 06/02/2006, 16h17

Envoyé par Tofalu

Le soundex fonctionne par mot. Donc bon omme et bonhomme sont incompatible directement avec le soundex. Y a guère de solution à ton problème.

Pourtant

Code :

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

debug.print  soundex("bonhomme")=soundex("bon ome")

renvoie VRAI

**Tofalu** · 06/02/2006, 16h24

Oui là c'est sur puisque au sein de la chaine tu supprimes les espaces.

Ce que je veux dire c'est que dans une phrase, ça n'a pas vraiment de sens de supprimer tous les espaces car tu risques de recomposer des mots malgré toi

Parce ce qui si dans la phrase tu as :

un bon omme de neige, comment tu va rechercher le mot homme ?

**Maxence HUBICHE** · 06/02/2006, 16h31

Je pensais qu'en faisant un truc comme cela ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function SplitSound(sPhrase As String)
    Dim s() As String
    Dim sr As String
    Dim n As Long
 
    s = Split(sPhrase, " ")
    For n = LBound(s) To UBound(s)
        sr = sr & Soundex(s(n))
    Next
    SplitSound = sr
End Function

Alors, un

Code :

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

DEBUG.PRINT SplitSound("un bon omme de neige") like "*" & soundex("homme") & "*"

Renverrai VRAI

**Emcy** · 07/02/2006, 08h37

là non plus ça ne marche pas car :
soundex("bon") & soundex("ome") est différent de soundex("bon ome")...

**Tofalu** · 07/02/2006, 10h58

Envoyé par Maxence HUBICHE

Je pensais qu'en faisant un truc comme cela ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function SplitSound(sPhrase As String)
    Dim s() As String
    Dim sr As String
    Dim n As Long
 
    s = Split(sPhrase, " ")
    For n = LBound(s) To UBound(s)
        sr = sr & Soundex(s(n))
    Next
    SplitSound = sr
End Function

Alors, un

Code :

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

DEBUG.PRINT SplitSound("un bon omme de neige") like "*" & soundex("homme") & "*"

Renverrai VRAI

En effet, ça marchera ici, mais plus dans le cas :

Code :

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

DEBUG.PRINT SplitSound("un bon omme de neige") like "*" & soundex("bonhomme") & "*"

A un moment je pense qu'il faut faire des choix, on ne peut pas tout rechercher non plus. Ou bien alors, il faut multiplier les requêtes de recherche (une pour chaque cas) et en faire l'union

**Emcy** · 07/02/2006, 11h36

ouais.

j'ai une autre petite question :

j'ai la requète sivante qui ne marche pas :
SELECT GPAO FROM COMPOSANTS WHERE OBSOLETE='1'

=> OBSOLETE est de type boolean

**Tofalu** · 07/02/2006, 11h38

On s'éloigne du sujet orginal là.

Si le champ est booléen alors tu auras :

Code :

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

SELECT GPAO FROM COMPOSANTS WHERE OBSOLETE

recherche phonétique

Access

Discussions similaires

Partager

Partager