HOW TO: Create a Key Element for an XML Schema

Back to the top

Create an XML Schema

<xs:schema xmlns:xs="http://www.w3.org/2001/XmlSchema" elementFormDefault="qualified" attributeFormDefault="unqualified">
  <xs:element name="Parent">
    <xs:complexType>
      <xs:sequence>
        
      <xs:element name="Children">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="Child" minOccurs="0" maxOccurs="unbounded">
                <xs:complexType>
                    <xs:attribute name="name"  type="xs:string" use="required"/>
                </xs:complexType>
              </xs:element>
            </xs:sequence>
          </xs:complexType>
        </xs:element>

      </xs:sequence>
    </xs:complexType>    
  </xs:element>
</xs:schema>
				

Back to the top

Create a Visual Basic .NET Application

1. Follow these steps to create a new Windows application in Visual Basic .NET:
   1. Start Microsoft Visual Studio .NET.
   2. On the File menu, point to New, and then click Project.
   3. In the New Project dialog box, click Visual Basic Projects under Project Types, click Windows Application under Templates, and then click OK.
2. Drag a Button control from the toolbox to Form1.
3. Import the following namespaces:

   Imports System.Xml
   Imports System.Xml.Schema
   Imports System.IO
   					

4. Add the following code as a Sub procedure that triggers Validation events for the XmlSchema object:

   Public Sub ValidationEventHandler(ByVal sender As Object, ByVal args As System.Xml.Schema.ValidationEventArgs)
           Console.WriteLine(args.Message)
       End Sub
   					

5. Add the following code in the Click event of Button1:

           Try
           Dim fstream As New FileStream("C:\key.xsd", FileMode.Open)
           Dim myschema As New XmlSchema()
   
           myschema = XmlSchema.Read(fstream, Nothing)
           myschema.Compile(AddressOf ValidationEventHandler)
   
           Dim schemaobjecttable As XmlSchemaObjectTable
           Dim ParentElement As XmlSchemaElement
           Dim ParentElementQName As New XmlQualifiedName("Parent", "")
   
           schemaobjecttable = myschema.Elements
           If schemaobjecttable.Contains(ParentElementQName) Then
               ParentElement = CType(schemaobjecttable.Item(ParentElementQName), XmlSchemaElement)
   
               Dim element_key As New XmlSchemaKey()
               element_key.Name = "IDKey"
               element_key.Selector = New XmlSchemaXPath()
               element_key.Selector.XPath = "Children/Child"
   
               Dim field As New XmlSchemaXPath()
               field.XPath = "@name"
               element_key.Fields.Add(field)
               ParentElement.Constraints.Add(element_key)
           End If
   
           myschema.Compile(AddressOf ValidationEventHandler)
   
            'Write to an external file.
           Dim strmWriter As New StreamWriter("c:\NewSchema.xsd")
           myschema.Write(strmWriter)
           strmWriter.Close()
           'Write to the Output window.
           Dim strWriter As New StringWriter()
           myschema.Write(strWriter)
           Console.WriteLine(strWriter.ToString)
           Catch GenExp As Exception
               Console.WriteLine(GenExp.Message)
           Catch XMLExp As XmlException
               Console.WriteLine(XMLExp.Message)
           Catch XmlSchemaExp As XmlSchemaException
               Console.WriteLine(XmlSchemaExp.Message)
           End Try
   					

6. In the Output window, notice that the XSD has a new element:

   <xs:key name="IDKey">
         <xs:selector xpath="Children/Child" />
         <xs:field xpath="@name" />
       </xs:key>
   						

   Additionally, the NewSchema.xsd file is created in the root folder (C:\).

Back to the top