MSXML VBA：针对XSD验证XML：“提供的”命名空间与模式的targetNamespace不同。 [英] MSXML VBA: Validating XML against XSD: "The '' namespace provided differs from the schema's targetNamespace."

问题描述

我正在使用MSXML 6.0 DOM验证.XSD文件.XSD文件，但执行该代码时，我收到此错误消息：

  Test.xsd＃/ schema / targetNamespace [1] 
提供的''命名空间与模式的http://somewhere.com/roottargetNamespace不同。 
  

.XML和.XSD文件的大量简化版本也产生相同的错误：

XML文件

 <？xml版本=1.0encoding =UTF-8standalone =yes？> 
< ns2：noderoot xmlns：ns2 =http://somewhere.com/root> 
< general> 
< year> 2011< / year> 
< month> 02< / month> 
< / general> 
< / ns2：noderoot> 
  

XSD文件

 <？xml version =1.0encoding =UTF-8？> 
< xs：schema xmlns =http://somewhere.com/root
 targetNamespace =http://somewhere.com/root
 xmlns：xs =http： //www.w3.org/2001/XMLSchema
 xmlns：xsi =http://www.w3.org/2001/XMLSchema-instance
 elementFormDefault =unqualified
 attributeFormDefault = 不合格 > 
 
< xs：complexType name =TYPE_nodeGeneral> 
< xs：sequence> 
< xs：element name =year> 
< xs：simpleType> 
< xs：restriction base =xs：string> 
< xs：length value =4/> 
< xs：pattern value =\d {4}/> 
< / xs：restriction> 
< / xs：simpleType> 
< / xs：element> 
< xs：element name =month> 
< xs：simpleType> 
< xs：restriction base =xs：string> 
< xs：length value =2/> 
< / xs：restriction> 
< / xs：simpleType> 
< / xs：element> 
< / xs：sequence> 
< / xs：complexType> 
 
< xs：complexType name =TYPE_noderoot> 
< xs：sequence> 
< xs：element name =generaltype =TYPE_nodeGeneral>< / xs：element> 
< / xs：sequence> 
< / xs：complexType> 
 
< xs：element name =noderoottype =TYPE_noderoot>< / xs：element> 
 
< / xs：schema> 
  

为了验证XML文件，我使用的是使用VBA（Excel 2010）编写的代码：

  Sub XSD_Validation（）
 
 XML_FILE =I：\ Test.xml
 XSD_FILE =I：\Test.xsd
 
 Dim xmlDoc As MSXML2.DOMDocument60 
设置xmlDoc =新建MSXML2.DOMDocument60 
 xmlDoc。 async = False 
 xmlDoc.validateOnParse = False 
 xmlDoc.resolveExternals = False 
 
 xmlDoc.Load XML_FILE 
 
'打开XSD文件
 Dim obXSD作为MSXML2.DOMDocument60 
设置objXSD =新的MSXML2.DOMDocument60 
 objXSD.async = False 
 objXSD.Load XSD_FILE 
 
'填充模式缓存
 Dim objSchemaCache作为XMLSchemaCache60 
设置objSchemaCache =新的MSXML2.XMLSchemaCache60 
 objSchemaCache.Add，objXSD 
 
'XSD XML绑定
设置xmlDoc.Schemas = objSchemaCache 
 
'Err或可视化
 Dim objErr As MSXML2.IXMLDOMParseError 
设置objErr = xmlDoc.Validate（）
如果objErr.errorCode<> 0然后
 Debug.Print错误解析器：& objErr.errorCode& ;& objErr.reason 
 Else 
 Debug.Print找不到错误
如果
 
设置objErr = Nothing 
设置objXSD =没有
 Set objSchemaCache = Nothing 
 Set xmlDoc = Nothing 
 
 End Sub 
  

XSD文件可以被修改，但XML文件必须保持不可触摸。

我一直在努力解决这个问题超过8个小时，没有任何积极的结果。 / p>

任何帮助将不胜感激。

解决方案

尝试添加命名空间

  Sub XSD_Validation（）
 Dim xmlDoc As MSXML2。 DOMDocument60 
 Dim objSchemaCache作为新的XMLSchemaCache60 
 Dim objErr作为MSXML2.IXMLDOMParseError 
 
 objSchemaCache.Addhttp://somewhere.com/root，LoadXmlFile（I：\ Test.xsd）
 
设置xmlDoc = LoadXmlFile（I：\Test.xml）
 S et xmlDoc.Schemas = objSchemaCache 
 
设置objErr = xmlDoc.Validate（）
如果objErr.errorCode = 0然后
 Debug.Print找不到错误
否则
 Debug.Print错误解析器：& objErr.errorCode& ;& objErr.reason 
 End If 
 End Sub 
 
函数LoadXmlFile（Path As String）作为MSXML2.DOMDocument60 
设置LoadXmlFile =新建MSXML2.DOMDocument60 
 
使用LoadXmlFile 
 .async = False 
 .validateOnParse = False 
 .resolveExternals = False 
 .load路径
结束
结束函数
  

I’m trying to validate an .XML file against an .XSD file with MSXML 6.0 DOM but on executing the code I’m getting this error message:

Test.xsd#/schema/targetNamespace[1]
"The '' namespace provided differs from the schema's 'http://somewhere.com/root' targetNamespace."

A heavily simplified versions of the .XML and .XSD files also produce the same error:

XML FILE

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
<ns2:noderoot xmlns:ns2="http://somewhere.com/root">
    <general>
        <year>2011</year>
        <month>02</month>
    </general> 
</ns2:noderoot>

XSD FILE

<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns="http://somewhere.com/root" 
            targetNamespace="http://somewhere.com/root" 
            xmlns:xs="http://www.w3.org/2001/XMLSchema" 
            xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
            elementFormDefault="unqualified" 
            attributeFormDefault="unqualified">

    <xs:complexType name="TYPE_nodeGeneral">
        <xs:sequence>
            <xs:element name="year">
                <xs:simpleType>
                    <xs:restriction base="xs:string">
                        <xs:length value="4"/>
                        <xs:pattern value="\d{4}"/>
                    </xs:restriction>
                </xs:simpleType>
            </xs:element>
            <xs:element name="month">
                <xs:simpleType>
                    <xs:restriction base="xs:string">
                        <xs:length value="2"/>
                    </xs:restriction>
                </xs:simpleType>
            </xs:element>
        </xs:sequence>
    </xs:complexType>           

    <xs:complexType name="TYPE_noderoot">
        <xs:sequence>
            <xs:element name="general" type="TYPE_nodeGeneral"></xs:element>            
        </xs:sequence>
    </xs:complexType>

    <xs:element name="noderoot" type="TYPE_noderoot"></xs:element>

</xs:schema>

In order to validate the XML file I’m using this code written in VBA (Excel 2010):

Sub XSD_Validation()

   XML_FILE = "I:\Test.xml"    
   XSD_FILE = "I:\Test.xsd"

    Dim xmlDoc As MSXML2.DOMDocument60
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.resolveExternals = False

    xmlDoc.Load XML_FILE

    ' Open XSD file
    Dim obXSD As MSXML2.DOMDocument60
    Set objXSD = New MSXML2.DOMDocument60
    objXSD.async = False
    objXSD.Load XSD_FILE

    ' Populate schema cache
    Dim objSchemaCache As XMLSchemaCache60
    Set objSchemaCache = New MSXML2.XMLSchemaCache60
    objSchemaCache.Add "", objXSD

    ' XSD XML Bind
    Set xmlDoc.Schemas = objSchemaCache

    'Error visualization
    Dim objErr As MSXML2.IXMLDOMParseError
    Set objErr = xmlDoc.Validate()
    If objErr.errorCode <> 0 Then
        Debug.Print "Error parser: " & objErr.errorCode & "; " & objErr.reason
    Else
        Debug.Print "No errors found"
    End If

    Set objErr = Nothing
    Set objXSD = Nothing
    Set objSchemaCache = Nothing
    Set xmlDoc = Nothing

End Sub

The XSD file can be modified but the XML file must remain untouchable.

I've been trying to solve this issue for more than 8 hours with no positive result.

Any help will be greatly appreciated.

解决方案

Try adding the namespace URI to the schema cache.

Sub XSD_Validation()
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim objSchemaCache As New XMLSchemaCache60
    Dim objErr As MSXML2.IXMLDOMParseError

    objSchemaCache.Add "http://somewhere.com/root", LoadXmlFile("I:\Test.xsd")

    Set xmlDoc = LoadXmlFile("I:\Test.xml")
    Set xmlDoc.Schemas = objSchemaCache

    Set objErr = xmlDoc.Validate()
    If objErr.errorCode = 0 Then
        Debug.Print "No errors found"
    Else
        Debug.Print "Error parser: " & objErr.errorCode & "; " & objErr.reason
    End If
End Sub

Function LoadXmlFile(Path As String) As MSXML2.DOMDocument60
    Set LoadXmlFile = New MSXML2.DOMDocument60

    With LoadXmlFile
        .async = False
        .validateOnParse = False
        .resolveExternals = False
        .load Path
    End With
End Function

这篇关于MSXML VBA：针对XSD验证XML：“提供的”命名空间与模式的targetNamespace不同。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！