| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 
 |  
        Dim xmlTable As String = strTable & "_out.xml"
        Dim xmlSchema As String = strTable & "_Schema.xml"
 
        Dim myDataset As New DataSet()
        myDataset.ReadXmlSchema(Path.Combine(strFolder, xmlSchema))
        myDataset.ReadXml(Path.Combine(strFolder, xmlTable), XmlReadMode.InferSchema)
 
        ' Pour éliminer le noeud dataroot qui vient de je ne sais où
        If myDataset.Tables.Count <= 1 Then Exit Sub
 
        Dim table As DataTable = myDataset.Tables(1)
        For Each row As DataRow In table.Rows
            For Each column As DataColumn In table.Columns
            Next
        Next | 
Partager