Le blog de jsd03 » Oracle

Export des procédures/fonctions/package d’une instance Oracle

jsd03 — Fri, 19 Apr 2013 09:20:58 +0000

Après avoir galéré plusieurs heures afin de pouvoir exporter facilement chaque procédure / package / fonction d’une instance Oracle dans un fichier il me semblait nécessaire de créer un post sur le sujet.

Première chose à savoir : où se trouve le contenu de ces objets ?
2 réponse à cette question :

dans la table USER_SOURCE pour le schéma courant
dans la table DBA_SOURCE pour le schéma SYSTEM afin d’avoir un listing exhaustif de tous les objets

Au regard de ces tables il est donc possible de filtrer sur un schéma et/ou des types d’objets en particulier.

Deuxième élément à connaitre : comment concaténer le contenu du résultat du SELECT sur la table USER_SOURCE ou DBA_SOURCE ?
Réponse : utiliser la fonction DBMS_METADATA.GET_DDL() qui prend en paramètre le type d’objet, le nom de l’objet et schéma.

Troisième et dernier élément : comment écrire tout cela dans un fichier ?
Réponse : en utilisant non pas les procédures du package UTL_FILE comme PUT_RAW() (comme j’avais tenté de le faire en premier lieu…) mais en utilisant la procédure dbms_advisor.create_file() qui prend en paramètre le contenu à écrire (un CLOB), le dossier cible et le nom du fichier.

A savoir que UTL_FILE.PUT_RAW() ne peut écrire un fichier plus gros que 32766Byte… d’où l’utilisation de dbms_advisor.

Un pré-requis également à connaitre : il faut que le compte SYSTEM puisse écrire dans le DIRECTORY cible.

Et voilà donc le résultat :

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

DECLARE

vContent CLOB;
vFile utl_file.file_type;
vCurrentUser VARCHAR2(30) DEFAULT user;
vDirectoryName VARCHAR2(255) default 'DATA_PUMP_DIR';
vFileName VARCHAR2(1000);

BEGIN

FOR C1 IN (
SELECT distinct OWNER, NAME, TYPE
FROM DBA_SOURCE
WHERE OWNER NOT IN ('SYS', 'SYSTEM', 'OUTLN', 'DBSNMP', 'XDB', 'EXFSYS', 'CTXSYS', 'MDSYS', 'ORDSYS', 'OLAPSYS', 'WMSYS', 'SYSMAN', 'ORDPLUGINS')
AND OWNER NOT LIKE 'APEX%'
AND TYPE IN ('PACKAGE', 'FUNCTION', 'PROCEDURE')
) LOOP

vCurrentUser := C1.OWNER;

SELECT DBMS_METADATA.GET_DDL(C1.TYPE, C1.NAME, vCurrentUser)
INTO vContent
FROM dual;

vFileName := vCurrentUser || '.' || C1.TYPE || '.' || C1.NAME || '.sql';

BEGIN

dbms_advisor.create_file(vContent, vDirectoryName, vFileName);

EXCEPTION WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Erreur lors de l''écriture dans le fichier ' || vFileName);

END;

END LOOP;

END;

Activation/désactivation d’indexe

jsd03 — Wed, 20 Feb 2013 13:02:13 +0000

Avant quand je voulais désactivé un indexe, je le supprimai car il me semblait que s’était impossible de le désactiver (comme une contrainte avec l’option DISABLE).

Et puis finalement il y avait bien une option pour ne pas avoir à supprimer un indexe juste pour le désactiver.

Voici la méthode pour par exemple désactiver les indexes d’une table avant insertion dans cette dernière (ce qui permet d’accélérer les traitements) :

1
2
3
4
5
6
7
8
9
10
11
12
13

BEGIN
FOR C1 IN (
SELECT INDEX_NAME
FROM user_indexes
WHERE TABLE_NAME = 'MA_TABLE'
AND INDEX_NAME LIKE 'IDX%'
) LOOP

EXECUTE IMMEDIATE 'ALTER INDEX ' || C1.INDEX_NAME || ' UNUSABLE';

END LOOP;

END;

Ensuite pour les réactiver :

1
2
3
4
5
6
7
8
9
10
11
12
13
14

BEGIN

FOR C1 IN (
SELECT INDEX_NAME
FROM user_indexes
WHERE TABLE_NAME = 'MA_TABLE'
AND INDEX_NAME LIKE 'IDX%'
) LOOP

EXECUTE IMMEDIATE 'ALTER INDEX ' || C1.INDEX_NAME || ' REBUILD';

END LOOP;

END;

Filtrage non égalitaire avec Oracle

jsd03 — Tue, 29 Jan 2013 09:36:18 +0000

Ce titre d’article semble bateau au premier abord mais il me semble essentiel de parler de cette expérience pour le moins « étrange » avec un filtre sur j’ai effectué sur Oracle ces jours-ci.

Le filtre suivant :

1	WHERE maColonne != 'uneValeur'

renvoi, contrairement à ce que j’aurai pensé, toutes les lignes de ma table dont la colonne « maColonne » est différente de ‘uneValeur’ (jusque là tout va bien) mais également les lignes où « maColonne » IS NULL !

Et oui il semblerait qu’il faille rajouter

1	OR maColonne IS NOT NULL

Exemple :

1
2
3
4
5
6
7
8
9
10
11
12
13

SELECT *
FROM
(
SELECT null as maColonne
FROM dual
UNION
SELECT 'uneValeur'
FROM dual
UNION
SELECT 'uneAutreValeur'
FROM dual
)
where maColonne != 'uneValeur'

Renvoi une seule ligne alors que

1
2
3
4
5
6
7
8
9
10
11
12
13
14

SELECT *
FROM
(
SELECT null as maColonne
FROM dual
UNION
SELECT 'uneValeur'
FROM dual
UNION
SELECT 'uneAutreValeur'
FROM dual
)
where (maColonne != 'uneValeur'
OR maColonne IS NULL)

renvoi bien deux lignes…

Ajouter une année à une date

jsd03 — Wed, 16 Jan 2013 21:12:23 +0000

Pour ajouter une année à une date on aurait tendance à faire :

1	select sysdate + 365 AS ANNEE_SUP from dual;

Ou :

1	select ADD_MONTHS(sysdate, 12) AS ANNEE_SUP from dual;

Mais en fin de compte la bonne syntaxe est :

1	select sysdate + interval '1' year AS ANNEE_SUP from dual;

Effectivement :

la première solution suivant si on se place dans une année bissextile ou pas ne fonctionnera pas
la seconde solution de ce que j’ai pu en lire sur un site officiel Oracle ne marche pas non plus à tous les coups encore une fois à cause de ces années bissextiles…
du coup ajouter un intervalle fonctionnel à 100% ! alors surtout quand vous voulez ajouter une année à une date utiliser « interval » !

Compter les lignes des tables d’un schéma en PL/SQL

jsd03 — Wed, 16 Jan 2013 12:53:09 +0000

Pour compter le nombre de lignes de toutes les tables d’un schéma Oracle il est nécessaire d’utiliser le bloc anonyme suivant :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

DECLARE
nbLignes NUMBER := 0;
BEGIN

FOR C1 IN (
select TABLE_NAME
from user_tables
) LOOP

EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || C1.TABLE_NAME INTO nbLignes;

DBMS_OUTPUT.PUT_LINE(C1.TABLE_NAME || ': ' || nbLignes);

END LOOP;
END;

Il est bien évidement possible de filtrer les tables en ajoutant une instruction WHERE dans la requête du curseur C1

Création et alimentation d’une dimension DATE

jsd03 — Tue, 15 Jan 2013 22:20:57 +0000

Lors de la création d’un entrepôt de données, bien souvent, il contient une dimension DATE contenant la liste des dates depuis l’année 1900 jusqu’à l’année 2999. Cette table contenant plusieurs attributs comme par exemple :

La date au format date
La date au format chaine de caractère sous la forme DD/MM/YYYY
La date au format numérique sous la forme YYYYMMDD
Le jour de l’année
…

Voici donc un exemple de création de DIM_DATE en Oracle.

Tout d’abord la description de la DIM_DATE :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

create table DIM_DATE
(
ID_DATE NUMBER(8) not null,
DATE_DU_JOUR DATE not null,
ANNEE_CALENDAIRE NUMBER(4),
SEMESTRE NUMBER(1),
LIBELLE_SEMESTRE VARCHAR2(250 CHAR),
TRIMESTRE NUMBER(1),
LIBELLE_TRIMESTRE VARCHAR2(250 CHAR),
ANNEE_MOIS NUMBER(6),
MOIS NUMBER(2),
LIBELLE_MOIS VARCHAR2(250 CHAR),
SEMAINE NUMBER(2),
JOUR NUMBER(2),
LIBELLE_JOUR VARCHAR2(250 CHAR),
JOUR_FERIE CHAR(3 CHAR),
JOUR_OUVRE CHAR(3 CHAR),
QUANTIEME_JOUR NUMBER
);

Et son chargement avec un simple ordre INSERT et une requête SELECT hiérarchique :

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

INSERT INTO DIM_DATE (ID_DATE, DATE_DU_JOUR, ANNEE_CALENDAIRE, SEMESTRE, LIBELLE_SEMESTRE, TRIMESTRE, LIBELLE_TRIMESTRE, ANNEE_MOIS,MOIS, LIBELLE_MOIS, SEMAINE, JOUR, LIBELLE_JOUR, JOUR_FERIE, JOUR_OUVRE, QUANTIEME_JOUR)
SELECT
TO_NUMBER(TO_CHAR(DT_CAL, 'YYYYMMDD')) AS ID_CALENDRIER,
DT_CAL AS DATE_DU_JOUR,
TO_NUMBER(TO_CHAR(DT_CAL, 'YYYY')) AS ANNEE_CALENDAIRE,
ROUND(TO_NUMBER(TO_CHAR(DT_CAL, 'Q'))/2) AS SEMESTRE,
CASE ROUND(TO_NUMBER(TO_CHAR(DT_CAL, 'Q'))/2) WHEN 1 THEN '1er semestre' ELSE '2ème semestre' END AS LIBELLE_SEMESTRE,
TO_NUMBER(TO_CHAR(DT_CAL, 'Q')) AS TRIMESTRE,
CASE TO_NUMBER(TO_CHAR(DT_CAL, 'Q')) WHEN 1 THEN '1er trimestre' ELSE TO_NUMBER(TO_CHAR(DT_CAL, 'Q')) || 'ème trimestre' END AS LIBELLE_TRIMESTRE,
TO_NUMBER(TO_NUMBER(TO_CHAR(DT_CAL, 'YYYY')) || LPAD(TO_CHAR(DT_CAL, 'MM'), 2, '0')) AS ANNEE_MOIS,
TO_NUMBER(TO_CHAR(DT_CAL, 'MM')) AS MOIS,
TO_CHAR(DT_CAL, 'Month') AS LIBELLE_MOIS,
TO_NUMBER(TO_CHAR(DT_CAL, 'IW')) AS SEMAINE,
TO_NUMBER(TO_CHAR(DT_CAL, 'DD')) AS JOUR,
TO_CHAR(DT_CAL, 'Day') AS LIBELLE_JOUR,
CASE WHEN TO_CHAR(DT_CAL, 'D') IN ('6', '7') THEN 'Oui' ELSE 'Non' END AS JOUR_FERIE,
CASE WHEN TO_CHAR(DT_CAL, 'D') IN ('6', '7') THEN 'Non' ELSE 'Oui' END AS JOUR_OUVRE,
NUM_JOUR AS QUANTIEME_JOUR
FROM
(
SELECT to_date('19000101','YYYYMMDD') + (rownum - 1) AS DT_CAL, rownum AS NUM_JOUR
FROM dual
connect BY to_date('19000101','YYYYMMDD') + (rownum - 1) <= to_date('29991231','YYYYMMDD')
);

COMMIT;

Modification d’une séquence Oracle en PL/SQL

jsd03 — Tue, 15 Jan 2013 21:51:37 +0000

Pour modifier une séquence existante il est nécessaire de la supprimer puis de la recréer. Pour effectuer cela facilement, il est possible de tester son existence dans un bloc PL/SQL anonyme et en fonction de son existence de la supprimer puis la créer :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

DECLARE
existe NUMBER(1) := 0;
seqName VARCHAR2(30) := 'MA_SEQUENCE';

BEGIN

select COUNT(*) INTO existe
from user_sequences
WHERE SEQUENCE_NAME = seqName;

IF existe = 1 THEN

EXECUTE IMMEDIATE 'DROP SEQUENCE ' || seqName;

END IF;

EXECUTE IMMEDIATE 'create sequence ' || seqName || ' increment by 1 start with 1 minvalue -2 nocycle noorder nocache';

END;