verán estoy tratando de leer un Archivo XML, montarlo en un DataTable y luego recorrer el DataTable, pero no lo logro y ya llevo su buen rato intentandolo, para ello estoy usando el siguiente código que encontré en msdn:
introducir el código aquí
Module Module1
Sub Main()
End Sub
Private Sub DemonstrateReadWriteXMLDocumentWithReader()
Dim table As DataTable = CreateTestTable("dt")
table.ReadXml(Environment.CurrentDirectory & "\xmlFile.xml")
Stop
PrintValues(table, "Original table")
Stop
' Write the schema and data to XML in a memory stream.
Dim xmlStream As New System.IO.MemoryStream()
table.WriteXml(xmlStream, XmlWriteMode.WriteSchema)
' Rewind the memory stream.
xmlStream.Position = 0
Dim reader As New System.Xml.XmlTextReader(xmlStream)
Dim newTable As New DataTable
newTable.ReadXml(reader)
' Print out values in the table.
PrintValues(newTable, "New Table")
Stop
End Sub
Private Function CreateTestTable(ByVal tableName As String) As DataTable
' Create a test DataTable with two columns and a few rows.
Dim table As New DataTable(tableName)
Dim column As New DataColumn("nombre", GetType(System.String))
column.AutoIncrement = True
table.Columns.Add(column)
column = New DataColumn("total", GetType(System.String))
table.Columns.Add(column)
column = New DataColumn("Telf_Cel", GetType(System.String))
table.Columns.Add(column)
' Add ten rows.
'Dim row As DataRow
'For i As Integer = 0 To 9
' row = table.NewRow()
' row("item") = "item " & i
' table.Rows.Add(row)
'Next i
table.AcceptChanges()
Return table
End Function
Private Sub PrintValues(ByVal table As DataTable, ByVal label As String)
Console.WriteLine(label)
For Each row As DataRow In table.Rows
For Each column As DataColumn In table.Columns
Console.Write("{0}{1}{2}", ControlChars.Tab, row(column))
Next column
Console.WriteLine()
Stopwatch.
Next row
End Sub
End Module
Este es mi XML
<?xml version="1.0"
standalone="yes"?>
<acueductosDataSet
xmlns="tempuri.org/
acueductosDataSet.xsd">;
<Consultar_Cel_y
_MontosPendientes>
<nombre>JOSE LUIS BLANCO
ARAYA</nombre>
<total>4851.6</total>
<Telf_Cel>85382021
</Telf_Cel>
</Consultar_Cel_y
_MontosPendientes>
<Consultar_Ce
_y_MontosPendientes>
<nombre>
MARIA FELICIA
GRANADOS
RODRIGUEZ</nombre>
<total>5125</total>
<Telf_Cel>85382021
</Telf_Cel>
</Consultar_Cel_
y_MontosPendientes>
</acueductosDataSet>