Why does this XML ge validated ?

Hello everybody,


I use msxml version4 and I want to validate a xml file against a XDR file.
When I change for example this to type int <ElementType name="CompanyName" dt:type="string" /> then I would expect to receive an error... but I don't get any errors at all ! :(

Does anyone know what should be wrong ?

I hope someone could help me out !

Thanks,

Bjorn

here's my XDR file :

VB Code:

<?xml version="1.0" ?>
<Schema xmlns="urn:schemas-microsoft-com:xml-data" 
        xmlns:dt="urn:schemas-microsoft-com:xml:datatypes"  
        xmlns:sql="urn:schemas-microsoft-com:xml-sql">
 
   <ElementType name="CustomerID" dt:type="int" />
   <ElementType name="CompanyName" dt:type="int" />
   <ElementType name="City" dt:type="string" />
 
   <ElementType name="ROOT" sql:is-constant="1">
      <element type="Customers" />
   </ElementType>
 
   <ElementType name="Customers"  sql:relation="Cust" >
      <element type="CustomerID"  sql:field="CustomerID" />
      <element type="CompanyName" sql:field="CompanyName" />
      <element type="City"        sql:field="City" />
 
   </ElementType>
</Schema>

This is my XML file :

VB Code:

<ROOT>
  <Customers>
    <CustomerID>1111</CustomerID>
    <CompanyName>Sean Chai</CompanyName>
    <City>NY</City>
  </Customers>
  <Customers>
    <CustomerID>1112</CustomerID>
    <CompanyName>Tom Johnston</CompanyName>
     <City>LA</City>
  </Customers>
  <Customers>
    <CustomerID>1113</CustomerID>
    <CompanyName>Institute of Art</CompanyName>
  </Customers>
</ROOT>

And this is my code to validate :

VB Code:

Dim xmlschema As MSXML2.XMLSchemaCache40
        xmlschema = New MSXML2.XMLSchemaCache40()
        xmlschema.add("", "c:\temp\temp2\SampleSchema.xml")
 
        'Create an XML DOMDocument object.
        Dim xmldom As MSXML2.DOMDocument40
        xmldom = New MSXML2.DOMDocument40()
 
        'Assign the schema cache to the DOM document.
        'schemas collection.
        xmldom.schemas = xmlschema
 
 
        'Load books.xml as the DOM document.
        xmldom.async = False
        xmldom.validate()
 
        xmldom.load("c:\temp\temp2\Samplexml.xml")
 
        'Return validation results in message to the user.
        If xmldom.parseError.errorCode <> 0 Then
            MsgBox(xmldom.parseError.errorCode & " " & _
            xmldom.parseError.reason)
        Else
            MsgBox("No Error")
        End If

Here is my code which does work. It contains some extra stuff, but you can modify it.

Edit: MSXML4 is required.

VB Code:

Public Sub ValidateXML()
'***************************************************************************
'Purpose: Validate the modified xml file against the schema
'Inputs:  None
'Outputs: Error display
'***************************************************************************
 
    Dim oxmlSchema As MSXML2.XMLSchemaCache40
    Dim oxmlValidateDoc As MSXML2.DOMDocument40
    Dim strText As String
    
    Screen.MousePointer = vbHourglass
    
    On Error GoTo ErrorRoutine
    
    'Create the schema cache and add the schema to it.
    Set oxmlSchema = New MSXML2.XMLSchemaCache40
    oxmlSchema.Add "", frmFileLoc.SchemaLocation & "\" & gstrSchemaName
    
    'Create an XML DOMDocument object.
    Set oxmlValidateDoc = New MSXML2.DOMDocument40
    
    'Assign the schema cache to the schemas collection.
    Set oxmlValidateDoc.schemas = oxmlSchema
    
    PrettyPrint True
    
    'Load the xml file as the DOM document.
    oxmlValidateDoc.async = False
    oxmlValidateDoc.Load gstrTempFileName
    
    Screen.MousePointer = vbNormal
    
    'Return validation results in message to the user.
    If oxmlValidateDoc.parseError.errorCode <> 0 Then
        If oxmlValidateDoc.parseError.errorCode = -2146697210 Then
            Err.Raise 1004
        Else
            ' Remove tabs from the text
            strText = Replace(oxmlValidateDoc.parseError.srcText, Chr$(9), "")
            frmValidate.lblResults.Alignment = vbLeftJustify
            frmValidate.lblResults.Caption = _
                    "Error: " & oxmlValidateDoc.parseError.reason _
                    & vbCrLf _
                    & "Found in line number " & oxmlValidateDoc.parseError.Line _
                    & "  line position " & oxmlValidateDoc.parseError.linepos & "." _
                    & vbCrLf & vbCrLf _
                    & strText _
                    & vbCrLf & vbCrLf _
                    & "(Other errors may be present.)"
            frmValidate.imgSad.Visible = True
            frmValidate.imgHappy.Visible = False
            frmValidate.Show vbModal
            frmMain.sbarStatus.Panels(1).Text = "Knowledge base validation failed"
        End If
    Else
        frmValidate.lblResults.Alignment = vbCenter
        frmValidate.lblResults.Caption = vbCrLf & vbCrLf _
                                       & "Knowledge base validation passed"
        frmValidate.imgSad.Visible = False
        frmValidate.imgHappy.Visible = True
        frmValidate.Show vbModal
        frmMain.sbarStatus.Panels(1).Text = "Knowledge base validation passed"
    End If
    
    Set oxmlSchema = Nothing
    Set oxmlValidateDoc = Nothing
 
    Exit Sub
    
ErrorRoutine:
 
    If Err.Number = 1004 Then
        MsgBox ResolveResString(resMissingTempFile), _
               vbExclamation + vbOKOnly, _
               ResolveResString(resErrorTitle, "|1", "Validation")
    Else
        DisplayError "ValidateXML"
    End If
   
End Sub

Hi Martin,

thanks for your answer but as I can see, there isn't that much difference between our code. There's only more errorhandling.
The thing is that I don't get an error.

Could you please verify my 2 files against my (or your) code ?

Thanks a lot !

Bjorn

Since my current program expects a specific XML file, I would have to write a new program to do that. The main differences that I see between your code and mine is your xmldom.validate() line and that I use Set and you don't. What is .validate()? Do you need it? The xml document will be validated when the .load happens.

Hello Martin,


I found the error

Quote:

---

<Schema xmlns="urn:schemas-microsoft-com:xml-data"
xmlns:dt="urn:schemas-microsoft-com:xml:datatypes"
xmlns:sql="urn:schemas-microsoft-com:xml-sql">

---

this needs to be:

Quote:

---

<Schema xmlns="urn:schemas-microsoft-com:xml-data"
xmlns:dt="urn:schemas-microsoft-com:datatypes"
xmlns:sql="urn:schemas-microsoft-com:xml-sql">

---

I hope this will give even a wider experience then you've already got !;)

Thanks for the help,

Bjorn