Discussion :

[guigui69]

Bonjour à tous,

A travers une macro excel, j'interroge une base SQL (ms sqlserver), cela fonctionne mais j'aurais besoin d'aide.

Je voudrait réaliser une boucle du résultat de la requete1.

Mon but, je dispose d'une première requête:

Code :

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

requete1 "select id_societe, id_atelier FROM toto"

Et je voudrais boucler le résultat pour exécuter une nouvelle requête en récupérant les id_societe et id_atelier.

Code :

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

requete2 "select or, sommeT, somme poids FROM tata WHERE id="id_societe" AND atelier="id_atelier"

Je ne sais pas comment réaliser la boucle du résultat (comme en php while etc...).

Merci d'avance pour votre aide

guigui69

[Pierre Fauconnier]

Salut.

Pourrais-tu préciser si tu travailles avec ADO ou avec DAO?

Quoi qu'il en soit, tu dois avoir un objet de type ado.recordset ou dao.recordset.

Tu peux boucler ainsi, avec un objet nommé rs

Code :

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

1
2
3
4
5
do while not rs.eof
    ...
    ...
    rs.movenext
loop

[EDIT]
Pourrais-tu préciser également pourquoi tu dois boucler sur le recordset et ce que tu cherches à réaliser?

Si c'est pour copier le recordset dans une feuille Excel, tu as également ceci

Code :

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

range("a2").CopyFromRecordset rs

avec rs comme un dao.recordset ou un ado.recordset
[/EDIT]

[guigui69]

Bonsoir,

En fait j'aurai une première requête pour récupérer id_societe et id_pvt puis après je ré-exécute une seconde requête.

Schéma:

En VBA

- J’exécute une requête pour récupérer id_societe et id_pvt

- Je voudrait faire une boucle du résultat de la requête

Code :

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

1
2
3
4
5
do while not rs.eof
    ...
    ...
    rs.movenext
loop

- Dans cette boucle je voudrait Ré-exécuter une nouvelle requête à l’intérieur. (

Code :

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

1
2
3
Select voiture, couleur, interieur 
FROM vt 
WHERE id_societe='id_societe' AND  id_pointdevente='id_pvt'

)

- Puis le résultat de la requête sera afficher dans un tableau Excel

Merci

guigui69

[guigui69]

Voici le code VBA:

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
32
33
34
35
36
37
38
39
40
 
Dim valcel As String
valcel = Excel.Range("Informations!B3").Value
valcel2 = Excel.Range("Informations!B4").Value
Dim cnBat As ADODB.Connection
Set cnBat = New ADODB.Connection
Dim strConn As String
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=xx.xx.xx.xx;UID=xxxxxx;PWD=xxxxxxxx;DATABASE=xxxx"
cnBat.Open strConn


     Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Program Files\UwAmp\www\requete-sql\lesrequetes\requete OR EN COUR-pour-excel.sql", ForReading)
une_variable = "select id_societe, id_atelier FROM toto"
f.Close


'------------------
Dim rsBat As ADODB.Recordset
Set rsBat = New ADODB.Recordset
 
With rsBat
     .ActiveConnection = cnBat
     .Open une_variable
==> ICI que je voudrait boucler cette première requête  pour qu'a l intérieur je réexecute une seconde requête. <===
     .Close
 

    
End With


 
cnBat.Close
Set rsBat = Nothing
Set cnBat = Nothing
End Sub

Merci

guigui69