Dim schemaDoc As XmlDocument = New XmlDocument( )
Dim dataDoc As XmlDocument = New XmlDocument( ) Dim dataSetDoc As XmlDocument = New XmlDocument( ) Dim root As XmlElement Dim schemaNode As XmlNode Dim dataNode As XmlNode ' Load XML Schema(.xsd) and Data(.xml) files into XmlDocuments schemaDoc.Load("ttEmp.xsd") dataDoc.Load("empData.xml") ' Load the outer element into the dataSetDoc XmlDocument dataSetDoc.LoadXml("<DataSet></DataSet>") root = dataSetDoc.DocumentElement root.SetAttribute("xmlns", "") ' Insert schema and data nodes as children of the dataSetDoc root node schemaNode = dataSetDoc.ImportNode(schemaDoc.DocumentElement, True) dataNode = dataSetDoc.ImportNode(dataDoc.DocumentElement, True) root.AppendChild(schemaNode) root.AppendChild(dataNode) dynTTEl = dataSetDoc.DocumentElement( ) |