Discussion :

[DIDIDIDA]

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 :

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
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

[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

[DIDIDIDA]

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

[neupont]

Ce n'est sans doute pas ça, mais as-tu essayé sans les crochets et/ou les $ ?

[DIDIDIDA]

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!!!

[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

[DIDIDIDA]

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é

[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 :

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

1
2
3
texte_SQL = " SELECT * FROM [" & NomFeuille & "$] "
Set rsT = New ADODB.Recordset
Set rsT = cn.Execute(texte_SQL)

ça seul ça marche!!!!

[SilkyRoad]

bonsoir


Essaye

Code :

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

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

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


bonne soirée
michel

[DIDIDIDA]

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

[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

[DIDIDIDA]

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

[DIDIDIDA]

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

Code :

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

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

[fred65200]

bonjour

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

Code :

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

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

cordialement