Discussion :

[totot]

Bonjour,

Je souhaiterai faire une fonction qui sera exécuter le lundi (sa pas de problème) et cette fonction devra parcourir les jours de la semaine suivante. Je doit récupérer la date des différents jours ainsi que le libellé en français.
Je pense à une boucle fort mais je vois comment faire.
Les dates que je vais récupérer, je vais les insérer dans une table si le libellé du jours correspond à un libellé du jours d'une autre autre.
Je suis suis sous oracle

Merci d'avance de votre aide.

[skuatamad]

cette fonction devra parcourir les jours de la semaine suivante. Je doit récupérer la date des différents jours ainsi que le libellé en français.

Utilisez une table calendrier

[totot]

Il y a pas d'autre solution que la table calendrier?

[mnitu]

Il est assez simple, en utilisant les fonctions pour les dates d'Oracle et une des divers techniques de générations des enregistrements: tables pivot, connect by pump, model clause, pipelined functions, récursive With, ...

[totot]

Ok
je vais regarder s'il existe une fonction qui permet d'ajouter 7 jours à une date

[totot]

Voilà le début de ma fonction:

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
CREATE OR REPLACE FUNCTION INSERT_VOL RETURN VARCHAR2
 IS
  chaine VARCHAR2(100);
  dateJour Date;
  dateLundiSuivant Date;
  dateDimancheSuivant Date;
  jour VARCHAR2(50);
 BEGIN
  SELECT TRUNC(SYSDATE) INTO dateJour FROM DUAL;
  SELECT to_char(dateJour,'Day','NLS_DATE_LANGUAGE = French') INTO jours FROM dual;
  IF(jours = 'Lundi') THEN
    dateLundiSuivant := dateJour+7;
    dateDimancheSuivant := dateLundiSuivant+6;
 
  ELSE 
    chaine := 'Nous sommes pas un lundi, l''ajout des vols est donc impossible!':
  END IF;
  RETURN (chaine);
  END INSERT_VOL;

Maintenant je bloque pour parcourir les date de la semaine suivante et pour chacun faire une requête SQL. Je voudrais parcours les jours entre le lundi et le dimanche

[totot]

Je viens de finir ma fonction et cela me retourne une erreur et je ne vois pas pourquoi:

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
create or replace FUNCTION INSERT_VOL RETURN VARCHAR2
 IS
  chaine VARCHAR2(100);
  dateJour Date;
  dateVendrediSuivant Date;
  dateJeudiSuivant Date;
  dateSemaine Date;
  jour VARCHAR2(50);
  nbMission NUMBER;
  nbInsert NUMBER;
 BEGIN
  SELECT TRUNC(SYSDATE) INTO dateJour FROM DUAL;
  SELECT to_char(dateJour,'Day','NLS_DATE_LANGUAGE = French') INTO jour FROM dual;
  IF(jour = 'Vendredi') THEN
    dateVendrediSuivant := dateJour+7;
    dateJeudiSuivant := dateVendrediSuivant+6;
    dateSemaine := dateVendrediSuivant;
    WHILE dateSemaine <= dateJeudiSuivant LOOP
      SELECT to_char(dateSemaine,'Day','NLS_DATE_LANGUAGE = French') INTO jour FROM dual;
      SELECT COUNT(idMission) INTO nbMission FROM MISSION_JOURS WHERE libelleJours = jour;
      IF(nbMission > 0) THEN
        nbInsert := 0;
        WHILE nbInsert <= nbMission LOOP
          INSERT INTO VOL (dateVol, idMission) VALUES (dateSemaine, (SELECT idMission FROM MISSION_JOURS WHERE libelleJours = jour));
          COMMIT;
          nbInsert := nbInsert + 1;
        END LOOP;
      END IF;
      dateSemaine := dateSemaine + 1;
    END LOOP;
    chaine := 'Les vols ont été ajoutés pour la semaine du '||dateVendrediSuivant||' au '||dateJeudiSuivant||' !';
  ELSE 
    chaine := 'Nous sommes pas un lundi, l''ajout des vols est donc impossible!';
  END IF;
  RETURN (chaine);
  EXCEPTION WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('SQLCODE : ' || SQLCODE || ' SQLERROR : ' || SQLERRM);
    RAISE_APPLICATION_ERROR(-20000, 'Une erreur imprévue s est pro-duite ' || 'SQLCODE : ' || SQLCODE || ' SQLERROR : ' || SQLERRM);
  END INSERT_VOL;

erreur:

Code :

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

SQLCODE : -1427 SQLERROR : ORA-01427: single-row subquery returns more than one row

[McM]

Attention avec le format 'Day' : Il renvoie une chaine de 8 caractères avec des espaces

Code :

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

1
2
3
4
5
6
7
8
9
10
SELECT TO_CHAR(SYSDATE,'Day','NLS_DATE_LANGUAGE = French') ||'#' AS DAY, DUMP(TO_CHAR(SYSDATE,'Day','NLS_DATE_LANGUAGE = French')) dmp_day, 
				TO_CHAR(SYSDATE,'FmDay','NLS_DATE_LANGUAGE = French') ||'#' AS FmDay, DUMP(TO_CHAR(SYSDATE,'FmDay','NLS_DATE_LANGUAGE = French') ) dmp_fmday
FROM dual
 
 
DAY : Lundi   #	
DMP_DAY : Typ=1 Len=8: 76,117,110,100,105,32,32,32
 
FMDAY    : Lundi#
DMP_FMDAY : Typ=1 Len=5: 76,117,110,100,105

[totot]

J'avais remarqué, j'ai donc dû utiliser la fonction trim lorsque que je fais des comparaison avec des jours et cela fonctionne nikel.

Sinon je ne comprend pas ce que tu m'a passé