Generar xml mediante bucle vb.net

[NetJava]

       Buenas!! Tengo un problemilla con el xml y el bucle, pasa la primera vez por el bucle, haciéndolo bien, pero cuando
va a pasar por el bucle por segunda vez, en la ultima instancia 'documento.AppendChild(nodoPrincipal)' peta.


       

Código [Seleccionar] Expandir


        Dim documento As New XmlDocument
        Dim nodoPrincipal As XmlNode
        Dim nodoSAs XmlNode

        nodoPrincipal = documento.CreateElement("Actualizacion")
        nodoSociedad = documento.CreateElement("Sociedades")

        Dim arr_s() As String = Split(mf_s(dr.Item("act_idS")), "#")

        For Each Elemento As String In arr_s
               nodoS = documento.CreateElement("Datos")
               nodoS.InnerText = Elemento
               nodoPrincipal.AppendChild(nodoS)
               documento.AppendChild(nodoPrincipal)
        Next
       


Tenéis algún ejemplo sobre este tema o os imagináis que pasa XD, muchas gracias, Saludooooooooooooooooooooooos!

[NetJava]

Buenas,

a lo mejor una mejor forma sería crear el xml a través de un dataset, estoy investigando. ¿Cómo lo veis?

Saludos

[NetJava]

Hello, al final me he quitado de bucles para hacer el xml, lo he creado mediante un 'DataSet', de cada una de las tablas de la BD, y después he unido los 'DataSet' mediante el método 'Merge':

Código [Seleccionar] Expandir


miDataSet.merge(otroDataset)


Estoy ultimo si en un bucle, y después convierto en un xml y leo de ese xml:

Código [Seleccionar] Expandir


miDataSet.WriteXml("C:\Hola.xml")
docXml.Load("C:\Hola.xml")


Lo ultimo que tengo que conseguir es saltarme el paso de guardar/leer el xml, pero que acabe convertido el 'miDataSet'en xml XD

Si alguien tiene duda le cuento como han ido los pasos anteriores, xaoo!

[Novlucker]

A que te refieres con ... ?

Lo ultimo que tengo que conseguir es saltarme el paso de guardar/leer el xml, pero que acabe convertido el 'miDataSet'en xml XD

Saludos

[NetJava]

Buenas,

esq la única forma para pasar el 'miDataSet' a xml era guardandolo en C:\, por ejemplo, y después leyéndolo, y quería saltarme esos pasos. Pero ya esta:

Código [Seleccionar] Expandir


Dim docXml As XmlDataDocument = New XmlDataDocument(miDataSet)


Saludos!

[Novlucker]

La otra manera era utilizar un stringwriter

Saludos