SQL Remplacer un caractère?

Version imprimable

17/08/2010, 14h07
jojo86

SQL Remplacer un caractère?

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.
17/08/2010, 15h31
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 :ccool:

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

Voici mon code :

Code:

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.

17/08/2010, 16h23
Jean-Philippe André

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

Code:

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 ?
17/08/2010, 16h31
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.

Citation:

Code:

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. :aie:
17/08/2010, 16h32
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?
17/08/2010, 20h26
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 ?
18/08/2010, 08h34
jojo86

Non il ne faut pas doubler les cotes.

La question c'est : Est-ce que REPLACE fonctionne sous excel?

Car bon nombre de fonction SQL ne sont pas compatibles avec excel...
J'avais trouvé il n'y a pas longtemps un tableau récapitulatif des fonctions sql compatible sous excel, access et autre...
Mais j'ai perdu le lien.
18/08/2010, 22h12
jojo86

Bonsoir,

Et bien voila nous sommes fixés...
D'après ce lien, Replace n'est pas compatible avec VBA sous excel :
http://sqlpro.developpez.com/cours/sqlaz/fonctions/

Comment puis-je faire?
18/08/2010, 22h44
78chris

Bonjour

Bizarre car contrairement à ce qui est dit dans le tableau, REPLACE fonctionne dans Access.
18/08/2010, 22h47
jojo86

Bizard comme tu dis!
En attendant je suis dans l'impasse... Sous access tu fais fonctionner REPLACE en vba? Si oui tu peux me faire voir le code?

Sinon je crois que mon idee reste compromise pour l'instant...

Le message d'erreur est explicite
ne fallait pas au préalable formater le critère, par exemple
Code:

1 2 3 4 5 6 7 Dim Requete As String Dim stVal As String stVal = "330522" stVal = Left(stVal, 3) & "-" & Mid(stVal, 4) Requete = "SELECT * FROM [Table$] WHERE Ref like " & stVal Call ConnexionBase

19/08/2010, 06h40
jojo86

Je vois ce que tu me conseil... Mais le but c'est de supprimer tout les tirets...
Aussi bien coté utilisateur que coté requete.
Ceci dans le but de ramener une reference a chaque fois car les tiret ne sont pas placés au meme endroit pour toutes les references...