obtener información de un archivo xml desde visual basic 6

Question

hola buenas noches, tengo un problema con visual basic 6.0.

tengo un archivo xml y quiero que desde visual basic 6 obtener información de ese archivo.

alguien me podría ayudar como lograr hacer esto, la verdad no tengo ni idea de como lograr esto. E estado investigado pero solo encontre que hay que agregar una referencia de Microsift xml v.3 pero no logro hacerlo

muchas gracias por su ayuda

Answer 1

Puedes recorrer los nodos con algo como esto:

Private Sub Command1_Click()

Dim FicheroXML As String
FicheroXML= "C:\Ejemplo.xml"
Dim oXML As New DOMDocument
oXML.Load sXmlFile
If oXML.parseError.reason <> "" Then
   MsgBox oXML.parseError.reason
   Exit Sub
End If

Dim oNode As IXMLDOMNode
Dim oAttr As IXMLDOMAttribute

For Each oNode In oXML.documentElement.childNodes
   Set oAttr = oNode.Attributes.getNamedItem("vconfirm")
   MsgBox oNode.nodeName & ": " & _
   oNode.Text
Next oNode

End Sub

También puedes obtener el valor de un nodo en concreto:

Set oNode = oXML.selectSingleNode("//NODO//VALOR")
If Not oNode Is Nothing Then
   valorBuscado = oNode.Text
End If

---

Saludos, Javier J

Answer 2

hola javier gracias por responder, me puedes explicar estas lineas por favor

set oAttr = oNode.Attributes.getNamedItem("vconfirm")

Set oNode = oXML.selectSingleNode("//NODO//VALOR")

("vconfirm") , ("//nodo//valor") ,para que son ? se pone el valor del dato que busco?

Answer 3

Set oNode = oXML.selectSingleNode("//NODO//VALOR") te devuelve el nodo hijo VALOR dentro del nodo NODO. Por ejemplo si quieres obtener el valor del subnodo NOMBRE dentro del nodo DATOS harías:

Set oNode = oXML.selectSingleNode("//DATOS//NOMBRE")

msgbox oNode.Text

---

Saludos, Javier J

Answer 4

Hola:

Se que no tiene nada que ver con VB 6, pero te puede dar ideas.

https://social.msdn.microsoft.com/Forums/es-ES/ba2aadd5-96cf-4964-97e5-b1369ff9b2c5/guardar-datos-en-xml?forum=vcses#7cb87cbb-8fa5-49ac-8772-67bc21e93068

Saludos.

---

http://electronica-pic.blogspot.com