Probleme requête SQL server / Excel

Question

Bonjour, 

Je suis actuellement en train de développer une application et j'ai un soucis pour effectuer une requête dans une base de donnée hébergée sous SQL Serveur et récupérer les différents résultats dans une feuille de calcul.
Voici mon extrait de code censé reporter ces données dans une feuille "Res". La connection à la base de donnée est fonctionnelle.

Sub ImportBDD()

Dim sh As Worksheet
  
      Set Connexion = CreateObject("ADODB.Connection")
      Connexion.Open "..."
     'SQL Request

      Query = "....;"
 
     Set req = CreateObject("ADODB.Recordset")
     Set res = Connexion.Execute(Query)
   
    'Paste data
     Sheets("Res").Cells(2, 1).CopyFromRecordset req
      
    'Closing connexion
     Set Query= Nothing
     Set Connexion= Nothing
   
     
End Sub

Pourriez vous m'éclairer svp?

Merci!

cs_MPi · Answer

Comment sont déclarés res et req ?
Est-ce que ce ne serait pas plutôt res que tu devrais mettre ici ?

Sheets("Res").Cells(2, 1).CopyFromRecordset res

Étant plus habitué de travailler avec DAO, je ne suis pas certain de ce que j'avance...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_Sia72 · Answer

C'était bien cela , merci beaucoup de la réponse et de ta rapidité !!

Probleme requête SQL server / Excel

2 réponses

Votre réponse

Discussions similaires