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
Merci de votre aide
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 nuds 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
Partager