Пытаюсь проверить XML с помощью XSD схемы
Нашел пример на MSXML 4.0 SDK
При выполнении выходит, что оба XML правильные.
В чем может быть дело?

программа
priv sOutput As String
sOutput = ValidateFile("validXML.xml")
sOutput = sOutput + ValidateFile("notvalidxml.xml")
MESSAGEBOX(sOutput)
Function ValidateFile(strFile As String)
*Create an XML DOMDocument object.
local x As msxml.DOMDocument,cRet AS String
x=CREATEOBJECT('msxml.DOMDocument')


*Load and validate the specified file into the DOM.
x.async = .F.
x.validateOnParse = .T.
x.resolveExternals = .T.
x.Load(strFile)
*Return validation results in message to the user.
If x.parseError.errorCode <> 0
cRet = "Validation failed on " +;
strFile +CHR(13)+;
"=====================" +CHR(13)+;
"Reason: " + x.parseError.reason +;
+CHR(13) + "Source: "+;
x.parseError.srcText +;
+CHR(13)+ "Line: " +;
x.parseError.Line
Else
cRet = "Validation succeeded for " +;
strFile +CHR(13)+;
"======================"+;
CHR(13) + x.xml +CHR(13)
EndIf
RETURN cRet

notvalidxml.xml
<?xml version="1.0"?>
<catalog>
<book xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:noNamespaceSchemaLocation="nn.xsd"
id="bk101">
<author>Gambardella, Matthew</author>
<title>XML Developer's Guide</title>
<genre>Computer</genre>
<cost>44.95</cost>
<publish_date>2000-10-01</publish_date>
<description>An in-depth look at creating applications with
XML.</description>
</book>
</catalog>

validxml.xml
<?xml version="1.0"?>
<catalog>
<book xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:noNamespaceSchemaLocation="nn.xsd"
id="bk101">
<author>Gambardella, Matthew</author>
<title>XML Developer's Guide</title>
<genre>Computer</genre>
<price>44.95</price>
<publish_date>2000-10-01</publish_date>
<description>An in-depth look at creating applications with
XML.</description>
</book>
</catalog>

nn.xsd<?xml version="1.0"?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="book" type="bookdata"/>
<xsd:complexType name="bookdata">
<xsd:sequence>
<xsd:element name="author" type="xsd:string"/>
<xsd:element name="title" type="xsd:string"/>
<xsd:element name="genre" type="xsd:string"/>
<xsd:element name="price" type="xsd:float"/>
<xsd:element name="publish_date" type="xsd:date"/>
<xsd:element name="description" type="xsd:string"/>
</xsd:sequence>
<xsd:attribute name="id" type="xsd:string"/>
</xsd:complexType>
</xsd:schema>

Все получилось! Большое спасибо! Попутно не подскажите как в msxml2.DOMDocument.5.0 указать xsd схему для xml документа, если в xml нет параметра noNamespaceSchemaLocation ?

У меня не получилось
[CSV]x=CREATEOBJECT('msxml2.DOMDocument.5.0')
x.async = .F.
x.validateOnParse = .T.
?x.Load("nn.xsd")
?x.parseError.reason
s=CREATEOBJECT('msxml2.XMLSchemaCache.5.0')
s.add(x.namespaceURI ,x)
x.schemas = s
?x.Load("nonvalid.xml") && Документ не загружается
?x.parseError.reason && The system cannot locate the object specified.

У меня еще вопрос. Вы извините за назойливость, но сроки поджимают...
Я проверяю документ по xsd и получаю ошибку, а причину понять не могу.
Программа проверки

Сообщение об ошибке
Судя по схеме не должно быть ошибки.
XSD и XML прилагаю

БОЛЬШОЕ СПАСИБО!