Discussion :

[Mat67]

Bonjour a tous,
alors voilà, je suis stagiaire en première année de BTS et je suis chargé de modifier un site en php.
Il ya bon nombre de fonctions et procédures déja réalisé.
J'ai été obligé de changer la base de donnée (ajouter des champs dans une table) afin d'enregistrer des informations.

donc voici la fonction que j'ai voulue modifier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
	public function ProcStocClient(&$ClitNo,&$CliInt,&$CliSite,&$CliVille,&$CliAppel,&$CliNumErr,&$CliMsgErr)
	{
		$requete = "BEGIN pack_atalgrc.maj_cre_grcclient (:glc_no, :glc_interv, :glc_site, :glc_ville, :mode_appel, :err_num, :err_msg); END;";
		$this->prepareRequete($requete);
		OCIBindByName($this->ressourceRequete, ":glc_no", $CliNo, 100);
		OCIBindByName($this->ressourceRequete, ":glc_interv", $CliInt, 100);
		OCIBindByName($this->ressourceRequete, ":glc_site", $CliSite, 100);
		OCIBindByName($this->ressourceRequete, ":glc_ville", $CliVille, 100);
		OCIBindByName($this->ressourceRequete, ":mode_appel", $CliAppel, 1);
		OCIBindByName($this->ressourceRequete, ":err_num", $CliNumErr, 100);
		OCIBindByName($this->ressourceRequete, ":err_msg", $CliMsgErr, 100);
		$this->executeRequete(OCI_DEFAULT); 
	}

mais voila lorsque j'ai modifié la fonction, et voulu tester les changements, j'ai obtenu uen erreur de package...
Apres recherche j'ai plus ou moins compris que les package sont un regroupement de fonctions, et j'aimerai savoir comment modifier ces packages (si s'est possible de le faire sous sql+)
Merci

[McM]

Il faut que tu retrouves le source du package afin de le modifier.
Ensuite il faut le recompiler sur la base (par sql+).

[Mat67]

Merci, mais j'ai un autre problème...
Je viens de modifier le package (ajouté des champs a une table) est-ce que je dois également ajouté ces mêmes champs a la table sous sql+ (à l'aide de ALTER TABLE ... ADD...), ou le package le fait automatiquement.

Voilci le package original de la table que je souhaitre modifier :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
   PROCEDURE maj_cre_grcclient(
   GCL_NO IN OUT varchar2,
   GCL_INTERV IN varchar2,
   GCL_SITE IN varchar2,
   GCL_VILLE IN varchar2,
   mode_appel IN NUMBER,
   err_num OUT NUMBER,
   err_msg OUT VARCHAR2);
 
/////////////////////
 
 
PROCEDURE maj_cre_grcclient(
   GCL_NO IN OUT varchar2,
   GCL_INTERV IN varchar2,
   GCL_SITE IN varchar2,
   GCL_VILLE IN varchar2,
   mode_appel IN NUMBER,
   err_num OUT NUMBER,
   err_msg OUT VARCHAR2) IS
 
   /* mode_appel = 1  ==> MODE MAJ
      mode_appel = 2  ==> MODE CREATION
      mode_appel = 3  ==> MODE SUPPRESSION */
 
   enreg_utilise EXCEPTION;
 
BEGIN
   BEGIN
      IF mode_appel = 1 THEN  /* MODE MAJ */
         update grcclient set
            GCLINTERV=GCL_INTERV,
            GCLSITE=GCL_SITE,
            GCLVILLE=GCL_VILLE
         where GCLNO=GCL_NO;
 
      ELSIF mode_appel = 2 THEN /* MODE CREATION */
         select seqgrcclient.nextval into GCL_NO from dual;
         insert into grcclient(
            GCLNO, GCLINTERV, GCLSITE, GCLVILLE)
         values (
            GCL_NO, GCL_INTERV, GCL_SITE, GCL_VILLE);
 
      ELSIF mode_appel = 3 THEN /* MODE SUPPRESSION */
         delete from grcclient where GCLNO = GCL_NO;
 
      ELSE
         err_num := mode_appel;
         err_msg := 'MODE D''APPEL DE LA PROCEDURE NON PRIS EN CHARGE';
      END IF;
      COMMIT WORK;
 
   EXCEPTION
      WHEN DUP_VAL_ON_INDEX THEN
         ROLLBACK WORK;
         err_num := SQLCODE;
         err_msg := 'EXISTE';
      WHEN enreg_utilise THEN
         ROLLBACK WORK;
         err_num := SQLCODE;
         err_msg := 'UTILISE';
      WHEN OTHERS THEN
         ROLLBACK WORK;
         err_num := SQLCODE;
         err_msg := SUBSTR(SQLERRM,1,200);
   END;
END;

et voici ce que j'ai modifié :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

PROCEDURE maj_cre_grcclient(
   GCL_NO IN OUT varchar2,
   GCL_INTERV IN varchar2,
   GCL_SITE IN varchar2,
   GCL_VILLE IN varchar2,
   GCL_ADRESSE IN varchar2,
   GCL_CP IN varchar2,
   mode_appel IN NUMBER,
   err_num OUT NUMBER,
   err_msg OUT VARCHAR2) IS

   /* mode_appel = 1  ==> MODE MAJ
      mode_appel = 2  ==> MODE CREATION
      mode_appel = 3  ==> MODE SUPPRESSION */

   enreg_utilise EXCEPTION;

BEGIN
   BEGIN
      IF mode_appel = 1 THEN  /* MODE MAJ */
         update grcclient set
            GCLINTERV=GCL_INTERV,
            GCLSITE=GCL_SITE,
            GCLVILLE=GCL_VILLE
            GCLADRESSE=GCL_ADRESSE,
            GCLCP=GCL_CP,
         where GCLNO=GCL_NO;

      ELSIF mode_appel = 2 THEN /* MODE CREATION */
         select seqgrcclient.nextval into GCL_NO from dual;
         insert into grcclient(
            GCLNO, GCLINTERV, GCLSITE, GCLVILLE, GCLADRESSE, GCLCP)
         values (
            GCL_NO, GCL_INTERV, GCL_SITE, GCL_VILLE, GCL_ADRESSE, GCL_CP);

      ELSIF mode_appel = 3 THEN /* MODE SUPPRESSION */
         delete from grcclient where GCLNO = GCL_NO;

      ELSE
         err_num := mode_appel;
         err_msg := 'MODE D''APPEL DE LA PROCEDURE NON PRIS EN CHARGE';
      END IF;
      COMMIT WORK;

   EXCEPTION
      WHEN DUP_VAL_ON_INDEX THEN
         ROLLBACK WORK;
         err_num := SQLCODE;
         err_msg := 'EXISTE';
      WHEN enreg_utilise THEN
         ROLLBACK WORK;
         err_num := SQLCODE;
         err_msg := 'UTILISE';
      WHEN OTHERS THEN
         ROLLBACK WORK;
         err_num := SQLCODE;
         err_msg := SUBSTR(SQLERRM,1,200);
   END;
END;

et lorsque je compil tout sa j'obtient des erreurs :

Code :

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

1
2
3
4
5
 
Package créé.
 
 
Attention : Corps de package créé avec erreurs de compilation.

Code :

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

1
2
3
4
5
PACK_ATALGRC                   PACKAGE BODY          1         81          4
PL/SQL: ORA-00933: La commande SQL ne se termine pas correctement
 
PACK_ATALGRC                   PACKAGE BODY          2         77         10
PL/SQL: SQL Statement ignored

Merci d'avance !

[plaineR]

Regarde la syntaxe de ton update, et plus précisément les virgules

[Mat67]

Ah oui tient encore une erreur à la *** ^^

Merci !