Curseur, fetch + conditions

Version imprimable

Bonjour,
je débute en PL/SQL donc j'aimerais votre aide
Je voudrais faire une vérification qui controle des champs avant l'insertion

Mes conditions ne sont pas reconnu.
Je vous joins mon code:
les erreurs sont au niveau du premier if et de ecpxpay qui n'est pas reconnu mais c'est encore autre chose.

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
create or replace
PROCEDURE DL_CK_ADRESSE  is
adr1 varchar2(35);
reg varchar2(35);
cod varchar2(35);
vil varchar2(35);
pays varchar2(30);
cursor verif is select ad1xcl2, copxcl2, regxcl2, vilxcl2 from cl2xres, payxres where cl2xres.payxcl2 = payxres.codxpay
and not regexp_like(regxcl2,(erexpay)) or not regexp_like(copxcl2,(ecpxpay));
 
BEGIN
 
/*verification de l'adresse, de la région, du pays et du code postal*/
  open verif;
    loop
     fetch verif into adr1, cod, reg, vil;       
     if adr1 is null then  /*champs obligatoire*/
        dbms_output.put_line( adr1|| cod|| reg|| vil + ':Adresse manquante' );
     elsif vil is null then /*champs obligatoire*/  
        dbms_output.put_line( adr1|| cod|| reg|| vil + ':Ville manquante' );
     elsif (cod <> regexp_like(cod,(ecpxpay))) then /*vérification du code postal obligatoire dans certains pays*/
      dbms_output.put_line( adr1|| cod|| reg|| vil + ':erreur code postal' );
     elsif(reg <> regexp_like(reg,(erexpay))) then /*vérification de la région obligatoire dans certains pays*/
        dbms_output.put_line( adr1|| cod|| reg|| vil + ':erreur code region' );
     end if;
     Exit When verif%NOTFOUND;
    end loop;
  close verif;
END DL_CK_ADRESSE;

Merci

12/06/2013, 13h29
pacmann
Salut,

regexp_like renvoit un booléen, il faut donc remplacer :
Code:

1 2 elsif (cod <> regexp_like(cod,(ecpxpay)))
Par :
Code:

1 2 elseif (NOT regexp_like(cod,(ecpxpay)))
(et pareil pour les autres regexp_like)
12/06/2013, 13h52
swanmimouni

merci de ta réponse, c'est vrai, en plus je l'ai fait dans le curseur ^^.
Mais quand j'y repense y a peut etre moyen de faire autrement pour les conditions de comparaison au expr reg dans les IF,

Mais ça ne me dis toujours pas pourquoi il ne veut pas de mes if

j'ai changer un peu le code

Code:

1
2
3
4
5
6
7
8
9
10
11
fetch verif into adr1, cod, reg, vil;       
     if adr1 is null then  /*champs obligatoire*/
        Dbms_Output.Put_Line( Adr1|| Cod|| Reg|| Vil + ':Adresse manquante' );
     elsif vil is null then /*champs obligatoire*/  
        Dbms_Output.Put_Line( Adr1|| Cod|| Reg|| Vil + ':Ville manquante' );
     elsif  not regexp_like(cod, 'ecpxpay') then /*vérification du code postal obligatoire dans certains pays*/
        Dbms_Output.Put_Line( Adr1|| Cod|| Reg|| Vil + ':erreur code postal' );
     elsif  not regexp_like(reg, 'erexpay') then /*vérification de la région obligatoire dans certains pays*/
        dbms_output.put_line( adr1|| cod|| reg|| vil + ':erreur code region' );
     end if;
     Exit When verif%NOTFOUND;

il me met une erreur de conversion mais ne bloque pas , mais il execute pour une fois correctement la procedure mais ne renvoi rien.

12/06/2013, 14h19
pacmann

Je pense que tu as une grosse couille dans ton SELECT : attention à la priorité AND et OR (ici je pense que t'es assez proche du produit cartésien)

Ensuite, pour que le dbms_output te crache bien les lignes, fais quequel part un dbms_output.enable

J'ai modifié quelque peu la requete mais il me sort toujours une erreur de parenthese sur mon expr reg mais je la vois pas
Code:

1 2 Select Ad1xcl2, Copxcl2, Regxcl2, Vilxcl2, Ecpxpay, Erexpay From Cl2xres, Payxres Where Cl2xres.Payxcl2 = Payxres.Codxpay and (not regexp_like(regxcl2,(erexpay)) or not regexp_like(copxcl2,(ecpxpay)) or (Ad1xcl2 || Vilxcl2 is null)) ;