Accueil > > > PACKAGE ORACLE -- OUTILS APPLICATIFS
PACKAGE ORACLE -- OUTILS APPLICATIFS
Information sur la source
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
Sources de la même categorie
Commentaires et avis
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é
|
Derniers Blogs
[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey
L'émulateur Windows Phone 7, fourni avec la version Beta des outils développeurs n'inclut aucune image dans sa bibliothèque. Pas très pratique de tester son application lorsque l'on souhaite que l'utilisateur puisse choisir une image présente dans le télé...
Cliquez pour lire la suite de l'article par Audrey VIVE LES MOCKS ET LES POCOSVIVE LES MOCKS ET LES POCOS par vLabz
J'observe régulièrement autour de moi de la confusion à propos de ces deux termes et j'aimerais juste rappeler ce qu'ils signifient. Je ne suis bien sûr pas le mieux placé pour faire une leçon mais je vais faire de mon mieux pour mettre en valeur ce q...
Cliquez pour lire la suite de l'article par vLabz [WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5)[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson
Vendredi dernier Microsoft a publié le quatrième épisode des bonnes pratiques pour coder ses activités custom dans WF4 : endpoint.tv - Workflow and Custom Activities - Best Practices (Part 4) . Tout comme pour les précédents épisodes, j'ai pris le temps d...
Cliquez pour lire la suite de l'article par JeremyJeanson DéVELOPPEMENT MOBILE : .NET COMPACT FRAMEWORK & LIMITATIONSDéVELOPPEMENT MOBILE : .NET COMPACT FRAMEWORK & LIMITATIONS par Pi-R
Introduction :
Le développement d'applications mobiles est quelque peu différent du développement d'applications sous Windows. En effet, le développement d'applications mobiles se base sur le .NET Compact Fra...
Cliquez pour lire la suite de l'article par Pi-R IPHONE VERSUS WP7 CODINGIPHONE VERSUS WP7 CODING par Nicolas
Je relais une présentation sur slideshare.net, qui compare le développement sur Iphone et Windows Phone 7, qui ma fait sourire. I phone versus windows phone 7 coding View more presentations from www.donburnett.com. J'aurais bien aimé une comparai...
Cliquez pour lire la suite de l'article par Nicolas
Logiciels
Xilisoft HD Vidéo Convertisseur 6 (6.0.3.0421)XILISOFT HD VIDéO CONVERTISSEUR 6 (6.0.3.0421)Xilisoft HD Vidéo Convertisseur est un outil professionnel de conversion HDTV, conçu pour transfo... Cliquez pour télécharger Xilisoft HD Vidéo Convertisseur 6 Xilisoft MP4 Convertisseur 6 (6.0.2.0415)XILISOFT MP4 CONVERTISSEUR 6 (6.0.2.0415)Xilisoft MP4 Convertisseur est un outil puissant pour la conversion de vidéo MP4, qui peut conver... Cliquez pour télécharger Xilisoft MP4 Convertisseur 6 Vade Retro Desktop (3.03)VADE RETRO DESKTOP (3.03)Le logiciel antispam Vade Retro pour Microsoft Outlook®, Outlook Express® et Windows Mail®(Vista)... Cliquez pour télécharger Vade Retro Desktop Malwarebytes Anti Malwares (1.46)MALWAREBYTES ANTI MALWARES (1.46)Malwarebytes' Anti-Malware est un anti-malware qui peut éliminer même les plus avancés des logic... Cliquez pour télécharger Malwarebytes Anti Malwares
|