Creation d'un tableau VBA à partir de l'instruction CopyFromRecordset

Version imprimable

Chéres amies, chers amis

J'utilise ADO, et une requête SQL pour récupérer des données dans un classeur fermé.

Pour l'instant la requete s'affiche sur une feuille de calcul:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Source_1 As ADODB.Connection
    Dim Requete As ADODB.Recordset
    Dim Fichier_1, xSQL As String
    Dim i As Long
    xSQL = "requete ..."
 
    Set Source_1 = New ADODB.Connection
    Source_1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier_1 & ";Extended Properties=""Excel 12.0;" & "HDR=YES;IMEX=1;"""
 
    Set Requete = New ADODB.Recordset
    Set Requete = Source_1.Execute(xSQL)
 
    For i = 0 To Requete.Fields.Count - 1
        Cells(1, i + 1) = Requete.Fields(i).Name
    Next
 
    Feuil3.Range("A2").CopyFromRecordset Requete
 
    Source_1.Close
 
    Set Source_1 = Nothing
    Set Requete = Nothing

Cependant, j'aurais besoin de plutot remplir un tableau dont la taille s'ajusterait automatiquement.

Auriez vous une idée SVP?

Merci

09/10/2013, 09h27
Invité

Bonjour

Regarde du coté de GetRows.

Philippe
09/10/2013, 19h56
parmi

Si je comprends bien et que tu as au moins une version 2007 et plus, regarde du côté des Données Externes, onglet Données. Tu pourras lier tes données à ce tableau et faire un RefreshAll pour le mettre à jour quand nécessaire.

Il te faudra créer une connexion selon le besoin.
09/10/2013, 21h58
Nono Sto
Je ne comprend pas bien cette solution, c'est en VBA?

J'ai utilisé getrows ainsi:
Code:

1 2 3 4 5 Dim Requete As ADODB.Recordset ... Dim Tab_Query() As Variant ... Tab_Query = Requete.GetRows(-1)
j'ai la première colonne qui est est bien dans le tableau puis toutes autres valeurs sont NULL.

De plus, la premières ligne avec le nom des colonnes sont manquantes.
Alors lorsque je fais apparaître directement sur une feuilles le résultat avec:

Code:

Feuil3.Range("A2").CopyFromRecordset Requete

toutes les valeurs sont affiché.
Auriez vous une idée SVP?

Merci
NB: pour afficher les nom des colonnes sur la feuille j'utilise ceci:
Code:

1 2 3 For i = 0 To Requete.Fields.Count - 1 Cells(1, i + 1) = Requete.Fields(i).Name Next
10/10/2013, 14h12
Invité

Pas sur mais généralement il faut transposer les données issues de la requête:

Code:

Tab_Query = Application.WorksheetFunction.Transpose(Requete.GetRows)
10/10/2013, 17h51
Nono Sto

Merci

Cela ne fonctionne pas j'ai une erreur d'incompatibilité de type.
10/10/2013, 18h37
Invité

Il me semble que le tableau doit être de type 'Variant'.

Bonsoir,

Exemple de récupération d'un champ dans un tableau a() avec GetRows

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub RecupChampGetRows()
  ' Microsoft ActiveX DataObject doit être coché
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path & "\"
  fichier = "AdoSource.xls"
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & répertoire & fichier ' Fichier .xls
  Set rs = cnn.Execute("[A1:C100]")
  a = rs.GetRows                                     (tableau a(,)
  [A2].Resize(3, UBound(a) + 1) = Application.Transpose(a)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Jacques Boisgontier

10/10/2013, 22h47
Nono Sto

Merci

J'ai toujours le problème d'incompatibilité de type

Autant pour moi, j'ai mal regarder mon espion en fait c'est la composition du tableau, il ya beaucoup de case vide, d'ou les valeurs NULL, en fouillant un peu plus loing que le bout de mon nez j'ai pu constater que toutes les valeurs sont retourné sauf les entete de colonne

Code:

Tab_Query = Requete.GetRows

Cepandant je ne sais pas comment faire avec les entete car j'ai une erreur lorsque je met HDR=NO

Merci

Il semblerait que le HDR=NO fonctionne sur des requete simple, du genre

Code:

SELECT * FROM database

Cependant dès que cela devient complexe, les entete sont utiliser et là on peux plus les faire passer pour des valeurs.

Je passe alors par ce bout code pour ajouter à posteriorie sur la derniere ligne les entete:
Code:

1 2 3 4 5 6 7 8 9 10 11 Set Requete = Source_1.Execute(xSQL) Data_Query_Array = Requete.GetRows nrow = UBound(Data_Query_Array, 1) - 1 ncol = UBound(Data_Query_Array, 2) + 1 ReDim Preserve Data_Query_Array(nrow + 1, ncol) For i = 0 To nrow Data_Query_Array(i, ncol) = Requete.Fields(i).Name Next
Dès lors que je souhaite travailler sur un tableau vba, la position de l'entete importe peu, du moment que je sais ou ils sont.

Cependant si vous avez mieux je suis preneurs.

Merci