Comment créer une table via un recordset
Bonjour
J'aurais besoin d'aide concernant un programme VBA, je précise avant tout que je suis un gros débutant :?
J'ai une base de donnée Access composé de plusieurs tables et j'aimerais à terme regrouper toute ces données dans une même tableau VBA.
Donc dans un premier temps j'ai connecté VBA à ma base Access et j'ai stocker chacune des données dans un recordset
Code:
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
|
Dim rsData As ADODB.Recordset
Dim sConnect As String
Dim sSQL, sSQL2, sSQL3 As Variant
Dim objCommand As ADODB.Command
Dim lRecordsAffected As Long
Dim lKey As Long
Dim chemin As String
chemin = "C:\Users\Spyral\Desktop\VBA\Data.accdb"
sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & chemin
sSQL = "SELECT Exposure, Rating, LGD, Sector " & _
"FROM Portfolio "
sSQL2 = "SELECT Rating, 1Y, 3Y, 5Y " & _
"FROM Rating "
...etc
Set rsData = New ADODB.Recordset
rsData.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
Set rsData = New ADODB.Recordset
rsData.Open sSQL2, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not rsData.EOF Then
If Not rsData.EOF Then |
Maintenant j'aimerais stocker ces données dans plusieurs tables pour pouvoir ensuite toutes les rassembler. J'ai vu par exemple qu'il y'avait la méthode GetRows sur ce site:
https://msdn.microsoft.com/fr-fr/lib.../ff194427.aspx
Mais je n'ai pas trop comprit comment la mettre en oeuvre, quelqu'un pourrait m'expliquer comment ça marche ?
D'ailleurs dans mon morceau de code c'est faux de mettre tout sur le même rsData, ou il faut mettre rsData1, rsData2..etc ?
Merci d'avance
