Discussion :

[Paxaranne]

Bonjour,

Ce problème doit être déjà résolu sur le forum mais je n'arrive pas à tomber dessus.

Je reçois un fichier XML pour lequel je dois insérer les données dans une table oracle. Je ne veux pas insérer le fichier entier dans une variable CLOB de ma table.

Nous disposons de 2 procédures.
1) Une qui prend le fichier et le transforme en CLOB par un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DBMS_LOB.LOADFROMFILE(VLOBD, V_FICHIER, DBMS_LOB.LOBMAXSIZE);

2) Une qui fait l'insertion dans la table en appliquant une transformation en XSL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 DBMS_XMLSTORE.INSERTXML(V_INSCTX,XMLTYPE.TRANSFORM(V_XML_IN , V_XSL_IN))

D'après ce que j'aurais compris par mes lectures, un formatage est appliqué en bonne et due forme du XML en XSL avant d'insérer les données dans la table dont le nom est contenu dans V_INSCTX.

Moi je reçois juste le fichier XML. Je connais les champs que je dois insérer dans ma table. Je suppose qu'il faut maintenant que j'écrive un XSL en y spécifiant mes noms de colonnes. Etant débutant, mes procédures se plantent car mon XSL n'est pas bon.

Quelqu'un pourrait-il me donner un exemple XSL d'une table TOTO comportant 3 champs Identifiant, Nom et Prénom ?

Je me perds avec les for each

J'ai qque chose de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<?xml version="1.0"?>
<xsl:stylesheet
 xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
 version="1.0">
 <xsl:template match="/">
    <ROWSET>
           <xsl:for-each select="TOTO"> 
       <ROW> 
            <ID_DOSSIER>
                <xsl:value-of select="id_dossier" />
            </ID_DOSSIER>
            <NOM>
                <xsl:value-of select="NOM" />
            </NOM>
            <PRENOM>
                <xsl:value-of select="PRENOM" />
            </PRENOM>
      </ROW>
         </xsl:for-each>
   </ROWSET>      
 </xsl:template>       
</xsl:stylesheet>

Merci,

[Erwy]

Il nous faut la structure de ton xml de départ pour t'aider

Je présume qu'il n'est pas au format canonique ?


PS: Je serais intéressé par la suite des événements.

J'ai un peu la même problématique et on avait pensé à la même chose mais en passant par les package dbms_xslprocessor et dbms_xmlsave mais on regarde maintenant du coté de SQL Loader qui semble pouvoir être paramétré pour du XML

[Paxaranne]

Bonjour Erwy,

Merci d'avoir répondu.

Comme je suis en test, je n'ai pas encore reçu le vrai fichier XML, mais j'en ai simulé un par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
declare
  fxml clob;
begin
    fxml := dbms_xmlgen.getxml ('Select * from TOTO');
    dbms_output.Put_line (fxml);
end;

Voici ce que j'ai obtenu et que j'ai mis dans le répertoire approprié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<?xml version="1.0"?>
<ROWSET>
 <ROW>
  <ID_DOSSIER>1</ID_DOSSIER>
  <NOM>Chartran</NOM>
  <PRENOM>Norbert</PRENOM>
 </ROW>
 <ROW>
  <ID_DOSSIER>2</ID_DOSSIER>
  <NOM>Puce</NOM>
  <PRENOM>Placide</PRENOM>
 </ROW>
 <ROW>
  <ID_DOSSIER>3</ID_DOSSIER>
  <NOM>Caillou</NOM>
  <PRENOM>Pilou</PRENOM>
 </ROW>
</ROWSET>

Voici la procédure d'insertion que nous avons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CREATE OR REPLACE PROCEDURE GIP_PC_INS_XML(V_NOM_TABLE IN VARCHAR2,V_XML_IN  XMLTYPE,V_XSL_IN  XMLTYPE) IS
   V_INSCTX    DBMS_XMLSTORE.CTXTYPE;
   V_NB_LIGNES NUMBER(10);
BEGIN
   V_INSCTX := DBMS_XMLSTORE.NEWCONTEXT(V_NOM_TABLE);
   V_NB_LIGNES := DBMS_XMLSTORE.INSERTXML(V_INSCTX,XMLTYPE.TRANSFORM(V_XML_IN, V_XSL_IN));
   DBMS_XMLSTORE.CLOSECONTEXT(V_INSCTX);
 
   EXCEPTION
    WHEN OTHERS THEN
     INSERT INTO UTL_GIP112_TMP2 (ID_ERREUR,DESC_MSG)
     VALUES('MSG-808E',UTL_FC_ERRMSG('MSG-808E'));
     DBMS_OUTPUT.PUT_LINE('MSG-808E'||';'||UTL_FC_ERRMSG('MSG-808E'));
END;
/

Voici la procédure de chargement que nous avons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
CREATE OR REPLACE PROCEDURE GIP_PC_CHARGER_FICHIER_LOB(VLOBD OUT CLOB,	 VFILE VARCHAR2, VDIR VARCHAR2) IS
  V_FICHIER BFILE := BFILENAME(VDIR,VFILE);
BEGIN
  VLOBD := ' ';
  DBMS_LOB.OPEN(VLOBD,DBMS_LOB.LOB_READWRITE);
  DBMS_LOB.FILEOPEN(V_FICHIER, DBMS_LOB.FILE_READONLY);
  DBMS_LOB.LOADFROMFILE(VLOBD, V_FICHIER, DBMS_LOB.LOBMAXSIZE);
 
  DBMS_LOB.CLOSE(V_FICHIER);
  DBMS_LOB.CLOSE(VLOBD);
 
END;
/

Ma procédure celle que j'ai écrite et qui utilise les 2 premières pour faire mon insertion est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
CREATE OR REPLACE PROCEDURE Ins_TOTO IS
 
    V_XML_DOC           CLOB;
    V_FICH_XML          VARCHAR2(50);
    V_XSL_DOC           CLOB;
    V_FICH_XSL          VARCHAR2(50);
    V_XML                 XMLTYPE;
    V_XSL                  XMLTYPE;
    V_REPERTOIRE_XML    VARCHAR2(50);
    V_REPERTOIRE_XSL    VARCHAR2(50);
 
BEGIN
 
   V_REPERTOIRE_XML := 'FICHIER_XML'; 
   V_FICH_XML           := 'Essai_Xml.xml';
 
   GIP_PC_CHARGER_FICHIER_LOB (V_XML_DOC, V_FICH_XML,
V_REPERTOIRE_XML);
 
   V_REPERTOIRE_XSL := 'GIP_FICHIER_XSL';
   V_FICH_XSL           := 'Essai_Xsl.xsl';
 
   GIP_PC_CHARGER_FICHIER_LOB (V_XSL_DOC, V_FICH_XSL, V_REPERTOIRE_XSL);
 
   V_XML            := XMLTYPE (V_XML_DOC);
   V_XSL            := XMLTYPE (V_XSL_DOC);
 
   GIP_PC_INS_XML ('TOTO', V_XML ,V_XSL);
 
   EXCEPTION
     WHEN NO_DATA_FOUND THEN
       NULL;
     WHEN OTHERS THEN
       -- Consider logging the error and then re-raise
       RAISE;
END Ins_Registre;
/

Merci,