Jump to content


- - - - -

Xml Databestand Lezen In Vb6


  • Please log in to reply
Geen reacties in dit onderwerp

#1 Marc Devlieger

Marc Devlieger

    Starting Developer

  • Leden
  • 13 Berichten
    Last Visit 05 May 2015 17:51

Geplaatst op 01 May 2015 - 10:15

... 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>




0 gebruiker(s) lezen dit onderwerp

0 leden, 0 gasten, 0 anonieme gebruikers

Sign In


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)