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

Version imprimable

13/09/2006, 09h27
rafnt

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

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.

bonjour eric

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

Code:

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

13/09/2006, 14h26
rafnt

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 ...
13/09/2006, 18h38
SilkyRoad

bonsoir

Citation:

Vu que j'ai un gros problème avec ADODB

as tu vérifié si ta version MDAC est à jour?

http://vb.developpez.com/outils/

bonne soiree
michel
14/09/2006, 16h26
rafnt

j'ai essayé mais quand j'execute il me dit que c'est impossible d'installer car ça fait déja partie intégrante de windows.