Dim dataset As New System.Data.DataSet
dataset.ReadXml(import_file_pfad, Data.XmlReadMode.Auto)
 
...
...
 
z.B.
 
anz_Schulformen = updateTable("XML_SCHULFORMEN", dataset)
 
...
...
 
Public Function updateTable(ByVal tabellenName As String, ByVal dataset As _
  System.Data.DataSet) As Integer
        Dim dataAdapter As New System.Data.Odbc.OdbcDataAdapter("SELECT * FROM" & _
        "" & tabellenName & ";", con_Import_XML)
        Dim cmd_builder As New System.Data.Odbc.OdbcCommandBuilder(dataAdapter)
 
        dataAdapter.MissingSchemaAction = Data.MissingSchemaAction.Ignore
 
        Try
            dataAdapter.UpdateCommand = cmd_builder.GetUpdateCommand
        Catch ex As Exception
            'Log4NEt
        End Try
 
        Try
            dataAdapter.InsertCommand = cmd_builder.GetInsertCommand
        Catch ex As Exception
            'Log4NEt
        End Try
 
        Return dataAdapter.Update(dataset, tabellenName)
End Function