Discussion :

[Devarion]

Bonjour à toutes et à tous, je dois dans le cadre d'une BDD créer une procédure censé pour chaque ligne verifier la date de péremption d'un produit, et si ce dernier est périmé depuis plus de 5 ans, il doit alors être supprimé.

Ayant peu de notions en PL/SQL je demande votre aide, voici pour le moment ce que j'ai codé

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
 
CREATE OR REPLACE PROCEDURE pcd_supprimer_medic_perimes
v_date DATE;
s_date DATE;
IS
	CURSOR les_produits IS 
		SELECT nom_produit FROM PRODUITS;
		thisproduits les_produits%ROWTYPE;
	CURSOR date IS 
		SELECT TO_CHAR(sysdate,'DD/MM/YYYY') into v_date FROM DUAL;
		SELECT date_expiration into s_date FROM PRODUITS;
 
BEGIN
	OPEN date
	FETCH date;
	CLOSE cur_date;
	IF s_date - v_date > 5 THEN
	OPEN les_produits;
	LOOP	
		FETCH les_produits;
		EXIT WHEN (les_produits%NOTFOUND);
		DELETE nom_produit FROM PRODUITS;
	END LOOP;
	CLOSE date;
	END IF;
 
END pc_supprimer_medic_perimes;

[Devarion]

Après l'avoir testé une premiere fois il m'indique l'erreur suivante :
PLS-00103 : Symbole "FROM" rencontré à la place d'un des symboles suivants :
@; return retunring(identificateur)

[al1_24]

Pourquoi le faire en PL/SQL ?
Une simple requête suffirait !

Ton erreur de syntaxe se trouve à la ligne 10 ;tu ne peux pas faire de select ... into dans un curseur.

[Devarion]

Tout simplement parce que je suis obligé de travailler sous Oracle et on m'a confié la création de la procédure chargée de la suppression des médicaments en fonction de leur date d'expiration et de la date actuelle.

[skuatamad]

Pas besoin de curseur pour faire ça.
Commence par écrire une requête qui sélectionne les produits qui ont une date de péremption > 5 ans puis transforme la en DELETE.
Il suffit ensuite de stocker le DELETE dans la procédure.

Pour info la différence entre 2 dates correspond à un nombre de jours et non d'années.

[Devarion]

Cela donnerait quelque chose du genre :

Code :

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

1
2
3
4
 
Select nom_produit
FROM PRODUITS
WHERE day(sysdate) - day(date_peremption) > 1825

[skuatamad]

Attention aux années bissextiles pour déterminer la date du jour - 5 ans :

Code :

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

1
2
3
4
5
SQL> select sysdate, add_months(sysdate,-5*12) as "5ans", sysdate-1825 from dual;
 
SYSDATE    5ans       SYSDATE-18
---------- ---------- ----------
26/06/2013 26/06/2008 27/06/2008

Donc plutôt :

Code :

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

1
2
3
SELECT nom_produit
  FROM PRODUITS
 WHERE date_peremption < add_months(trunc(sysdate),-5*12)

TRUNC pour tenir compte de la composante hh:mi:ss du type date