Xml Y Visual Basic 6.0

[Juanda]

Hola a todos: necesito saber como leer un archivo XML con una aplicacion VISUAL BASIC 6.0, ya que tengo por hay un script que no me funciona, se los muestro:

Public Sub CargaDoc()
Dim oParser As MSXML.DOMDocument
Set oParser = New MSXML.DOMDocument
If oParser.Load("test.xml") Then
MuestraNodos oParser.chilNodes
Else
MsgBox "Ha ocurrido un error."
End If
End Sub

Public Sub MuestraNodos (ByRef Nodos As MSXML.IXMLDOMNodeList)
Dim oNodo As MSXML.IXMLDOMNode
For Each oNodo In Nodos
If oNodo.nodeType = NODE_TEXT Then
Debug.Print oNodo.parentNode.nodeName & "=" & oNodo.nodeValue
End If
If oNodo.hasChildNodes Then
MuestraNodo oNodo.childNodes
End If
Next oNodo
End Sub

Tambien me gustaria saber como hacerlo utilizando una grilla por ejemplo un label o un text

De antemano muchas gracias

[moron]

Encontraste la solución?
creo que tengo el mismo script y el error es que uno de los objetos que crea de xml no está definido, debe ser que hay que agregar un componente, pero no se cual.

[monoswim]

Pregunten eso en el foro de visual basic, acá no vemos eso...

[moron]

ups.. perdón, llegué por el google aca y no vi a que foro pertenecia.

[GeoAvila]

mira esto ..

http://www.aspfree.com/c/a/XML/Using...30-with-VB-60/

talvez te sirva

nos vemos..

[el_avion]

Funciona agregando la referencia microsoft XML V2.0

Este es el codigo Corregido ya quel anterior cuenta con algunos errores:

Private Function leerXML() As String
Dim oParser As MSXML.DOMDocument
Set oParser = New MSXML.DOMDocument
If oParser.Load("C:\configuracion.xml") Then
MuestraNodos oParser.childNodes
Else
MsgBox "Ha ocurrido un error."
End If

End Function

Public Sub MuestraNodos(ByRef Nodos As MSXML.IXMLDOMNodeList)

Dim oNodo As MSXML.IXMLDOMNode
For Each oNodo In Nodos
If oNodo.nodeType = NODE_TEXT Then
MsgBox oNodo.parentNode.nodeName & "=" & oNodo.nodeValue
End If
If oNodo.hasChildNodes Then
MuestraNodos oNodo.childNodes
End If
Next oNodo
End Sub

[el_avion]

Y aqui les dejo otro Codigo para acceder directamente a un nodo sin necesidad de recorrerlos todos

--------------------------------------------------------------
________________________Codigo Fuente
--------------------------------------------------------------
Private Function getSemana() As String

Dim oParser As MSXML.DOMDocument

Set oParser = New MSXML.DOMDocument

If oParser.Load("D:\recursos.xml") Then
Dim Nodos As MSXML.IXMLDOMNodeList
Dim oNodo As MSXML.IXMLDOMNode
Set Nodos = oParser.childNodes
Set oNodo = Nodos.Item(0).selectSingleNode("/Raiz/Semanas/Objeto[@semana='Proxima']")
'MsgBox ("Valor" + oNodo.attributes["Valor1"])
getSemana = oNodo.Attributes.Item(1).nodeValue

End If

End Function


--------------------------------------------------------------------------
___________________Esta es la estructura del XML
--------------------------------------------------------------------------

<?xml version="1.0" encoding="utf-8"?>
<Raiz>
<Semanas>
<Objeto semana="Proxima" Valor="4"/>
</Semanas>
</Raiz>


El resultado de esta funcion es '10'