Recherche rapprochement sur une saisie

**fixfix** · 20/02/2007, 16h12

Je voudrai savoir si il etait possible lors d'une saisie inexistante que je face une recherche dans ma base de données et que dans un list box s'affiche tout les enregistrement proche de l'enregistrement saisie inexistant.

Si quelqu'un sait comment faire et qui pourrai me donner une piste pour resoudre mon probleme.

Merci

**BM42** · 20/02/2007, 16h25

Salut

Dans ta requette utilise la clause LIKE

A+

**LeXo** · 20/02/2007, 23h16

proche du résultat ??
c'est a adire proche comment ??

**fixfix** · 21/02/2007, 10h28

en fait c'est sur des nom de rue et imagios que la personne se trompe d'une lettre

**Najdar** · 21/02/2007, 10h38

Bonjour fixfix,

Voici une fonction dont je me sert pour "tester" la ressemblance de deux chaines.

Elle te renvoi un score correspondant à un speudo pourcentage de ressemblance.
Tu parcours ta base et renvoi le (ou les) résultat(s) ayant le plus grand score.

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
'-------------------------------------------------------------------------------------------------------------------------------
' Ressemblance de chaines
 
Public Function Ressemblance(ByVal Chaine1 As String, ByVal Chaine2 As String) As Single
'Cette fonction renvoi un pourcentage de ressemblance entre deux chaines.
'
'Tests effectués :
'  Tests à 3 et 2 lettres
'    On compare le Chaine1 avec le Chaine2 puis inversement en prenant que des groupes de lettres
'  Tests à 1 lettres
'    On compare les mots lettre par lettre pour les deux possibilites de comparaison
'    ainsi, si on trouve "tard" dans "tardivement", l'inverse n'est pas vrai
'
'Ex : si "picole" et "police" donne un tres bon resultat sur les tests à 1 lettre
'       le resultat est plus mauvais pour les tests à 2 et 3 lettres
'
'Attention :
'La somme des coef donne 100% (ou 1) : 0.10 + 0.10 + 0.15 + 0.15 + 0.25 + 0.25 = 1
'-------------------------------------------------------------------------------------
  Chaine1 = LCase(Trim(Chaine1))
  Chaine2 = LCase(Trim(Chaine2))
 
  'Tests avec 3 lettres 20%
  Ressemblance = Ressemblance + (CalcTaux(Chaine1, Chaine2, 3) * 0.1)
  Ressemblance = Ressemblance + (CalcTaux(Chaine2, Chaine1, 3) * 0.1)
 
  'Tests avec 2 lettres 30%
  Ressemblance = Ressemblance + (CalcTaux(Chaine1, Chaine2, 2) * 0.15)
  Ressemblance = Ressemblance + (CalcTaux(Chaine2, Chaine1, 2) * 0.15)
 
  'Tests avec 1 lettre  50%
  Ressemblance = Ressemblance + (CalcTaux(Chaine1, Chaine2, 1) * 0.25)
  Ressemblance = Ressemblance + (CalcTaux(Chaine2, Chaine1, 1) * 0.25)
 
  Ressemblance = Round(Ressemblance, 2)
End Function
 
Private Function CalcTaux(ByVal Chaine1 As String, ByVal Chaine2 As String, ByVal Precision As Integer) As Single
' Chaine1 et Chaine2 : les chaines a comparer
' Precision : nombre de caracteres pour les comparaisons
 
  Dim Cpt     As Integer
  Dim NbOk    As Integer
  Dim NbTests As Integer
  Dim Test    As String
 
  NbOk = 0
  NbTests = 0
  For Cpt = 1 To Len(Chaine2)
    'Test si le morceau de Chaine2 est dans Chaine1
    Test = Mid(Chaine2, Cpt, Precision)
    If Len(Test) = Precision Then
      NbTests = NbTests + 1
      If InStr(Chaine1, Test) <> 0 Then NbOk = NbOk + 1
    End If
  Next
 
  If NbTests = 0 Then
    CalcTaux = 0
  Else
    CalcTaux = (NbOk / NbTests) * 100
  End If
End Function

**fixfix** · 21/02/2007, 10h59

Voila mon code pour l'instant il me permet de savoir si la rue saisie existe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'CHAMP RUE
'--------------------------------------------------------------------------------------------
Result2 = Me.TxtRue
 
'Execution du RecordSet
Set rsRue = New ADODB.Recordset
SQL2 = "Select PREF_NOM +' '+ NOM from GCES_ART_VOIE2 where PREF_NOM +' '+ NOM = '" & Result2 & "';"
rsRue.Open SQL2, cnx, adOpenKeyset, adLockBatchOptimistic
 
'Message d'averstissement si enregistrement inconnu
If rsRue.RecordCount = 0 Then
    Erreur = MsgBox("Le nom de rue est inconnue ou essayer de saisir le nom avant le prenom", vbCritical, "Nom de rue")
End If

Mais apres je ne voit pas omment adapter ton code a cette fonction

**Najdar** · 21/02/2007, 11h10

Le problème de cette fonction, c'est que tu dois parcourir tous tes enregistrements et faire calculer la ressemblance dans VB.
SQL ne te sert qu’à récupérer tous les enregistrements.

Si tu veux que se soit la base qui fasse la recherche de ressemblance, il faut coder la fonction dans une procédure stockée de ta base.
Je sais que dans SQL Server il y a une fonction "similaire" qui travail sur la phonétique des mots, c'est SoundEx. Je ne l'ai jamais utilisé car elle est basée sur de la phonétique Anglaise.

**fixfix** · 21/02/2007, 11h14

d'accord merci

**fixfix** · 21/02/2007, 12h50

Mais m'a base est une base access alors le soundex ne marchera pas ?

**Najdar** · 21/02/2007, 13h39

Envoyé par fixfix

Mais m'a base est une base access alors le soundex ne marchera pas ?

Je ne sais pas, je n'utilise plus Access (depuis la version 97...) .

**Le Pharaon** · 21/02/2007, 15h53

Envoyé par fixfix

Mais apres je ne voit pas omment adapter ton code a cette fonction

Tu mets le code que tu as créé dans l'évenement change de ton textbox, et tu mets la requête suivante (j'ai juste mis le LIKE )

Code :

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

1
2
SQL2 = "Select PREF_NOM +' '+ NOM from GCES_ART_VOIE2 where 
PREF_NOM +' '+ NOM Like '" & Result2 & "%';"

**fixfix** · 22/02/2007, 08h30

je comprend pas tout ou je doit mettre ce code

Invité · 22/02/2007, 08h41

Bonjour

Va chercher ici cela pourrait t'aider

http://access.developpez.com/sources...quete#Soundex1

Starec

**fixfix** · 22/02/2007, 09h09

Mais ou mettre ce code je ne vois pas ? merci

Invité · 22/02/2007, 09h14

Re

Tu copies tout le code dans un module, et ensuite tu peux utiliser la fonction
Soundex() n'importe où.

Si tu as bien compris cette fonction fait une recherche phonétique.

Regarde l'exemple

Ainsi, Soundex("Martin") et Soundex("Martan") renvoient la même valeur.

Starec

**fixfix** · 22/02/2007, 09h17

ok je l'ai copie mais ce que je voudrai savoir c'est si je peux faire la comparaison d'un enregistremnt de ma base a un enregistrement saisie sur mon interface vb.

Merci

Invité · 22/02/2007, 09h31

Oui

Il faut que la valeur de ton interface VB (donc saisie manuellement) tu l'as met dans ta fonction, et que tu parcours les enregitrements de ta table pour faire des tests.

Attention, cette fonction est phonétique, si l'intilisateur rentre Rue Trucmuche au lieu de Impasse Trucmuche, cela ne donnera rien, c'est vraiment valable pour les fautes d'orthographes
Starec

**fixfix** · 22/02/2007, 09h33

Mais tout le code je le met dans ma base de données access ou je le met dans mon vb ?

Invité · 22/02/2007, 09h37

Re

Dans ton vb, ce sera plus rapide et tu parcours tes enregistrements par ADO.

Ce code était sur les sources Access, a priori il ne fait pas appel à des instructions propres à Access, il devrait fonctionner.

As-tu bien lu le message en gras de mon post précédent ?

Starec

**fixfix** · 22/02/2007, 09h51

Code :

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

SQL4 = SQL4 & "Soundex(PREF_NOM +' '+ NOM)=" & Chr(34) & Soundex(Nz(TxtRue, "")) & Chr(34)

je voudrai savoir a quoi correspond le Nz
Parce qu'il me met erreur de compilation Procedure sub ou fonction non defini

merci

Recherche rapprochement sur une saisie

VB 6 et antérieur

Discussions similaires

Partager

Partager