mittels Serialization mehere Datensätze eingeben

[Manuelhasi]

Hallo liebes Forum,

Ich bastele gerade an einem kleinen Anfängerprogramm mit xml.
Hierzu hab ich mal ein paar Fragen:

1. Den Code hier habe ich durch googeln gefunden und eingebaut. Funktioniert auch soweit ganz gut. Aber wie bekomme ich es denn hin, nicht nur eine Datensatzreihe zu generieren, sondern 20 oder 30?

2.wie kann ich die Daten aus der xml-Datei in ein Datagrid einlesen?

Imports System.IO

Imports System.Xml.Serialization


Public Class Stammdaten
    Public Class clsSerial
        Public Patientenname As System.String
        Public Aufnahmenummer As System.String
        Public Zimmernummer As System.String
            Public Function Load(ByVal path As System.String) As clsSerial
            If Not File.Exists(path) Then Return New clsSerial
            Dim xs As XmlSerializer = New XmlSerializer(GetType(clsSerial))
            Dim sr As StreamReader = New StreamReader(path)
            Dim data As clsSerial = DirectCast(xs.Deserialize(sr), clsSerial)
            sr.Close()
            Return data
        End Function
        Public Sub Save(ByVal path As System.String)
            Dim di As DirectoryInfo = Directory.GetParent(path)
            If Not di.Exists Then di.Create()
            Dim xs As XmlSerializer = New XmlSerializer(GetType(clsSerial))
            Dim sw As StreamWriter = New StreamWriter(path)
            xs.Serialize(sw, Me)
            sw.Close()
        End Sub
    End Class

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Dim cs As clsSerial = New clsSerial
        cs.Patientenname = Me.TbXaxisDegree.Text
        cs.Aufnahmenummer = Me.TbYaxisDegree.Text
        cs.Zimmernummer = Me.Zimmernummer.Text
        cs.Save(Application.StartupPath & "\Stammdaten.Xml")
        MsgBox("Daten wurden erfolgreich gespeichert")
        Me.Close()
    End Sub

    Private Sub btnload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnload.Click
        Dim cs As clsSerial = New clsSerial
        cs = cs.Load(Application.StartupPath & "\Stammdaten.Xml")
        Me.Patientenname.Text = cs.Patientenname
        Me.Aufnahmenummer.Text = cs.Aufnahmenummer
        Me.Zimmernummer.Text = cs.Zimmernummer
    End Sub

Private Sub Schließen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Schließen.Click
        Me.Close()
    End Sub
End Class

Vielen Dank schon mal im Vorraus

[gfoidl]

Hallo,

diese Themen hatten wir vor kurzem des öfteren. Benutze bitte die Forensuche - da wirst du schon fündig

Alle nötigen Stichwörter hast du im Beitrag und dessen Titel verwendet.


mfG Gü