1

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>
5
  • y como esta estructurado tu XML, y que datos quieres que se cargue al DataTable?? el 27 abr. 2018 a las 22:49
  • <?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_Cel_y_MontosPendientes> <nombre>MARIA FELICIA GRANADOS RODRIGUEZ</nombre> <total>5125</total> <Telf_Cel>85382021</Telf_Cel> </Consultar_Cel_y_MontosPendientes> </acueductosDataSet> Asi, Grs por contestar Silvestre
    – maikmr
    el 27 abr. 2018 a las 22:51
  • Los datos que necesito son <nombre><total><Telf_Cel>, grs por su colaboración Silvestre
    – maikmr
    el 27 abr. 2018 a las 22:55
  • @maikmr que error te esta dando el 27 abr. 2018 a las 23:40
  • @RaulCacacho el error es que no hace nada, no me sirve, no comprendo porque, si este codigo lo tome de la pagina de microsoft msdn
    – maikmr
    el 28 abr. 2018 a las 1:14

1 respuesta 1

1

Para leer XML des visual.net puedes hacerlo de esta manera es un ejemplo con un botón la dirección esta por defecto y lee cada padre e hijo

Imports System.Xml
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xmldoc As New XmlDataDocument()
        Dim xmlnode As XmlNodeList
        Dim i As Integer
        Dim str As String
        Dim fs As New FileStream("products.xml", FileMode.Open, FileAccess.Read)
        xmldoc.Load(fs)
        xmlnode = xmldoc.GetElementsByTagName("Product")
        For i = 0 To xmlnode.Count - 1
            xmlnode(i).ChildNodes.Item(0).InnerText.Trim()
            str = xmlnode(i).ChildNodes.Item(0).InnerText.Trim() & "  " & xmlnode(i).ChildNodes.Item(1).InnerText.Trim() & "  " & xmlnode(i).ChildNodes.Item(2).InnerText.Trim()
            MsgBox(str)
        Next
    End Sub
End Class
6
  • Muchas gracias de nuevo Raul, solo una duda mas en esta linea de código ("xmlnode = xmldoc.GetElementsByTagName("Product")") ¿El String que dice "Product" que es? ¿La etiqueta principal de todo del XML la que encierra a todas las demás?
    – maikmr
    el 28 abr. 2018 a las 18:29
  • Si en tu caso consulta cel y montos pendiwntes el 28 abr. 2018 a las 22:25
  • 1
    un millon de grs voy a probarlo
    – maikmr
    el 30 abr. 2018 a las 16:58
  • Funciono perfectamente @RaulCacacho ¿Cómo le puede agradecer?
    – maikmr
    el 30 abr. 2018 a las 21:48
  • Puedes marcar la respuesta como aceptada :D y votar por mi respuesta el 30 abr. 2018 a las 21:50

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.