Validation XML

Question

Salut,

Je voudrais valider un fichier XML avec un sch&#233;ma XSD, pour cela j'ai utilis&#233; le code suivant :

    Dim bReturn As Boolean
    Dim schema As New MSXML2.XMLSchemaCache
    Dim parseError As IXMLDOMParseError
    Dim xmlSchema As New MSXML2.DOMDocument
    Dim xmlToValidate As New MSXML2.DOMDocument
    Dim bSchema As Boolean
    
    bReturn = False
    xmlSchema.async = False
    bSchema = xmlSchema.Load(App.Path & "" & XSD_FILE)


    If (bSchema) Then
        schema.Add "xmlns:xs", xmlSchema
        Set xmlToValidate.schemas = schema


        xmlToValidate.validateOnParse = True
        bReturn = xmlToValidate.Load(txtDocumentPath.text)


        Set parseError = xmlToValidate.Validate
    End If

J'obtiens alors une erreur "Incorrect definition for the root element in schema"

merci pour votre aide

nad008 · Answer

J'ai maintenant un autre souci toujours sur la validation de mon fichier XML par rapport au sch&#233;ma. 
J'ai modifi&#233; mon code comme suit :
   
    Dim schema As New MSXML2.XMLSchemaCache40
    Dim parseError As IXMLDOMParseError
    Dim xmlSchema As New MSXML2.DOMDocument40
    Dim xmlToValidate As New MSXML2.DOMDocument40

apr&#232;s avoir t&#233;l&#233;chager MSXML4 (SP2) sut le site de microsoft 

Maintenant j'ai ce message d'erreur :
"l'espace nom xmlns:xs fourni est diff&#233;rent de l'espace de nom cible du sch&#233;ma"

Est-ce qqn aurait une id&#233;e pour r&#233;soudre &#231;a?

merci

nad008 · Answer

R&#233;ponse : en utilisant ce lien http://www.developerfusion.com/show/2386/2/
j'ai trouv&#233; la r&#233;ponse &#224; ma question

le code est le suivant :
Private Sub Validation_Click()


    Dim schemaCache As MSXML2.XMLSchemaCache40
    Dim doc As MSXML2.DOMDocument40
    
    Set schemaCache = New MSXML2.XMLSchemaCache40
    schemaCache.Add "
http://www.govtalk.gov.uk/CM/envelope", App.Path & "\xsd" & ENVELOPE_XSD
    schemaCache.Add "
http://www.govtalk.gov.uk/taxation/EOY", App.Path & "\xsd" & EOY_SCHEMA_XSD
    Set doc = New MSXML2.DOMDocument40
    Set doc.schemas = schemaCache
    doc.async = False


    If Not doc.Load(txtDocumentPath.text) Then
        MsgBox "Error loading XML document: " & doc.parseError.reason
    Else
        MsgBox "Validation OK"
    End If
    
End Sub

Validation XML

2 réponses

Discussions similaires