Erreur requête SQL en VBA dans Excel

Erreur requête SQL en VBA dans Excel - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2009 à 10:31:33    

Bonjour  :)  
 
j'ai beau regarder tous les sujets du net à propos de cette erreur : "Aucune valeur donnée pour un ou plusieurs des parametres requis"
 
je n'arrive pas à la résoudre.
 
je tente une connexion à un classeur fermé excel qui contient deux feuilles : Temp et Tempsecteur
 
chacune des deux feuilles contient des données avec les colonnes suivantes  
 
Temp :            | Num commune| Num client | Code rue |
Tempsecteur : |test red | code entier | Code_commune | Code_rue |
 
Mon code :
 
Set cn = New ADODB.Connection
                               
With cn
                              .Provider = "Microsoft.Jet.OLEDB.4.0"
                              .ConnectionString = "Data Source=" & emplacement & _
                                              ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""
                              .Open
End With
                             
texte_SQL = "SELECT * FROM [Temp$],[Tempsecteur$] Where  [Temp$].[Num commune] = [Tempsecteur$].[Code_commune] and [Temp$].[Code rue] = [Tempsecteur$].[Code_rue] "
 
Set Rst = New ADODB.Recordset
Set Rst = cn.Execute(texte_SQL) 'Ligne ou l'erreur apparaît
 
Je ne sait pas d'où vient le problème... Certaines colonnes possède des espaces   :pfff:  (je précise que ce n'est pas moi qui ai créé la base de donnée d'où proviennent ces tables), c'est pour cela que j'ai tout mis entre crochet. Mais même si je tente de renommer les colonnes avant ma requête afin qu'il n'y ai plus d'espace, la même erreur arrive  :(  
 
si quelqu'un à une idée...


Message édité par sergeith le 04-06-2009 à 11:03:23
Reply

Marsh Posté le 04-06-2009 à 10:31:33   

Reply

Marsh Posté le 04-06-2009 à 13:46:58    

Si ça intéresse quelqu'un la solution était :
 
.ConnectionString = "Data Source=" & emplacement & _
                                              ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1;"""  
 
au lieu de  
 
.ConnectionString = "Data Source=" & emplacement & _
                                              ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""  
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed