Discussion :

[Spyral91]

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 :

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
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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sSQL = "SELECT por.Exposure, por.Rating, por.LGD, por.Sector,Rat.1Y,Rat.3Y,Rat.5Y"
sSQL= sSQL" from  Portfolio as por  INNER JOIN Rating as Rat on Rat.Rating=por.Rating"

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 ?

c'est faux ce sont tes tables qu'il faut mettre de le même script SQL!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set rsData= sConnect.execute(sSQL)