pb de creation de procedure...

Version imprimable

bonjour,

voila, je debute en pl/sql, et je doit créer des procedures, mais j'ai des erreures que je ne comprend pas, voila ma procedure :
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 CREATE OR REPLACE Procedure verif_client( vc_refbp IN NUMBER[9], vc_mail IN CHAR[100], vc_mailok IN SMALLINT, vc_newsok IN SMALLINT, vc_compteok IN SMALLINT ) IS BEGIN IF (!EXIST(SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;)) THEN (INSERT INTO CLIENT (CLI_REFBP,CLI_MAIL,CLI_MAILOK,CLI_COMPTEOK,CLI_NEWSOK) VALUE (vc_refbp,vc_mail,vc_mailok,vc_compteok,vc_newsok)) return "0" ELSE IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;)="0") THEN (UPDATE CLIENT SET CLI_COMPTEO;K = "1" WHERE CLI_REFBP = vc_refbp) return "0" ELSE IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;) = "1") THEN RETURN "1" ENDIF ENDIF ENDIF END;
et l'erreur est la suivante:

Code:

(S2724) Expecting: ) , := CHARACTER DEFAULT

elle est sur la ligne :

Code:

vc_refbp IN NUMBER[9],

si quelqu'un pouvait m'aider a comprendre pourquoi c'est faux, et comment corriger se serait cool merci

hOAx punK

24/01/2006, 09h54
Yorglaa

Salut,
en PL/SQL les longueur/précisions de chaîne ou de nombre doivent être entre parenthèses et pas entre crochet...

j'ai modifier sa 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
CREATE OR REPLACE Procedure verif_client
(vc_refbp IN NUMBER(9),
vc_mail IN CHAR(100),
vc_mailok IN SMALLINT,
vc_newsok IN SMALLINT,
vc_compteok IN SMALLINT)
IS
BEGIN
IF (!EXIST(SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;))
THEN (INSERT INTO CLIENT (CLI_REFBP,CLI_MAIL,CLI_MAILOK,CLI_COMPTEOK,CLI_NEWSOK) 
	VALUE (vc_refbp,vc_mail,vc_mailok,vc_compteok,vc_newsok);)
	return "0";
ELSE
	IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;)="0")
	THEN (UPDATE CLIENT SET CLI_COMPTEO;K = "1" WHERE CLI_REFBP = vc_refbp;)
	return "0";
	ELSE
		IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;) = "1")
		THEN RETURN "1";
		ENDIF
	ENDIF
ENDIF
END;

et pourtant j'ai toujours la meme erreur au meme endroit...

24/01/2006, 10h00
fdraven

Il ne faut pas préciser la taille du nombre juste mettre number.

En espérant t'avoir aidé.
24/01/2006, 10h01
bouyao

Code:

UPDATE CLIENT SET CLI_COMPTEO;K = "1" WHERE CLI_REFBP = vc_refbp

après CLI_COMPTEO il y'a un point virgule, Pourquoi ?

bouyao -> j'ai corriger ce point virgule n'existe pas lol

j'ai modifier ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CREATE OR REPLACE Procedure verif_client
(vc_refbp IN NUMBER,
vc_mail IN CHAR(100),
vc_mailok IN SMALLINT,
vc_newsok IN SMALLINT,
vc_compteok IN SMALLINT)
IS
BEGIN
IF (!EXIST(SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;))
THEN (INSERT INTO CLIENT (CLI_REFBP,CLI_MAIL,CLI_MAILOK,CLI_COMPTEOK,CLI_NEWSOK) 
	VALUE (vc_refbp,vc_mail,vc_mailok,vc_compteok,vc_newsok);)
	return "0";
ELSE
	IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;)="0")
	THEN (UPDATE CLIENT SET CLI_COMPTEOK = "1" WHERE CLI_REFBP = vc_refbp;)
	return "0";
	ELSE
		IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;) = "1")
		THEN RETURN "1";
		ENDIF
	ENDIF
ENDIF
END;

et maintenant l'erreur est :

Code:

(S1789) Expecting: ) , := CHARACTER DEFAULT LARGE VARYING

a la ligne :

Code:

vc_mail IN CHAR(100),

j'ai trouver, j'avance un peu mais c'est pas encore sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CREATE OR REPLACE Procedure verif_client
(vc_refbp IN NUMBER,
vc_mail IN CHAR,
vc_mailok IN SMALLINT,
vc_newsok IN SMALLINT,
vc_compteok IN SMALLINT)
IS
BEGIN
IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;) IS NULL)
THEN (INSERT INTO CLIENT (CLI_REFBP,CLI_MAIL,CLI_MAILOK,CLI_COMPTEOK,CLI_NEWSOK) 
	VALUES (vc_refbp,vc_mail,vc_mailok,vc_compteok,vc_newsok);)
	return "0";
ELSE
	IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;)="0")
	THEN (UPDATE CLIENT SET CLI_COMPTEOK = "1" WHERE CLI_REFBP = vc_refbp;)
	return "0";
	ELSE
		IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;) = "1")
		THEN RETURN "1";
		ENDIF
	ENDIF
ENDIF
END;

erreur :

Code:

1
2
3
4
PLS-00103: Symbole "SELECT" rencontré à la place d'un des symboles suivants :
 
   ( - + case mod new not null others <an identifier>
   <a double-quoted delimited-identifier> <a bind variable> avg

ligne :

Code:

IF ((SELECT CLI_REFBP FROM CLIENT WHERE CLI_REFBP = vc_refbp;) IS NULL)