[VBA-EXCEL] Caractère spécial " dans requete sql

**rafnt** · 13/09/2006, 09h27

Bonjour à tous,

Ma problématique du jour est la suivante :

Je fais des requêtes sql en vba sur des fichiers excel.

Je voudrais savoir comment dire dans ma requête que je recherche tous ce qui commence par
- a => "a%"
ou
- "a => ?

Car en fait je dois faire une recheche de raison sociale en fonction de la première lettre et il se trouve que les données de la base contiennent des enregistrement dans le style :
"Au pain perdu"

Donc la je suis coincé car je risque d'oublier des enregistrements.

J'espère qu'une solution existe ...

Eric.

**SilkyRoad** · 13/09/2006, 10h10

bonjour eric

tu peux essayer cette procédure (testé avec OfficeXP)

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
Dim Rs As ADODB.Recordset
Dim Cn As String, Cible As String, Fichier As String
 
Fichier = "C:\maBase.xls"
 
'parametres pour la connection
Cn = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
"ReadOnly=1;DBQ=" & Fichier & ";" & "extended properties=""Excel 8.0;"""
 
Cible = "SELECT * FROM [Feuil1$] WHERE " & _
    "ChampNom LIKE '[" & Chr(34) & "]A%' OR " & _
        "ChampNom LIKE 'A%'"
 
Set Rs = New ADODB.Recordset
Rs.Open Cible, Cn, adOpenKeyset
 
If Not Rs.EOF Then _
ThisWorkbook.Sheets(1).Range("A1").CopyFromRecordset Rs
 
Rs.Close
Set Rs = Nothing

bonne journée
michel

**rafnt** · 13/09/2006, 14h26

Vu que j'ai un gros problème avec ADODB j'utilise les querytables.

Ok j'ai essayé de remplacer dans ma base (mon fichier excel)

- unNomClient

par

- "unNomClient"

Apparament ma requête fonctionne, pour la selection, car j'affiche le nom en question.

par contre, quand je remplis Une comboBox avec les noms trouvés, le nom apparait sans les "", c'est à dire que j'ai unNomClient au lieu de "UnNomClient"

Je vais pousser un peu plus cet après midi mais j'ai peur que ça me pose des problèmes quand je vais faire un requête avec le nom en paramètre pris dans ma combobox et le nom dans ma base qui contient les "" .

Bizarre Bizarre ...