Dim DeineXMLDatei As String="D:\irgendwas\irgendwas.xml"
Dim dtDeineDataTable As New DataTable
dtDeineDataTable.ReadXML(DeineXMLDatei)
 
DeinDataGridView.DataSource=dtDeineDataTable

EALA FREYA FRESENA

EALA FREYA FRESENA

Dim dtGenres As New DataTable
Dim SavePath As String="D:\irgendwas"
 
 
Private Sub XMLLaden()
Initialize_dtGenres
ReadXML
 
'MachWasMitDerDataTable
 
End Sub
 
Private Sub Initialize_dtGenres()
 
        dtGenres.TableName = "Genres"
 
        Dim keys(1) As DataColumn
        Dim column As New DataColumn
        column.DataType = System.Type.GetType("System.Int32")
        With column
            .ColumnName = "ID"
            .AutoIncrement = True
            .AutoIncrementStep = 1
        End With
        dtGenres.Columns.Add(column)
        keys(0) = column
        dtGenres.PrimaryKey = keys
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Genre"
        dtGenres.Columns.Add(column)
 
    End Sub
 
    Private Sub ReadXML()
        Dim SavePathXML As String = System.IO.Path.Combine(SavePath, _
          "Genres.xml")
        If System.IO.File.Exists(SavePathXML) Then
            dtGenres.ReadXml(SavePathXML)
        End If
    End Sub

EALA FREYA FRESENA

Imports Form1.Dataset1
Imports System.Xml
Imports System.Data
 
Sub XML_Schreiben
Dim tba As Dataset1.DataTable = Dataset1.DataTable1
 
tba.WriteXml(D:\Irgendwas\XML.xml)
 
End Sub

Sub Datagrid_Füllen()
 
        Dim xmlFile As XmlReader
        xmlFile = XmlReader.Create(D:\Irgendwas\XML.xml, New XmlReaderSettings( _
          ))
        Dim ds As New DataSet
        ds.ReadXml(xmlFile)
        Dim i As Integer
 
        KMA.HLA_DataGridView.DataSource = ds.Tables(0)
 
 
    End Sub