Geen reacties in dit onderwerp

[Marc Devlieger]

... AANGEZIEN GEEN REACTIE VB6 FORMUM ... EFF PROBEREN HIER

Hoi ... ik probeer een XML database- bestand te lezen. Het lukt mij het bestand te openen en het eerste deel van het bestand te lezen :

Function Load_XML()

Dim sXMLFile As String
Dim oXML As New DOMDocument

sXMLFile = Form_03.LBL_ImportBestand.Caption
oXML.async = False
oXML.Load sXMLFile

If oXML.parseError.reason <> "" Then

MsgBox oXML.parseError.reason
Exit Function

End If





Dim objNodes As IXMLDOMNodeList
Dim objBookNode As IXMLDOMNode

Dim NodesValue


Set objNodes = oXML.selectNodes("//Export")

For Each objBookNode In objNodes

If objBookNode.selectNodes("Event").length <> 0 Then

NodesValue = objBookNode.selectSingleNode("Event").nodeTypedValue
Form_03.Text1 = Form_03.Text1 & NodesValue & vbNewLine


End If

Next objBookNode


End Function


Ik krijg enkel het eerste gedeelte 'EVENT' te zien.... wat is er fout ?


XML bestand (Deels)


<Export>

<Event ID="151463655">

<Event_ID>151463655</Event_ID>
<Start-Date>31/03/2015</Start-Date>
<Start-Time>11:03:54</Start-Time>
<End-Time>11:03:54</End-Time>

</Event>


<Event ID="151465395">

<Event_ID>151465395</Event_ID>
<Start-Date>31/03/2015</Start-Date>
<Start-Time>12:25:55</Start-Time>
<End-Time>12:25:55</End-Time>

</Event>