Bonjour,

J'ai un fichier XML qui représente un fichier tnsnames.ora (ORACLE) pour ceux qui connaissent, voici comment il est présenté :

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
 
- <SERVICE alias="ALIAS_DB">
- <DESCRIPTION_LIST>
- <DESCRIPTION>
- <ADDRESS_LIST>
- <ADDRESS>
  <PROTOCOL>TCP</PROTOCOL> 
  <HOST>HOSTNAME</HOST> 
  <PORT>1521</PORT> 
  </ADDRESS>
  </ADDRESS_LIST>
- <CONNECT_DATA>
  <SERVICE_NAME>SERVICE_NAME</SERVICE_NAME> 
  </CONNECT_DATA>
  </DESCRIPTION>
  </DESCRIPTION_LIST>
  </SERVICE>
J'aimerai le parcourir et pour chaque service récupérer l'alias et le port, j'ai regardé un peu la FAQ et fait un essai avec le code suivant qui devrait me renvoyer le port mais ca ne donne rien, si quelqu'un peut m'aider :

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
Public Sub TraiteXml2()
        Dim port As String
        Dim i As Integer = 0
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load("D:\Sqlserver\Projects\ListeBaseOracleV2\ListeBaseOracleV2\tnsnames_ep.xml")
        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ADDRESS")
        Dim noeud As XmlNode
 
        For Each noeud In element
            If noeud.LocalName = "PORT" Then
                port = noeud.InnerText
            End If
        Next
 
    End Sub