CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 09 14:45:09

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

PACKAGE ORACLE -- OUTILS APPLICATIFS

Information sur la source

Note :
Aucune note

Catégorie :Procédure Classé sous :oracle Niveau :Initié Date de création :07/05/2007 Vu :6 361

Auteur : sgoriaud

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Commentaire sur cette source (1)

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.

Sources du même auteur

REQUÊTE SQL POUR DÉTERMINER L'ESPACE OCCUPÉ DANS LES TABLESP...

PROCEDURE ORACLE DE DÉPLACEMENT D'INDEXES ET CONTRAINTES INV...

Toutes les sources de sgoriaud

Sources de la même categorie

(SQL SERVER) REQUÊTE POUR RECHERCHER UN {GUID} DANS TOUS LES... par lassaad83

[ORACLE]DÉTERMINER LA DATE DU PREMIER JOUR D'UNE SEMAINE PAR... par Bouillou2

T-SQL - PROCÉDURE - STOCKÉE - PLACER DANS UNE TABLE LE RÉSUL... par zavier666

SQL LECTURE IMPORT DE FICHIER TEXTE par PHILIPPO

GÉNÉRER DES REQUETES INSERT À PARTIR DES DONNÉES EXISTANTES ... par lassaad83

Toutes les sources de la catégorie Procédure

Sources en rapport avec celle ci

[ORACLE]DÉTERMINER LA DATE DU PREMIER JOUR D'UNE SEMAINE PAR... par Bouillou2

REQUÊTE SQL POUR DÉTERMINER L'ESPACE OCCUPÉ DANS LES TABLESP... par sgoriaud

AJOUT , SUPPRESSION INTERVALLE DE TEMPS EN PLSQL par lamjed

REQUETE SUPPRESSION DE DOUBLON SOUS ORACLE par lamjed

COMPILER LES OBJECTS EN ERREUR SOUS ORACLE par truffe

Commentaires et avis

Commentaire de a123a le 20/03/2009 23:02:29

package de l'excel?

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Oracle vs Sql server vs Access [ par Fildomen ] salutpouvez-vous me donner le comparatif entre ces trois (Oracle,Sql server,Access)?? et qui es le plus rapide entre eux(un classement)?mercihttp://ww liste des requetes sous oracle V6 [ par enrageur ] Je cherche un site ou je pourais trouver la liste des requetes pour programmer sous Oracle V6.Merci passage mysql-> oracle [ par trabice ] Bonjour a tousdésolé je me suis trompé de forum...http://www.vbfrance.com/forum.v2.aspx?ID=350567&post=okmerci de jeter un coup d oeil.bonne continuat fonctionnalités ODBC oracle [ par trabice ] Bonjoursuite à la volonté d'un client de passer d'une passe MYSQL à une base ORACLE.Je m'interroge quant aux fonctions assurées par l'ODBC,notamment p trou dans ma table oracle [ par bigood69 ] Bonjour,A cause d'une fausse manipulation asp:chaine de connexion oracle [ par abari ] salut tout le monde, svp,j'ai un probléme c'est que j'arrive pas a se connecter a un serveur oracle a distant depuis ma page asp, voila mon code conseils sur les bases de données [ par oraclebd ]    bonjour , je suis étudiant en informatique ,j'ai étudié PASCAL,C,C++  ,structures de données,algorithmique, MERI Oracle 7.3.4 [ par mich2000 ] Bonjour Je suis a la recherche de la version d'Oracle 7.3.4 si qlq peux me rendre ce service. Merci d'avance Update sur Oracle [ par the_smurf ] Bonjour!Je cherche à mettre à jour une colonne d'une table oracle à partir d'une autre.Voici ma requête. Elle est syntaxiquement c requete système ... [ par d_morio ] Bonjour à tous,Voici mon soucis:Je voudrais repérer dans une BD Oracle l'ensemble des tables possédant l'attribut XXX, afin de pré

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

VISUAL STUDIO 2010 AND .NET FRAMEWORK 4 RELEASE CANDIDATE NOW AVAILABLE par Matthieu MEZIL

CRéATION D'UNE BASE DE DONNéE SOUS SQL AZURE par junarnoalg

TECHDAYS PARIS 2010 : LES SERVICES D'APPLICATIONS DANS SHAREPOINT 2010 par ROMELARD Fabrice

Forum

PROCEDURE MYSQL par gearmat

RE : CONVERSION VARCHAR EN INT par cudenetf

RE : FUSIONNER DES COLONNES DANS MYSQL par allaryane

RE : SELECT ET CAST ... par cudenetf

PROGRAMME : BASE DONNéES EN SQL SOUS ORACLE URGENT !!!! (CREATION D'UN QCM) par tutu93800

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Nouveau module Dolibarr
Budget : 700€
Charte graphique - joomla
Budget : 400€
SITE VENTE ENCHERES
Budget : 2 700€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5