Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Math
Imports System.Xml
Imports System.Xml.Schema
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Main()
    End Sub
 
    Public Sub Main()
        '
        ' Add your code here
        '
        'XML-Schema laden
        'XML-Datei laden und gegen Schema prüfen
 
        Dim xmlDoc As XmlDocument
        Dim xmlDocPerso As XmlDocument
 
        xmlDoc = New XmlDocument()
        xmlDocPerso = New XmlDocument()
 
        Dim strFile As String
        Dim perso As String
 
        Dim xmlNodes As XmlNodeList
        Dim xmlNodesPerso As XmlNodeList
 
        'Hier den Pfad eintragen
        strFile = "C:/Dokumente und Einstellungen/Desktop/vb.net/test.xml"
        perso = "C:/Dokumente und Einstellungen/Desktop/vb.net/perso.xml"
 
        xmlDoc.Load(strFile)
        xmlDocPerso.Load(perso)
 
        'Neue Daten in XML-Datei suchen und aktualisieren
 
        xmlNodes = xmlDoc.SelectNodes("//entry/pid")
        xmlNodesPerso = xmlDocPerso.SelectNodes("//entry/pid")
 
        For Each entryu As XmlElement In xmlDocPerso.SelectNodes("//entry")
 
            Dim id As String = entryu.Attributes.Item(0).Value
            Dim entry As XmlElement = xmlDoc.SelectSingleNode("//entry[@id and" & _
              "pid=" & id & "]")
            ' doc updaten 
 
 
            xmlDoc.Save(strFile)
 
        Next
 
 
 
    End Sub
 
End Class