Im Artikel “XML-Dokumente erstellen mit XmlWriter” haben wir die grundlegenden Techniken beschrieben, mit denen Sie XML-Dokumente mit der XmlWriter-Klasse erzeugen und mit den gewünschten Daten füllen. Im vorliegenden Artikel liefern wir ein Praxisbeispiel dazu und wollen die Daten eines Entity Data Models, das aus einer SQL Server-Datenbank befüllt wird, in ein XML-Dokument schreiben. Dieses können Sie dann mit der Lösung aus dem Artikel “Bestellungen per XmlReader einlesen” wieder einlesen und somit Daten zwischen zwei Anwendungen per XML-Dokument übertragen.<\/b><\/p>\n
Im Artikel Bestellungen per XmlReader einlesen <\/b>(www.datenbankentwickler.net\/234<\/b>) haben wir gezeigt, wie Sie Daten aus einem XML-Dokument in ein Entity Data Model einlesen und diese dann in der damit verknüpften SQL Server-Datenbank speichern. Im vorliegenden Artikel wollen wir nun den umgekehrten Weg gehen. Dazu nutzen wir das im oben genannten Artikel erstellte Projekt. Dort haben wir schon beschrieben, wie das Entity Data Model, bestehend aus den drei Entitäten Kunde<\/b>, Bestellung <\/b>und Bestelldetail<\/b> aufgebaut ist. Darüber wollen wir nun die Daten der dahinter stehenden Tabellen in das Entity Data Model einlesen und diese dann in ein neues XML-Dokument exportieren.<\/p>\n
Damit lernen Sie nicht nur die Möglichkeiten der XmlWriter<\/b>-Klasse besser kennen, sondern es ist auch eine schöne Fingerübung für den Umgang mit den Daten eines Entity Data Models.<\/p>\n
Dokument erstellen und Schreiben der Daten initialisieren<\/b><\/p>\n
Die Schaltfläche btnKundenUndBestellungenInXMLDokument<\/b> löst die folgende Methode aus. Diese deklariert neben einer Variablen für die Zieldatei noch ein Listenelement für die Kunden sowie ein XmlWriter<\/b>– und ein XmlWriterSettings<\/b>-Objekt. Letzteres erstellt die Methode zuerst und legt fest, dass wir Einrückungen mit vier Leerzeichen verwenden wollen:<\/p>\n Danach ermitteln wir mit der Funktion ZieldateiErmitteln <\/b>den Pfad zu der zu erstellenden Datei und erstellen unter Angabe dieses Pfades mit der Create<\/b>-Methode das XmlWriter<\/b>-Objekt:<\/p>\n Nach dem notwendigen Aufruf der WriteStartDocument<\/b>-Methode füllen wir alle Kunden der Tabelle Kunden <\/b>über das DbSet <\/b>namens Kunden <\/b>des Entity Data Models in die Liste Kunden<\/b>. Damit und mit objWriter <\/b>als Parameter rufen wir eine weitere Methode namens KundenInXMLSchreiben <\/b>auf, welche die Kunden zum XML-Dokument hinzufügen soll:<\/p>\n Zielpfad mit SaveFileDialog auswählen<\/b><\/p>\n Die oben verwendete Funktion ZieldateiErmitteln <\/b>verwendet die SaveFileDialog<\/b>-Klasse, um den Zielpfad zu ermitteln. Dazu stellen wir als Standard-Dateiendung den Wert .xml<\/b>, als Filter ebenfalls .xml <\/b>und als Startverzeichnis das Verzeichnis der .exe<\/b>-Datei der Anwendung ein. Die ShowDialog<\/b>-Methode öffnet den Dialog und der Code läuft erst weiter, wenn dieser geschlossen wird. Liefert ShowDialog <\/b>den Wert True<\/b>, wurde eine Datei ausgewählt. Diese speichert die Methdoe in strZieldatei <\/b>gespeichert und gibt den enthalten Wert dann mit Return <\/b>an die aufrufende Routine zurück:<\/p>\n Kunden in die XML-Datei schreiben<\/b><\/p>\n Die von der Hauptmethode aufgerufene Routine KundenInXMLSchreiben erwartet zwei Parameter: das XmlWriter<\/b>-Objekt aus objWriter <\/b>sowie die dort ermittelte Liste der Kunden aus der Datenbank. Wichtig ist, dass Sie den Parameter objWriter <\/b>mit dem Schlüsselwort ByRef <\/b>auszeichnen. So wirken sich die Änderungen an objWriter <\/b>aus dieser Routine auch auf die Variable aus, die von der aufrufenden Methode aus übergeben wurde.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>btnKundenUndBestellungenInXMLDokument_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>strXmlDatei As String<\/span>\r\n Dim <\/span>Kunden As <\/span>List(Of Kunde)\r\n Dim <\/span>objWriter As <\/span>XmlWriter\r\n Dim <\/span>objSettings As <\/span>XmlWriterSettings\r\n objSettings = New<\/span> XmlWriterSettings\r\n With<\/span> objSettings\r\n .Indent = True<\/span>\r\n .IndentChars = \" \"\r\n End With<\/span><\/pre>\n strXmlDatei = ZieldateiErmitteln()\r\n objWriter = XmlWriter.Create(strXmlDatei, objSettings)<\/pre>\n
objWriter.WriteStartDocument()\r\n Kunden = New<\/span> List(Of Kunde)(dbContext.Kunden)\r\n KundenInXMLSchreiben(objWriter, Kunden)\r\n objWriter.WriteEndElement()\r\n objWriter.WriteEndDocument()\r\n objWriter.Close()\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>ZieldateiErmitteln()\r\n Dim <\/span>objFileDialog As <\/span>SaveFileDialog\r\n Dim <\/span>strZieldatei As String<\/span>\r\n objFileDialog = New<\/span> SaveFileDialog\r\n With<\/span> objFileDialog\r\n .DefaultExt = \".xml\"\r\n .Filter = \"XML-Dokumente (.xml)|*.xml\"\r\n .InitialDirectory = System.AppDomain.CurrentDomain.BaseDirectory\r\n End With<\/span>\r\n If <\/span>(objFileDialog.ShowDialog) = True<\/span> Then<\/span>\r\n strZieldatei = objFileDialog.FileName\r\n End If<\/span>\r\n Return strZieldatei\r\nEnd Function<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t