Discussion :

[jojo86]

Bonjour,

J'aimerais rechercher une référence dans ma base de données, mais en filtrant certains caractères qui sont dans la base...

Exemple :

Dans la base de données j'ai la référence : "330-522-522"

L'utilisateur recherche la référence : 330522522

Je voudrais pouvoir filtrer les "-" lors de la requete.
J'ai essayé avec Replace qui fonctionne sous SQL mais sous excel ça ne fonctione pas.
J'ai aussi essayé avec Decode mais rien à faire...

Quelqu'un aurait-il une idée?

Merci beaucoup.

[Jean-Philippe André]

salut,

tu peux nous montrer ton code actuel stp ?

Il me semble qu'en utilisant Replace on arrive effectivement a faire une filtre dans une base

[jojo86]

Salut, pour le REPLACE, peux tu me montrer la synthaxe correct?

Voici mon 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
 
Public Cn As New ADODB.Connection
Public Rst As New ADODB.Recordset
 
Sub ConnexionBase()
Dim Fichier As String
    Fichier = ThisWorkbook.Path & "\Base.xls"
    Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open (openstatic)
    End With
    'Définit la requête.
    Set Rst = New ADODB.Recordset
End Sub
 
Sub DeconnexionBase()
On Error Resume Next
Rst.Close
Set Rst = Nothing
Cn.Close
Set Cn = Nothing
End Sub
 
Sub RequeteRecherche()
Dim Requete As String
Requete = "SELECT REPLACE(Références,'-',' ') FROM [Table$] WHERE Références LIKE '%330522%'"
Call ConnexionBase
Rst.Open Requete, Cn, adOpenStatic
'Traitement des information pour les placer dans une ListBox
Call DeconnexionBase
End Sub

Pour info j'ai l'erreur : Fonction 'REPLACE' non définie dans l'expression.

Merci de ton aide.

[Jean-Philippe André]

Alors concernant la requete, je partirais d'abord sur une syntaxe comme celle-ci :

Code :

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

Requete = "SELECT Références FROM [Table$] WHERE REPLACE(Références,'-',' ') LIKE '*330522*'"

Le fait que la fonction Replace ne soit pas reconnue me fait penser a un probleme de reference dans ton projet.

Peuxt-tu stp verifier qu'aucune reference n'est manquante ?

[Godzestla]

Bonjour à tous,
juste 2 idées au passage :
1) Il me semble que dans le code suivant il faut sortir les variables des quotes sinon Références n'aura pas sa valeur escomptée.

Code :

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

equete = "SELECT Références FROM [Table$] WHERE REPLACE(Références,'-',' ') LIKE '*330522*'"

2) Etes-vous certain qu'il ne serait pas plus rapide à l'exécution de formatter Références sous le même format que la DB afin de simplifier le SQL de recherche.

Mais, je me plante peut-être royalement.

[jojo86]

Concernant les références dans Excel, j'ai de coché :

Microsoft ADO Ext. 2.8 for DDL ans Security
Microsoft ActiveX data objetcts 2.7 Library
Microsoft Forms 2.0
Microsoft Office 11.0 Object Library
OLE Automation
Microsoft Excel 11.0 Object library
Visual Basic For Applications


Quel serait la référence à cocher?

[78chris]

Bonjour

Petite remarque : remplacer un tiret par un espace ne marchera pas. Il ne faut rien mettre en tes deux '

Sinon as-tu vérifié ce que donne la chaîne requete : ne faudrait-il pas doubler des cotes ?