Incrémentation d'une date de façon hebdomadaire

Version imprimable

Bonjour,

J'ai affaire à une base de données sous PL/SQL Developer, et j'aimerai interroger cette base via le VBA et dans le même temps, à chaque interrogation, je voudrais que les dates puissent s'incrémenter dans le même temps d'un "step" de 7 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 select count(*) from e_envoi_souscription, e_cde_document, E_CDE where ((ees_mab_nume<>'0003' and ees_mab_nume<>'6300') or ees_mab_nume is null) and EES_ETAT='EN_COURS' and e_cde_document.cde_do_souscrip_ees_id = e_envoi_souscription.ees_id and e_cde_document.cde_do_ty_se_c='WV2' --and e_cde_document.cde_do_d between to_date('&date', 'dd/mm/yyyy hh24:mi:ss')-6 --and to_date('&date', 'dd/mm/yyyy hh24:mi:ss') and e_cde_document.cde_do_d between to_date('01/06/2009 00:00:00', 'dd/mm/yyyy hh24:mi:ss') and to_date('07/06/2009 23:59:59', 'dd/mm/yyyy hh24:mi:ss') and e_cde.cde_ty_se_c=e_cde_document.cde_do_ty_se_c and e_cde.cde_d=e_cde_document.cde_do_d and e_cde.cde_c=e_cde_document.cde_do_cde_c and ees_duree_mois>0 and e_cde.cde_souscript_eed_ees_id is null;
Du coup, j'aurai voulu d'abords savoir s'il était plus judicieux de faire cette incrémentation en VBA (possible ? :?) ou de le faire via PL/SQL Developer mais...comment ?

Je pense utiliser un Sysdate, afin d'obtenir la date du système et de l'utiliser comme date butoir puis à partir de ça, il faudrait que je puisse décrémenter chaque semaine depuis le 1er janvier 2009.
Au final, il faudrait que j'obtienne le résultat de ma requête entre le 1er janvier et le 4 janvier (1er semaine), puis du 5 janvier jusqu'au 11 janvier, puis du 12 janvier jusqu'au 18 et ainsi de suite...jusqu'à la date du système.

Enfin, je suis en possession d'une requête SQL qui me fournie un certain nombre de statistiques que j'aimerai incorporer dans un tableau Excel à l'aide d'une macro mais j'ai beaucoup de mal avec cette connexion (cependant...ce n'est peut être pas le bon endroit pour cette question...)
Voici mes premiers pas, peu concluant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub recupNumeroSemaine() 'Récupérer le numéro de la semaine actuelle Dim iNumeroSemaine As Integer iNumeroSemaine = DatePart("ww", Now()) End Sub Sub RemplirTableau() ' ' Macro1 Macro ' Macro enregistrée le 23/06/2009 par cman ' ' For i = 1 To iNumeroSemaine Step 1 Sheets("Semaine " & i - 1).Select Range("E6").Select With ActiveSheet.QueryTables.Add(Connection:= _ "FINDER;\\SSOPFIL01\GTC\Statistiques contractuelles\HEBDO\KBIS PERIODIQUES\Requete\Stats Kbis Périodiques New.sql" _ , Destination:=Range("E6")) _ End With Next End Sub
Merci d'avance pour votre préciseuse aide !

Cordialement,
Clément.

23/06/2009, 17h45
Invité

regarde du côté des triggers Oracle !
http://sheikyerbouti.developpez.com/pl_sql/?page=Chap6
24/06/2009, 14h39
exqo77

Sachant que mes dates sont des critères de sélection, les triggers sont-ils toujours LA solution ?
24/06/2009, 15h11
orafrance

Non, un trigger ne se déclenche pas sur SELECT. C'est à ton code VBA de faire ça.
24/06/2009, 15h36
exqo77
Ok, du coup toutes les manipulations que je dois effectuer doivent se faire via le VBA, mais que dois-je mettre à la place de :
Code:

1 2 3 4 5 ... and e_cde_document.cde_do_d between to_date('01/06/2009 00:00:00', 'dd/mm/yyyy hh24:mi:ss') and to_date('07/06/2009 23:59:59', 'dd/mm/yyyy hh24:mi:ss') ...
Car pour le moment je change ces dates manuellement...
24/06/2009, 19h31
Invité

Citation:

Envoyé par orafrance

Non, un trigger ne se déclenche pas sur SELECT. C'est à ton code VBA de faire ça.

Ah bon ? Pas moyen de lancer sur un select ? Je croyais.
Il reste que l'on doit bien pouvoir faire ça d'un trigger system mais que ce n'est surement pas la meilleure solution...

Et pourquoi pas une bête procédure pl/sql qui serait lancée par VB ?

Voilà où j'en suis, j'ai décidé de faire la requête via le VBA, ce qui donne :

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
Sub Macro1()
    Dim sql As String
    Dim debutperiode As Date
    Dim ddeb As String
    Dim dfin As String
    For debutperiode = DateSerial(2009, 1, 1) To Now() Step 7
    ddeb = Format(debutperiode, "dd/mm/yyyy")
    dfin = Format(debutperiode + 6, "dd/mm/yyyy")
    sql = "select count(*) from e_envoi_souscription, e_cde_document, E_CDE" + _
        "where ((ees_mab_nume<>'0003' and ees_mab_nume<>'6300') or ees_mab_nume is null)" + _
        "and EES_ETAT='EN_COURS'" + _
        "and e_cde_document.cde_do_souscrip_ees_id = e_envoi_souscription.ees_id" + _
        "and e_cde_document.cde_do_ty_se_c='WV2'" + _
        "and e_cde_document.cde_do_d between" + _
        "and to_date('" + ddeb + " 00:00:00' , 'dd/mm/yyyy hh24:mi:ss')" + _
        "and to_date('" + dfin + " 23:59:59', 'dd/mm/yyyy hh24:mi:ss') " + _
        "and e_cde.cde_ty_se_c=e_cde_document.cde_do_ty_se_c" + _
        "and e_cde.cde_d=e_cde_document.cde_do_d" + _
        "and e_cde.cde_c=e_cde_document.cde_do_cde_c" + _
        "and ees_duree_mois>0" + _
        "and e_cde.cde_souscript_eed_ees_id is null;" _
    'exécuter sql
    Next
End Sub

Cependant, ça devient plus un problème de spécialiste VB que de spécialiste PL/SQL maintenant.

Pour l'exécution, j'ai pensé à cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub recupNumeroSemaine()
    'Récupérer le numéro de la semaine actuelle
    Dim iNumeroSemaine As Integer
    iNumeroSemaine = DatePart("ww", Now())
End Sub
 
Sub RemplirTableau()
    For i = 1 To iNumeroSemaine Step 1
        Sheets("Semaine " & i - 1).Select
        Range("E6").Select
        With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;chemin_à_la_base_.sql" _
        , Destination:=Range("E6"), _
        sql:=sql) _
        End With
    Next
End Sub

Suis-je sur la bonne voie ?

Voilà où j'en suis après quelques modifications :

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
Sub Macro1()
    Dim sql As String
    Dim debutperiode As Date
    Dim ddeb As String
    Dim dfin As String
    Dim semainePlus1 As Integer
    semainePlus1 = 1
    For debutperiode = DateSerial(2009, 1, 1) To Now() Step 7
        Sheets("Semaine " & semainePlus1).Select
        ddeb = Format(debutperiode, "dd/mm/yyyy")
        dfin = Format(debutperiode + 6, "dd/mm/yyyy")
        'Nombre total d'envois périodique (courrier ):
        sql = "select count(*) from e_envoi_souscription, e_cde_document, E_CDE" + _
        "where ((ees_mab_nume<>'0003' and ees_mab_nume<>'6300') or ees_mab_nume is null)" + _
        "and EES_ETAT='EN_COURS'" + _
        "and e_cde_document.cde_do_souscrip_ees_id = e_envoi_souscription.ees_id" + _
        "and e_cde_document.cde_do_ty_se_c='WV2'" + _
        "and e_cde_document.cde_do_d between" + _
        "and to_date('" + ddeb + " 00:00:00' , 'dd/mm/yyyy hh24:mi:ss')" + _
        "and to_date('" + dfin + " 23:59:59', 'dd/mm/yyyy hh24:mi:ss') " + _
        "and e_cde.cde_ty_se_c=e_cde_document.cde_do_ty_se_c" + _
        "and e_cde.cde_d=e_cde_document.cde_do_d" + _
        "and e_cde.cde_c=e_cde_document.cde_do_cde_c" + _
        "and ees_duree_mois>0" + _
        "and e_cde.cde_souscript_eed_ees_id is null;"
        Range("E6").Select
        With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;chemin_base_de_données" _
        , Destination:=Range("E6"), _
        sql:=sql)
        End With
End Sub

Mon problème principal réside dans le fait que je ne vois absolument pas comment me connecter à la base de données...
Je précise toute fois que je travaille sur une base Oracle et que je dispose d'un fichier .sql comprenant ma requête cependant j'ai décidé d'effectuer cette requête au sein même du VBA afin de pouvoir incrémenter les dates.

Merci d'avance

Cordialement,
Clément