Why does 'xmlDom.preserveWhiteSpace = True' cause this error?

V

Vince De Mello

Does anyone know why I keep getting this error - 'Property let procedure not
defined and property get procedure did not return an object' , for the code
below, it seems to have occured since I added the line '
xmlDom.preserveWhiteSpace = True', thanks for any help.

code:-----------------------------------------------------------------------
---------
Option Compare Database
Private xmlDom As MSXML2.DOMDocument

Function initiateXML(filePath As String)

On Error GoTo Err_Xml

Set xmlDom = New MSXML2.DOMDocument

xmlDom.async = False
xmlDom.preserveWhiteSpace = True

isLoaded = xmlDom.Load(docPath)

Exit_Xml:
Exit Function

Err_Xml:
MsgBox Err.Description
Resume Exit_Xml

End Function

Function parseXML(nodeName As String, parentNodeName As String, tableName As
String)

On Error GoTo Err_Xml

Dim nList As MSXML2.IXMLDOMNodeList
Set nList = xmlDom.selectNodes("//" & parentNodeName)

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

'Create connection
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentDb.Name & ";"

'Create new recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM " & tableName, conn, adOpenKeyset, adLockOptimistic

'MsgBox "table name = " & tableName

'Loop through each node and it's children, then add that node to the
recordset
For Each xmlNode In nList

For Each outerChild In xmlNode.childNodes
rs.AddNew
For Each child In outerChild.childNodes
rs.Fields(child.nodeName) = child.Text
'MsgBox "nodeName = " & child.nodeName
Next
rs.Update
Next

Next

'Clean up
rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing
Set nList = Nothing
Set xmlNode = Nothing

Exit_Xml:
Exit Function

Err_Xml:
MsgBox Err.Description
Resume Exit_Xml

End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top