• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • SQL CodeS-SourceS
begin process at 2008 08 08 23:24:26
1 223 648 membres
406 nouveaux aujourd'hui
14 230 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PACKAGE ORACLE -- OUTILS APPLICATIFS


Information sur la source

Catégorie :Procédure Classé sous : oracle Niveau : Initié Date de création : 07/05/2007 Vu : 3 270
Auteur : sgoriaud Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
Aucune note
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

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

  • --------------------------------------------------------------------------------
  • -- 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;
  • / 
--------------------------------------------------------------------------------
-- 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.
    Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source

Oracle vs Sql server vs Access par Fildomen

liste des requetes sous oracle V6 par enrageur

passage mysql-> oracle par trabice

fonctionnalités ODBC oracle par trabice

trou dans ma table oracle par bigood69

asp:chaine de connexion oracle par abari

conseils sur les bases de données par oraclebd

Oracle 7.3.4 par mich2000

Update sur Oracle par the_smurf

requete système ... par d_morio

Pub



Appels d'offres

Programmateur Asp anti...
Budget : 300€
Formulaire Php avec an...
Budget : ND
Asistance web service ...
Budget : 150€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
C2i.fr forum informatique Dotnet-News.com TechHeadBrothers.com Feed247,com Toute l'actu Internet 24h/24 7J/7 Colocation dans toute la France


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
SQLfr.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,3594-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.