Package oracle -- outils applicatifs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 937 fois - Téléchargée 18 fois

Contenu du snippet

Ce package Oracle présente deux outils applicatifs:
  • une procédure de drop conditionnel d'objet Oracle (appartenant au schéma en cours d'utilisation).
  • une procédure d'analyse d'objet Oracle (appartenant au schéma en cours d'utilisation).


Ce code m'a souvent été utile et je le conseille systématiquement lors de la mise en place d'une application PL/SQL.

Il se décompose en deux fichiers sql à passer l'un après l'autre :
  • 001_tab_tools.sql : permet de créer les objets Oracle qui seront nécessaires au bon fonctionnement des outils.
  • 002_pkg_tools.sql : les outils en question.

Source / Exemple :


--------------------------------------------------------------------------------
-- Nom: 001_tab_tools.sql                                                     --
-- Version: 1.0 du 07/05/2007                                                 --
-- Auteur: Sébastien GORIAUD                                                  --
--------------------------------------------------------------------------------
-- Date de création: 07/05/2007                                               --
--------------------------------------------------------------------------------
-- Description:                                                               --
-- Création d'objets pour l'utilisation du package d'utilitaires              -- 
--------------------------------------------------------------------------------
-- Notes:                                                                     --
--                                                                            --
--------------------------------------------------------------------------------
-- Historique:                                                                --
--  07/05/2007  - Création                                                    --
--------------------------------------------------------------------------------
-- Paramètres:                                                                --
--  Aucun                                                                     --
--------------------------------------------------------------------------------
-- Liste des objets:                                                          --
--  TAB_LOG_ACT         : table de log                                        --
--  SEQ_LOG_ID          : séquence d'identifiants de log                      --
--------------------------------------------------------------------------------

CREATE TABLE TAB_LOG_ACT
(
  LOG_ID                      NUMBER(5)       NOT NULL  ,
  LOG_TIMESTAMP               DATE            NOT NULL  ,
  LOG_ACTION                  VARCHAR2(100)             ,
  LOG_DESCRIPTION             VARCHAR2(2000)
);

CREATE SEQUENCE SEQ_LOG_ID 
     START WITH 1 
     INCREMENT BY 1 
     MAXVALUE 99999 
     NOCACHE 
     CYCLE;

--------------------------------------------------------------------------------
-- Nom: 002_pkg_tools.sql                                                     --
-- Version: 1.0 du 07/05/2007                                                 --
-- Auteur: Sébastien GORIAUD                                                  --
--------------------------------------------------------------------------------
-- Date de création: 07/05/2007                                               --
--------------------------------------------------------------------------------
-- Description:                                                               --
-- Package utilitaires                                                        -- 
--------------------------------------------------------------------------------
-- Notes:                                                                     --
--                                                                            --
--------------------------------------------------------------------------------
-- Historique:                                                                --
--  07/05/2007  - Création                                                    --
--------------------------------------------------------------------------------
-- Paramètres:                                                                --
--  Aucun                                                                     --
--------------------------------------------------------------------------------
-- Liste des fonctions et procédures du package:                              --
--  PRC_LOG_ACT         : procédure de log                                    --
--  PRC_DROP_OBJ        : procédure de drop conditionnel                      --
--  PRC_ANALYZE_OBJ     : procédure d'analyse des objets                      --
--------------------------------------------------------------------------------
-- #############################################################################
-- ### Package PKG_TOOLS (header)                                            ###
-- #############################################################################
CREATE OR REPLACE PACKAGE PKG_TOOLS AS 

  PROCEDURE PRC_LOG_ACT                 ( p_action                IN VARCHAR2,
                                          p_father_code           IN VARCHAR2,
                                          p_description           IN VARCHAR2 );
  PROCEDURE PRC_DROP_OBJ                ( p_obj_name              IN VARCHAR2 );
  PROCEDURE PRC_ANALYZE_OBJ             ( p_obj_name              IN VARCHAR2 );

END PKG_TOOLS;
/

-- #############################################################################
-- ### Package PKG_TOOLS (body)                                              ###
-- #############################################################################

CREATE OR REPLACE PACKAGE BODY PKG_TOOLS AS

PROCEDURE PRC_LOG_ACT   ( p_action        IN VARCHAR2,
                          p_father_code   IN VARCHAR2,
                          p_description   IN VARCHAR2 ) IS
PRAGMA AUTONOMOUS_TRANSACTION;

BEGIN

  INSERT INTO TAB_LOG_ACT
  (
      LOG_ID,
      LOG_TIMESTAMP,
      LOG_ACTION,
      LOG_DESCRIPTION
  ) VALUES  (
      SEQ_LOG_ID.NEXTVAL,
      SYSDATE,
      p_action,
      p_father_code || ': ' || p_description
  );

  COMMIT;

END PRO_LOG_OCP;

PROCEDURE PRC_DROP_OBJ (  p_obj_name IN VARCHAR2 ) IS
  v_nb_obj      PLS_INTEGER := 0;
  v_obj_type    VARCHAR2(25);
  v_txt_drop    VARCHAR2(2000);
  v_msg         VARCHAR2(2000);
  v_code_ret    VARCHAR2(10);
  EXCEP_NBOBJ   EXCEPTION;
  PRAGMA EXCEPTION_INIT(EXCEP_NBOBJ, -20001);

BEGIN

    SELECT COUNT(*)
    INTO v_nb_obj
    FROM USER_OBJECTS
    WHERE UPPER(OBJECT_NAME)=UPPER(p_obj_name)
    AND OBJECT_TYPE IN ('TABLE', 'INDEX', 'SYNONYM', 'VIEW', 'SEQUENCE', 'PACKAGE', 'PROCEDURE');

    CASE
      WHEN  v_nb_obj = 0 THEN
        v_msg := 'Objet ' || p_obj_name || ' inexistant: aucune action requise.';
        Dbms_Output.put_line(v_msg);
        PKG_TOOLS.PRC_LOG_ACT('DROP OBJECT', 'PRC_DROP_OBJ', v_msg);
      WHEN  v_nb_obj = 1 THEN
        SELECT OBJECT_TYPE
        INTO v_obj_type
        FROM USER_OBJECTS
        WHERE UPPER(OBJECT_NAME) = UPPER(p_obj_name);
        
        v_txt_drop := 'DROP ' || v_obj_type || ' ' || p_obj_name;
        IF ( v_obj_type = 'TABLE' ) THEN v_txt_drop := v_txt_drop || ' CASCADE CONSTRAINTS';
        EXECUTE IMMEDIATE v_txt_drop;
        
        v_msg := v_txt_drop || ': exécuté.';
        PKG_TOOLS.PRC_LOG_ACT('DROP OBJECT', 'PRC_DROP_OBJ', v_msg);
      ELSE
        v_msg := 'Plusieurs objets ' || p_obj_name || ' existent: veuillez contacter votre DBA.';
        Dbms_Output.put_line(v_msg);
        PKG_TOOLS.PRC_LOG_ACT('DROP OBJECT', 'PRC_DROP_OBJ', v_msg);
        RAISE EXCEP_NBOBJ;
    END;

EXCEPTION
  WHEN OTHERS THEN
    MESSAGE := MESSAGE||'ERREUR CODE : ' || SQLCODE || ' MESSAGE : ' || SQLERRM;
    CODE_REJET := 'SQL' || SQLCODE;
    RAISE_APPLICATION_ERROR (-20001, MESSAGE);

END PRC_DROP_OBJ;

PROCEDURE PRC_ANALYZE_OBJ ( p_obj_name    IN VARCHAR2 ) IS
  v_nb_obj      PLS_INTEGER := 0;
  v_obj_type    VARCHAR2(25);
  v_txt_analyze VARCHAR2(2000);
  EXCEP_NBOBJ   EXCEPTION;
  PRAGMA EXCEPTION_INIT(EXCEP_NBOBJ, -20001);

BEGIN

    SELECT COUNT(*)
    INTO v_nb_obj
    FROM USER_OBJECTS
    WHERE UPPER(OBJECT_NAME)=UPPER(p_obj_name)
    AND OBJECT_TYPE IN ('TABLE', 'INDEX');

    CASE
      WHEN  v_nb_obj = 0 THEN
        v_msg := 'Objet ' || p_obj_name || ' inexistant: aucune action requise.';
        Dbms_Output.put_line(v_msg);
        PKG_TOOLS.PRC_LOG_ACT('ANALYZE OBJECT', 'PRC_ANALYZE_OBJ', v_msg);
      WHEN  v_nb_obj = 1 THEN
        SELECT OBJECT_TYPE
        INTO v_obj_type
        FROM USER_OBJECTS
        WHERE UPPER(OBJECT_NAME) = UPPER(p_obj_name);
        v_txt_analyze := 'ANALYZE ' || v_obj_type || ' ' || p_obj_name || ' COMPUTE STATISTICS';
        EXECUTE IMMEDIATE v_txt_analyze;
        v_msg := v_txt_analyze || ': exécuté.';
        PKG_TOOLS.PRC_LOG_ACT('ANALYZE OBJECT', 'PRC_ANALYZE_OBJ', v_msg);
      ELSE
        v_msg := 'Plusieurs objets ' || p_obj_name || ' existent: veuillez contacter votre DBA.';
        Dbms_Output.put_line(v_msg);
        PKG_TOOLS.PRC_LOG_ACT('ANALYZE OBJECT', 'PRO_ANALYZE_OBJ', v_msg);
        RAISE EXCEP_NBOBJ;
    END;

EXCEPTION
  WHEN OTHERS THEN
    MESSAGE := MESSAGE||'ERREUR CODE : ' || SQLCODE || ' MESSAGE : ' || SQLERRM;
    CODE_REJET := 'SQL' || SQLCODE;
    RAISE_APPLICATION_ERROR (-20001, MESSAGE);

END PRC_ANALYZE_OBJ;

END PKG_TOOLS;
/

Conclusion :


N'hésitez pas à laisser des commentaires.

J'espère que ce code pourra être utile à quelqu'un.

A voir également

Ajouter un commentaire

Commentaire

a123a
Messages postés
3
Date d'inscription
jeudi 12 mars 2009
Statut
Membre
Dernière intervention
20 mars 2009
-
package de l'excel?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.