Précédent   Forum des professionnels en informatique > Bases de données > Oracle > PL/SQL
PL/SQL Forum d'entraide sur le PL/SQL
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 09/02/2008, 14h18   #1
Candidat au titre de Membre du Club
 
Inscription : janvier 2007
Messages : 78
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 78
Points : 13
Points : 13
Par défaut Trigger sql défaillant

Bonjour, tout d'abord je vous montre mon code :
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
37
38
39
40
41
42
43
44
45
46
47
 
CREATE OR REPLACE TRIGGER ANOMALIES
AFTER INSERT ON CAPACITE FOR EACH ROW
declare 
	SimpleVar integer;
	DoubleVar integer;
	idResVar integer;
	idCentreVar integer;
	idClientVar integer;
	NumSemaineVar integer;
	AnneeVar integer;
	NbrChSimpleVar integer;
	NbrChDoubleVar integer;
	DureeVar integer;
 
	CURSOR c1 IS SELECT IdReservation,IdCentre.IdCentre,IdClient.IdClient,NumSemaine.NumSemaine,Annee.Anee,NbrChSimple,NbrChDouble,DureeSejour 
			      FROM RESERVATION
			      WHERE IdCentre.IdCentre = :NEW.IdCentre
			      AND Annee.Annee = :NEW.Annee
			      AND NumSemaine.NumSemaine+DureeSejour > :NEW.NumSemaine
			      ORDER BY NumSemaine.NumSemaine;
 
 
BEGIN
	SimpleVar := :NEW.NbrChSimpleDisponible;
	DoubleVar := :NEW.NbrChDoubleDisponible;
 
	OPEN C1;
		FETCH C1 INTO idResVar,idCentreVar,idClientVar,AnneeVar,NumSemaineVar,NbrChSimpleVar,NbrChDoubleVar,DureeVar;
		IF((SimpleVar-NbrChDoubleVar >=0) AND (DoubleVar-NbrChDoubleVar >=0))
		THEN
			SimpleVar := SimpleVar-NbrChSimpleVar;
			DoubleVar := DoubleVar-NbrChDoubleVar;
		END IF;
		ELSE
		BEGIN
		INSERT INTO ANOMALIE SELECT seq_anomalie.NEXTVAL,idResVar,REF(a),REF(b),REF(c),REF(c),NbrChSimpleVar,NbrChDoubleVar,DureeVar
				     FROM CENTRE a, CLIENT b, SEMAINE c
				     WHERE a.IdCentre = idCentreVar
				     AND b.IdClient = idClientVar
				     AND c.Annee = AnneeVar
				     AND c.NumSemaine = NumSemaineVar;
		DELETE FROM RESERVATION WHERE IdReservation = idResVar;
		END;
	CLOSE C1;
END;
/
Le trigger m'affiche une erreur à la compilation qui est celle-ci :
Code :
1
2
3
4
5
6
7
8
9
 
ERREUR à la ligne 32 : PLS-00103: Symbole "ELSE" rencontré à la place d'un des symboles suivants :
 
   begin case declare end exception exit for goto if loop mod
   null pragma raise return select update while with
 
    << close current delete fetch lock insert
   open rollback savepoint set sql execute commit forall merge
   pipe
Je ne sais vraiment pas d'ou vient cette erreur et j'appprécierai l'aide de quelqu'un
Merci d'avance.
god_enel est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/02/2008, 15h43   #2
Expert Confirmé Sénior
 
Avatar de mnitu
 
Homme Marius Nitu
Ingénieur développement logiciels
Inscription : octobre 2007
Messages : 3 320
Détails du profil
Informations personnelles :
Nom : Homme Marius Nitu
Localisation : France, Marne (Champagne Ardenne)

Informations professionnelles :
Activité : Ingénieur développement logiciels
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : octobre 2007
Messages : 3 320
Points : 5 839
Points : 5 839
Réponse dans le tutoriel
mnitu est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/02/2008, 16h48   #3
Expert Confirmé
 
Avatar de LeoAnderson
 
Inscription : septembre 2004
Messages : 2 942
Détails du profil
Informations forums :
Inscription : septembre 2004
Messages : 2 942
Points : 2 972
Points : 2 972
IL s'agit de débugger votre code.

Quel est l'intérêt d'un tel "problème" sur un forum ?
LeoAnderson est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h44.


 
 
 
 
Partenaires

Hébergement Web