Plusieures requêtes SQL en vba dans la même macro?

Version imprimable

Bonjour,
peut-on mettre 2 ou plusieures(3, 4 ..) requêtes SQL en vba dans la même macro...? pour exploiter ensuite de façon différenciées les les résultats
(par exemple sur un Form_Load)
avec ceci comme idée..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Form_Load() SQL1 = "SELECT..........ma première requête......test.x....;" SQL2 = "SELECT..........ma deuxième requête......test.y....;" Set oSQL = CurrentDb.OpenRecordset(SQL) Dim a As Variant a = oSQ1L("x") If oSQL1("x") = "" Then a = "pas disponible" Dim b As Variant b= oSQ2L("y") If oSQL2("y") = "" Then b = "pas disponible" End Sub
avec bien sur une identification propre à chaque requête..
merci pour vos conseils.

19/10/2013, 15h36
LedZeppII

Bonjour,

Oui on peut.
Cependant concernant ton ébauche de code, je dirai ceci :
Une requête retourne un jeu d'enregistrements qui ne peut pas être affecté à une variable de type string.

Que cherches-tu exactement à récupérer avec tes requêtes ?

A+
19/10/2013, 18h33
PAUL87

bonsoir et merci.
je cherche a récupérer des valeurs numériques et date/heure dans plusieurs tables différentes et en fonction du niveau de certaines valeurs, déclancher l'envoi de mail auto contenant les valeurs concernées. (la procédure d'nvoi mail est OK)
en fait, ce post fait suite à celui-ci:
http://www.developpez.net/forums/d13...timer-requete/

Mais il se trouve que mes requêtes sont plus compliquées que prévues donc je voudrais les diviser
je ne sais pas si c'est possible..

Bonsoir,

La lecture de la discussion que tu as mis en lien ne m'éclaire pas trop.
Si je reprends ton code initial (celui de cette discussion), le code serait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Form_Load() Dim oRS1 as DAO.Recordset, oRS2 as DAO.Recordset SQL1 = "SELECT..........ma première requête......test.x....;" SQL2 = "SELECT..........ma deuxième requête......test.y....;" Dim a As Variant Set oRS1 = CurrentDb.OpenRecordset(SQL1) a = oRS1("x") If oRS1("x") = "" Then a = "pas disponible" oRS1.Close Dim b As Variant Set oRS2 = CurrentDb.OpenRecordset(SQL2) b= oRS2("y") If oRS2("y") = "" Then b = "pas disponible" oRS2.Close End Sub
Cependant ce code ne lit que le premier enregistrement des requêtes 1 et 2.

A+

bonjour,
en fait mon code n'était pas complet..voiçi ci dessous un code plus conforme, mais je vais faire un essai avec les conseils de ton dernier post.

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
32
33
34
35
36
 
Private Sub Form_Load()
Timer1:
'Attendre (5 * 60) 'lancement de la boucle toutes les 1 heure
Attendre (0.1 * 60) 'lancement de la boucle toutes les 10 sec...pour test
 
 
SQL1 = "SELECT..........ma première requête......test.x....;"
 
SQL2 = "SELECT..........ma deuxième requête......test.y....;"
 
Set oSQL = CurrentDb.OpenRecordset(SQL)
 
Do Until oSQL.EOF
 
 
Dim a As Variant
a = oSQL1("x")
If oSQL1("x") = "" Then exit sub
 
 
Dim b As Variant
b= oSQL2("y")
If oSQL2("y") = "" Then exit sub
 
    If oSQL1("x")> 1.4 And oSQL2("y") > Now - (240 / 1440) Then
 
 
'---------------------------------Commande d'envoi mail-------------------------------------
 
'----------------------------- FIN Commande d'envoi mail------------------------------------
    End If
    oSQL.MoveNext
Loop
'GoTo Timer1
End Sub