problem de syntaxe pour excel sql

Version imprimable

bonjour tout le monde

c pour la premiere fois que j'utilise vba pour excel,!!! j'ai utilser un bouton dans un userform: pour lire ensuite afficher les donnée une fois selectionnéés. mais j'ai probleme avec la syntaxe sql, j'ai essayé toutes les syntaxe que j'ai trouvé sur le net mais ça marche pas alors svp aidez moi je suis bloqué!!!
sans l'instruction where ça marche bien,,??????????????????????? merci

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
36
37
38
39
40
41
 
Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection
Dim Fichier As String
Dim leNom As String
Dim NomFeuille As String, texte_SQL As String
Dim rsT As ADODB.Recordset
'Initialization des variables
leNom = "HABITAT"
'Définit le classeur fermé servant de base de données
'Fichier = "S:\LYNDAYAKOUBEN\DONNEES.xls"
 Fichier = Me.TextBox1.Text
   'Nom de la feuille dans le classeur fermé
NomFeuille = Me.TextBox2.Text
Set cn = New ADODB.Connection
'--- Connection ---
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & _
 ";Extended Properties=""Excel 8.0;HDR=yes"""
.Open
End With
'-----------------
'Définit la requête.
'/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
texte_SQL = "   SELECT * FROM [" & NomFeuille & "$]   " & _
 "  WHERE [" & NomFeuille & "$].MARCHE = '" & leNom & "'  "
Set rsT = New ADODB.Recordset
Set rsT = cn.Execute(texte_SQL)
'--- Boucle sur les entêtes pour récupérer les noms ---
For i = 0 To rsT.Fields.Count - 1
Cells(1, i + 1) = rsT.Fields(i).Name
Next i
'-----------------------------------------------------
'Ecrit le résultat de la requête dans la cellule A2
Range("A2").CopyFromRecordset rsT
'--- Fermeture connexion ---
cn.Close
Set cn = Nothing
 
End Sub

21/01/2008, 13h51
wape

Bonjour,

Quel est exactement le problème :

. y a-t-il un message d'erreur ? si oui, lequel ?
. le recordset est-il vide ?
. autre ?

wape
21/01/2008, 14h27
DIDIDIDA

problem de syntaxe pour excel sql vba

je suis bloqué à cause de la syntaxe du sql pour excel! est ce que vous pouvez me communiquer la syntaxe, surtout le probleme avec l'instruction where, c'est à dire qd je fais juste
txtsql= " selecte * from [" & nomfeuil&" $]" ça marche mais qd je fais
txtsql= " selecte * from [" & nomfeuil&" $] where [" & nomfeuil&" $].monchamp = 'XXXX' " ça marche pas,??????j'ai utilisé precque toutes le syntaxe possible!!!! aidez moi svp je suis bloqué merci:(:(:(:oops::oops:
21/01/2008, 14h56
neupont

Ce n'est sans doute pas ça, mais as-tu essayé sans les crochets et/ou les $ ?
21/01/2008, 15h14
DIDIDIDA

ça marche pas

si j'enleve les crochés il me fait rien meme sans l'instruction where, c'est à dire meme selecte seul ne marche pas??? donc je ne pense pas que c les crochets!!!;)
21/01/2008, 15h29
Invité

Re

Je ne vois pas pourquoi cela ne marcherait pas, d'abord tu as trop d'espaces dans ta chaine SQL, un seul espace avant le Where, et pas d'espaces aprés la dernière '.

Starec
21/01/2008, 15h45
DIDIDIDA

merci

merci Starec je ne pense pas que c un pb d'espace!! mais c qui me semble bizard c pourquoi qd j'essaye des sytaxes que je trouve sur le net ça marche et avec moi non!!!je ne sais pas pourquoi! moi j'écrie mon code ds un bouton qui est sur un userform!!! c à dire pas ds un module!!! merci comme meme starec je vais voir les reférences que tu m as donné
21/01/2008, 16h16
DIDIDIDA

DIDIDIDA
C TJR MOI? PUISQUE j'arrive pas à avec sql, est ce que il ya possibilité de mettre les données de ma requete sans where, c'est à dire les donnée de toute le feuille dans un tableau ensuite je ferrai les manips sur ce t ableau?????
Code:

1 2 3 texte_SQL = " SELECT * FROM [" & NomFeuille & "$] " Set rsT = New ADODB.Recordset Set rsT = cn.Execute(texte_SQL)
ça seul ça marche!!!!
21/01/2008, 18h24
SilkyRoad

bonsoir

Essaye

Code:

" WHERE MARCHE = '" & leNom & "'"

Le champ "MARCHE" contient bien des données texte ?
Que contient la variable "leNom" ?

bonne soirée
michel
21/01/2008, 21h01
DIDIDIDA

merci

merci michel
je vais l'essayé et je te tienderai au courant.
le champ MARCHE est de type texte. la variable leNom est de type string et elle contient la valeur HABITAT, qui est une valeur du champ MARCHE.
encore merci michel

bonne soirée:bug:
21/01/2008, 21h21
DIDIDIDA

DIDIDIDA

MERCI BP MICHEL tu sais je viens de l'essayer pour un autre fichier ça marche, demain je l'appeliquerai pour mon fichier de travail au stage, je l'ai pas sur moi, mais normalement ça va marché, je suis tres contente merci et mmille fois merci:yaisse2::king::king::king:
22/01/2008, 08h57
DIDIDIDA

prblem avec mon fichiers excel!!!

bonjour michel
tu sais je pense que le pbm viens de mon fichier et pas de la syntaxe?? car j'ai utilisé la sysntaxe que tu m'avais donné ça marche sur des fichiers qlq mais pas sur mon fichier : au depart c vrai les noms des champs contienent des espaces mais j'ai changé ça!! mais c tjr pareil!! alors aide moi stp si tu voie de quoi il s'agit!!merci:(:oops:
22/01/2008, 13h25
DIDIDIDA

problem avce mon fichier execl

bonjour tout le monde
j'ai cru avoir un probleme avec la syntaxe du sql mais finalement non , j'ai cette syntaxe

Code:

texte_SQL = " SELECT NOM FROM [" & NomFeuille & "$] WHERE NOM = '" & leNom & "' "

qui marche pour un fichier excel donné mais pas avec le mien:
j'ai ce message d'erreur: aucune valeur donnée pour un ou plusieurs des paramètre requis; merci pour votre aide :(:oops::cry:
22/01/2008, 19h26
fred65200

bonjour

en supprimant les espaces superflus est ce que ça fonctionne?

Code:

texte_SQL= "SELECT NOM FROM [" & NomFeuille & "$] WHERE NOM='" & leNom & "'"

cordialement