Bonjour à tous,
Je souhaiterais rentrer le résultat d'une requête SQL dans un variant VBA.
Je sais copier le résultat directement dans une feuille excel en indiquant la cellule de base (celle qui sera en haut à gauche) via cells.copyfromrecordset.
mais aucune idée pour le mettre directement dans un variant vba (sans passer par l'étape feuille excel).
Voici le code, les XXX sont rentrés avec les bons paramètres.
c'est la partie en gras qui ne fonctionne pas, rs n'étant pas un tableau il n'a pas de "taille".
Ce que je voudrais c'est rentrer le résultat de la requête dans V. Ensuite je vais faire des calculs et sortir le résultat de ma fonction.
Merci!
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 Function OSSql(a As Variant) As Variant Dim dbConnection As ADODB.Connection Dim rs As ADODB.Recordset Dim dbParameters As String Dim query As String Dim v As Variant dbParameters = "Provider=XXX;Data Source=XXX;" & _ "Initial Catalog=XXX;" & _ "Integrated Security=SSPI;" Set dbConnection = New ADODB.Connection Set rs = New ADODB.Recordset dbConnection.Open dbParameters query = "SELECT XXX FROM XXX" Set rs = dbConnection.Execute(query) Redim(C(ubound(rs)) V.CopyFromRecordset rs End Function
Partager