Невозможно прочитать атрибуты дочерних узлов, используя XML DOM в Access 2003
Я искал в Интернете, возможно, 8 часов, включая Experts Exchange и Stackoverflow, и нашел других с такой же проблемой, но я 'Я не нашел решения этой проблемы.
m присоединение файла XML, который использует атрибуты для хранения данных в родительском узле и трех зависимых дочерних узлах. Все атрибуты имеют уникальное имя. XML открывается во всех браузерах, и яЯ вполне уверен, что это "хорошо сформированные», Я успешно написал код для чтения атрибутов родительского узла, но каждый раз, когда я пытаюсь написать код для чтения атрибутов дочерних узлов, я получаю ошибку времени выполнения 91 или ее нет вообще. I '
мы пробовали МНОГО перестановок следующего кода без успеха. Я приветствую любые предложения о том, как циклически проходить через этот XML, чтобы я мог обрабатывать и хранить данные в двух связанных таблицах.
Function ReadAttributes(ByVal strXML As String)
Dim xmldoc As New DOMDocument
Dim iNode As MSXML2.IXMLDOMNode
Dim iNode2 As MSXML2.IXMLDOMNode
Dim DonorNodeList As IXMLDOMNodeList
Dim iAtt As IXMLDOMAttribute
Dim iAtt2 As IXMLDOMAttribute
On Error GoTo ReadAttributes_OnError
xmldoc.async = False
xmldoc.loadXML strXML
If xmldoc.parseError.errorCode 0 Then
MsgBox "Invalid XML, Load Failed"
GoTo ReadAttributes_OnError
End If
Set DonorNodeList = xmldoc.getElementsByTagName("Donor")
For Each iNode In DonorNodeList
For Each iAtt In iNode.Attributes
MsgBox iAtt.Name & ": " & iAtt.nodeTypedValue
Next
Set iNode2 = iNode.firstChild
MsgBox iNode2.nodeName
For Each iAtt2 In iNode2.Attributes
MsgBox iAtt.Name & ": " & iAtt.nodeTypedValue
Next
Next
Exit Function
ReadAttributes_OnError:
MsgBox Err.Number & " - " & Err.Description
Exit Function
End Function