1 2 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