Problème import XML dans Access: Elements manquants.

**Djey13250** · 22/07/2014, 15h37

Bonjour à tous,
je rencontre un problème d'import de fichier XML dans Access (Données externes / Fichier XML)
Le format est pourtant très simple mais je tourne en rond depuis 2 jours...

Voici le fichier XML initial :

Code :

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

1
2
3
4
5
<?xml version="1.0"?>
<DATAROOT>
<EVENT><A>A</A><B>B</B><C>C</C><D>D</D><E>E</E><F>F</F><G>G</G><H>H</H><I>I</I><J>J</J><K>K</K><L>L</L><M>M</M></EVENT>
<EVENT><N>N</N><O>O</O><P>P</P><Q>Q</Q><R>R</R><S>S</S><T>T</T><U>U</U><V>V</V><W>W</W><X>X</X><Y>Y</Y><Z>Z</Z></EVENT>
</DATAROOT>

Résultat dans Access, il manque une ligne EVENT :

A

B

C

D

E

F

G

H

I

J

K

L

M

Par contre il suffit de passer l'objet M dans l'autre EVENT et là ça marche :

Code :

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

1
2
3
4
5
<?xml version="1.0"?>
<DATAROOT>
<EVENT><A>A</A><B>B</B><C>C</C><D>D</D><E>E</E><F>F</F><G>G</G><H>H</H><I>I</I><J>J</J><K>K</K><L>L</L></EVENT>
<EVENT><M>M</M><N>N</N><O>O</O><P>P</P><Q>Q</Q><R>R</R><S>S</S><T>T</T><U>U</U><V>V</V><W>W</W><X>X</X><Y>Y</Y><Z>Z</Z></EVENT>
</DATAROOT>

Résultat dans Access :

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

J'ai essayé sur une autre machine en ACCESS 2007, même résultat...
Please Help !

**PipoWIL** · 23/07/2014, 10h27

Bonjour,
Je savais déjà que MS Access n'est pas un champion de l'XML mais je ne connaissais pas ce problème. J'ai essayé et j'obtiens le même résultat qui me laisse pantois. Je ne peux pas vous proposer une solution facile et rapide. Eventuellement, vous utilisez XSLT pour transformer votre fichier avant importation ou alors vous utilisez DOMXML pour lire votre fichier.
Avec une transformation XSLT :

Code :

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

1
2
3
4
strSourceFile = "C:\Temp\Test.xml"
strStylesheetfile = "C:\Temp\TransfromTest.xslt"
strResultFile = "C:\Temp\Resultat.xml"
Application.TransformXML strSourceFile, strStylesheetfile, strResultFile

Mais cela nécessite d'écrire une transformation XSLT (et de connaître la syntaxe xslt)
Pour l'autre solution, Si vous n'ètes pas familier avec XMLDOM, Microsoft vous propose une introduction ==> http://msdn.microsoft.com/en-us/library/aa468547.aspx
Je suis curieux de voir votre solution. Bonne chance.

**Djey13250** · 23/07/2014, 12h41

Bonjour PipoWil,
merci d'avoir pris le temps de regarder mon problème.
Le fait que vous arriviez au même résultat que moi me rassure, je ne suis pas devenu fou...

J'ai cherché à comprendre ce qui se passe dans l'import XML d'Access et le comportement est totalement anarchique, si on reste sur l'exemple précédent avec 2 objets EVENT et entre parenthèses le nombre d'elements:
- 1er Cas : EVENT(13) + EVENT(13) => erreur 1 seule ligne
- 2eme Cas : EVENT(12) + EVENT(14) => correct 2 lignes
- 3eme Cas : EVENT(13) + EVENT(14) => correct 2 lignes
- 4eme Cas : EVENT(17) + EVENT(2) => erreur 1 seule ligne

Bref c'est n'importe quoi !

Concernant le XSLT, mon fichier XML est déja une transformation par XSLT d'un fichier initial XML plus complexe qui contient plein d'attributs (qu'Access ne sait pas prendre pas en compte), j'ai donc malheureusement besoin de tous les objets contenus dans EVENT et chaque EVENT peut avoir un nombre d’éléments variables...
Alors j'ai réussi avec un palliatif temporaire très très moche: créer lors de ma transformation XSLT un faux premier objet ELEMENT avec tous les types d'objets possibles à l'intérieur et avec des données vides et ça marche même si ça réduit fortement la flexibilité vu que je dois connaitre à priori tous les éléments possibles...

Je ne connais pas du tout XMLDOM, je vais m'y mettre mais ça risque de prendre un moment...

Merci encore pour votre aide.

**PipoWIL** · 23/07/2014, 13h23

Bonjour,
Le fait que vous ayez le même résultat que moi n'est pas une condition suffisante pour ne pas être fou.
Peut-être le sommes nous tous les deux.
Bonne chance avec DOMXL. Je vais voir si je peux vous trouver un exemple simple.

**PipoWIL** · 23/07/2014, 13h47

Bonjour,

Puis-je vous proposer de jetter un coup d'oeil à ceci :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
Function Parse_XML_EVENT()
'Lire un XML récalcitrant.
'Nécessite la référence Microsoft XML v6.0 dans Tools/References
 
Dim xmlDoc As DOMDocument
Dim root As IXMLDOMElement
Dim i As Integer
Dim strFilename As String
 
strFilename = "C:\Temp\XmlTest1.xml"
 
Set xmlDoc = New DOMDocument
xmlDoc.async = False
xmlDoc.Load strFilename
Set root = xmlDoc.documentElement
 
'Voici le document XML que nous allons analyser:
Debug.Print root.XML
 
ParcoursEvent root
 
Set root = Nothing
Set xmlDoc = Nothing
 
MsgBox ("Fini")
End Function
Function ParcoursEvent(root_node As IXMLDOMNode)
'Dans Menu Tools/ references..., ajoutez Microsoft XML.
'Voici un exemple qui affiche dans la fenêtre de débogage la liste des balises contenues dans un document xml.
 
Dim i As Long
Dim strNodeValue As String
 
 
For i = 0 To root_node.childNodes.length - 1
    If root_node.childNodes.Item(i).nodeTypeString <> "element" Then
        strNodeValue = root_node.childNodes.Item(i).nodeValue
        strNodeValue = Replace(strNodeValue, Chr(10), "")
 
        Debug.Print root_node.parentNode.baseName, root_node.baseName, strNodeValue
 
    Else
        'Debug.Print root_node.baseName, "est un element :", root_node.nodeTypeString
    End If
 
    'Appel recursif de cette fonction
    ParcoursEvent root_node.childNodes(i)
Next
 
End Function

où la seconde fonction fait un appel récursif à elle-même.

Ceci devrait vous mettre sur la voie.
Bonne chance.

**BenjGe** · 28/07/2014, 03h06

c'est l'absence d'id qui vous pose un problème.

Dans la spécification XML il est recommandé de paramétrer chaque élément par un id de type hexa. Les dev d'access ont l'air de l'avoir interprété à leur manière et imposer un id de type numérique à l'import:

ceci:

Code :

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

1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="UTF-8"?>
<dataroot >
<EVENT id="1">
<A>A</A><B>B</B><C>C</C><D>D</D><E>E</E><F>F</F><G>G</G><H>H</H><I>I</I><J>J</J><K>K</K><L>L</L><M>M</M>
</EVENT>
<EVENT id="2">
<N>N</N><O>O</O><P>P</P><Q>Q</Q><R>R</R><S>S</S><T>T</T><U>U</U><V>V</V><W>W</W><X>X</X><Y>Y</Y><Z>Z</Z>
</EVENT>
</dataroot>

et ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<?xml version="1.0" encoding="UTF-8"?>
<dataroot >
<EVENT id="1">
<A>A</A><B>B</B><C>C</C><D>D</D><E>E</E><F>F</F><G>G</G><H>H</H><I>I</I><J>J</J><K>K</K><L>L</L>
</EVENT>
<EVENT id="2">
<M>M</M><N>N</N><O>O</O><P>P</P><Q>Q</Q><R>R</R><S>S</S><T>T</T><U>U</U><V>V</V><W>W</W><X>X</X><Y>Y</Y><Z>Z</Z>
</EVENT>
</dataroot>

donne le même résultat à l'importation.

Et donc afin de ne pas être gêné il faudrait systématiquement apporter une transformation XSL à un fichier XML lors de l'import dans access pour ajouter le paramètre id. C'est la raison pour laquelle à mon sens est fourni la méthode transformxsl.

**PipoWIL** · 29/07/2014, 09h36

Merci Benjîle

**BenjGe** · 29/07/2014, 10h54

en respectant cela il est possible de faire de l'importation de bases entières avec relation parent/enfant en cascade.

**Djey13250** · 01/08/2014, 16h00

Bonjour,
désolé du délai de réponse, j'ai du partir travailler sur un autre sujet. Merci pour votre aide Benjîle et Pipowil.
Je vais adapter mon XSLT pour créer des id.

Bon WE

Problème import XML dans Access: Elements manquants.

Access

Discussions similaires

Partager

Partager