Discuss "XML Node Error" in the Visual Basic Programming forum.

noFriends · #1 (**permalink**) June 3rd, 2008, 07:30 AM

Hi everyone

I need to read in an xml file and add it to the db, but for some reason, its not
picking up the nodes, I might be overlooking something.
the basic structure of the xml looks like this:

Code:

<?xml version = '1.0'?>
<ROWSET>
   <ROW num="1">
      <ISBN_KEY>xxxx</ISBN_KEY>
      <ISBN>xxxx</ISBN>
      <EXTENT>xx</EXTENT>
      <ILLUSTRATIONSxxx</ILLUSTRATIONS>
      <TRIM_METRIC>xxxxx</TRIM_METRIC>
   </ROW>
   <ROW num="2">
      <ISBN_KEY>xxxx</ISBN_KEY>
      <ISBN>xxxx</ISBN>
      <EXTENT>xx</EXTENT>
      <ILLUSTRATIONSxxx</ILLUSTRATIONS>
      <TRIM_METRIC>xxxxx</TRIM_METRIC>
   </ROW>
   <ROW num="3">
      <ISBN_KEY>xxxx</ISBN_KEY>
      <ISBN>xxxx</ISBN>
      <EXTENT>xx</EXTENT>
      <ILLUSTRATIONSxxx</ILLUSTRATIONS>
      <TRIM_METRIC>xxxxx</TRIM_METRIC>
   </ROW>
</ROWSET>

and I am reading it with this, but its not showing me the msgbox?

Code:

	'--Create MSXML 4.0 DOM Object and initialize it
	Set objXMLDOM = CreateObject("MSXML2.DOMDocument.4.0")
	objXMLDOM.validateOnParse = False

	'--Load the XML file
	objXMLDOM.load "C:\Documents and Settings\Jako\Desktop\XML Process\export.xml"

		Set objNodes = objXMLDOM.selectNodes("/ROWSET/ROW")

		'--Add records
		For Each objNodeItem In objNodes
			msgbox objNodeItem.selectSingleNode("ISBN_KEY").nodeTypedValue
			Write_RecordToDB objNodeItem, strCurFileName
			
		Next

	Set objXMLDOM = Nothing

I am using the exact same code for another xml file, but there the structure is a bit different, I think it might be the row num=x part that is causing the problems?

Any ideas?
Thanks.

jmurrayhead · #2 (**permalink**) June 3rd, 2008, 07:53 AM

Is this Visual Basic or VbScript?

Everything here seems to be right and I don't think the node attributes num="1", num="2", etc. would be having any effect on it.

Maybe there is an error not being reported? Try this:

Code:

'--Create MSXML 4.0 DOM Object and initialize it
Set objXMLDOM = CreateObject("MSXML2.DOMDocument.4.0")
objXMLDOM.validateOnParse = False
 
 '--Load the XML file
 If objXMLDOM.load("C:\Documents and Settings\Jako\Desktop\XML Process\export.xml") Then
    Set objNodes = objXMLDOM.selectNodes("/ROWSET/ROW")
 
    '--Add records
    For Each objNodeItem In objNodes
        msgbox objNodeItem.selectSingleNode("ISBN_KEY").nodeTypedValue
        Write_RecordToDB objNodeItem, strCurFileName
    Next
Else
    msgbox objXMLDOM.parseError.reason
End If
 
Set objXMLDOM = Nothing

noFriends · #3 (**permalink**) June 3rd, 2008, 08:00 AM

Hi J

yeah, I had some error parsing code in, but I thought that if I left it out it should still
process it? It has some invalid chars it seems, like:

Timæus and Caraël
but the later shouldn't make it crash?

I am a real n00b with xml, please halp

jmurrayhead · #4 (**permalink**) June 3rd, 2008, 08:25 AM

Those characters shouldn't be a problem. XML documents can contain non ASCII characters, like Norwegian æ ø å , or French ê è é.

Take a look here as far as XML encoding errors are concerned: XML Encoding

I made some changes here, see if this works:

Code:

'--Create MSXML 4.0 DOM Object and initialize it
Set objXMLDOM = CreateObject("MSXML2.DOMDocument.4.0")
objXMLDOM.validateOnParse = False
 
 '--Load the XML file
 If objXMLDOM.load("C:\Documents and Settings\Jako\Desktop\XML Process\export.xml") Then
    Set objNodes = objXMLDOM.documentElement.selectNodes("/ROWSET/ROW")
 
    '--Add records
    For Each objNodeItem In objNodes
        msgbox objNodeItem.selectSingleNode("ISBN_KEY").nodeTypedValue
        Write_RecordToDB objNodeItem, strCurFileName
    Next
Else
    msgbox objXMLDOM.parseError.reason
End If
 
Set objXMLDOM = Nothing

noFriends · #5 (**permalink**) June 3rd, 2008, 08:57 AM

thanks J, seems it was an encoding issue, its parsing now, changed the format
to UTF-16 and its reading it properly.

thanks a mill!!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wizard1 error The command 'MoveComplete' is not valid	peebman2000	.Net Development	10	April 28th, 2008 02:52 PM
[Error] Microsoft JET Database Engine error '80004005' Operation must use an updatea	theChris	ASP Development	2	March 16th, 2008 10:18 AM

The Following User Says Thank You to jmurrayhead For This Useful Post:
noFriends (June 3rd, 2008)

Discuss "XML Node Error" in the Visual Basic Programming forum.

Visual Basic Programming - Learn coding practices and tips to get the best out of your Visual Basic applications. Visual Basic was developed by Microsoft for building stand alone Windows based applications.