Discussion :

[psykodumarteau]

Bonjour,

Je cherche à contrôler si un nœud existe dans un fichier XML avec de récupérer les données qu'il contient. Voici mon code

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
 
Set rcdst = CurrentDb.OpenRecordset("BUYERS")
For Each NodeData In DomDoc.documentElement.selectNodes("/as:SupplySchedule/as:BuyerParty/asram:AeroSpaceOrganization")
Set NodeItem = NodeData.cloneNode(True)
rcdst.AddNew
rcdst.Fields("GLOBAL_UNIQUE_ID") = GlobalUniqueID
rcdst.Fields("NAME") = NodeItem.selectNodes("/asram:NameText").Item(0).Text
rcdst.Fields("REGISTRATION_ID") = NodeItem.selectNodes("/asram:RegistrationIdentifier").Item(0).Text
rcdst.Fields("UNIT_NAME_CODE") = NodeItem.selectNodes("/asram:UnitNameText").Item(0).Text
rcdst.Fields("ACTIVITY_CODE") = NodeItem.selectNodes("/asram:Code").Item(0).Text
rcdst.Fields("@CITY_NAME") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:CityName").Item(0).Text
 
'A partir d'ici il faut que je contrôle l'existence des nœuds avant d'effectuer les affectations
rcdst.Fields("@LINE_ONE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineOneText").Item(0).Text
rcdst.Fields("@LINE_TWO") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineTwoText").Item(0).Text
rcdst.Fields("@LINE_THREE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineThreeText").Item(0).Text
rcdst.Fields("@LINE_FOUR") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineFourText").Item(0).Text
rcdst.Fields("@LINE_FIVE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineFiveText").Item(0).Text
rcdst.Update
Next
rcdst.Close

Merci de votre aide

[Dinytro]

Tu dis ce que tu veux faire, tu donnes du code mais tu ne dis pas où tu es bloqué et quelle erreur tu rencontres...
Peux-tu ^^etre plus précis ?

[psykodumarteau]

Bonjour,

Ce que je ceux faire c'est testé que les noeuds du XML existe bien avant d'essayer de lire sinon forcement ça ne marche pas.

Exemple : comme il est noté en commentaire dans le code, il faut que je vérifie que les noeuds suivants existent avant de les lire:

/asram:AeroSpaceAddress/asram:LineOneText
/asram:AeroSpaceAddress/asram:LineTwoText
/asram:AeroSpaceAddress/asram:LineThreeText
/asram:AeroSpaceAddress/asram:LineFourText
/asram:AeroSpaceAddress/asram:LineFiveText

Ils ne sont pas obligatoirement présent dans le XML. Donc si j'exécute les lignes de code:

Code :

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

1
2
3
4
5
rcdst.Fields("@LINE_ONE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineOneText").Item(0).Text
rcdst.Fields("@LINE_TWO") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineTwoText").Item(0).Text
rcdst.Fields("@LINE_THREE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineThreeText").Item(0).Text
rcdst.Fields("@LINE_FOUR") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineFourText").Item(0).Text
rcdst.Fields("@LINE_FIVE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineFiveText").Item(0).Text

Sans vérifier que les nœuds existent le code ne marche pas. Etant donné que je cherche à automatiser des echanges via ses fichiers je ne peux pas les traiter au cas par cas.

Codialement