Обработка баз данных на Visual Basic®.NET

 <Salary>42000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>22</ID>
 <FirstName>Terri</FirstName>
 <LastName>Woodruff</LastName>
 <DepartmentID>3</DepartmentID>
 <Salary>66000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>23</ID>
 <FirstName>Cathy</FirstName>
 <LastName>Rosenthal</LastName>
 <DepartmentID>4</DepartmentID>
 <Salary>0</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>24</ID>
 <FirstName>Margaret</FirstName>
 <LastName>Eves</LastName>
 <DepartmentID>1</DepartmentID>
 <Salary>24000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>25</ID>
 <FirstName>Mikki</FirstName>
 <LastName>Lemay</LastName>
 <DepartmentID>2</DepartmentID>
 <Salary>50000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>26</ID>
 <FirstName>Randy</FirstName>
 <LastName>Nelson</LastName>
 <DepartmentID>3</DepartmentID>
 <Salary>78000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>27</ID>
 <FirstName>Kathleen</FirstName>
 <LastName>Husbands</LastName>
 <DepartmentID>4</DepartmentID>
 <Salary>108000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>28</ID>
 <FirstName>Kathleen</FirstName>
 <LastName>Eberman</LastName>
 <DepartmentID>1</DepartmentID>
 <Salary>28000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>29</ID>
 <FirstName>Richard</FirstName>
 <LastName>Rosenthal</LastName>
 <DepartmentID>2</DepartmentID>
 <Salary>58000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>30</ID>
 <FirstName>Mike</FirstName>
 <LastName>Woodruff</LastName>
 <DepartmentID>3</DepartmentID>
 <Salary>90000</Salary>
 </tblEmployee>
</NewDataSet>

К сожалению, данный XML-файл содержит список сотрудников, который не сгруппирован по отделам. Несмотря на созданное отношение между родительской таблицей tblDepartment и дочерней таблицей tblEmployee полученный XML-файл содержит данные отдельно для каждой таблицы. Для вложения дочерних элементов из таблицы tblEmployee в родительские элементы из таблицы tblDepartment нужно указать значение True для свойства Nested объекта-отношения Relation.

dsEmployees.Relations("DepartmentEmployees").Nested = True

После вставки этой строки кода перед строкой сохранения данных

dsInventory.WriteXml("..\Inventory.xml", XmlWriteMode.WriteSchema)

будет получен XML-файл Employees.xml, показанный в листинге 10.11.

 Листинг 10.11. XML-файл Employees.xml с вложением дочерних элементов из таблицы tblEmployee в родительские элементы из таблицы tblDepartment

<?xml version="1.0" standalone="yes"?>
<NewDataSet>
 <tblDepartment>
 <ID>1</ID>
 <DepartmentName>Administration</DepartmentName>
 <tblEmployee>
 <ID>2035</ID>
 <FirstName>Julie</FirstName>
 <LastName>Ryan</LastName>
 <DepartmentID>1</DepartmentID>
 <Salary>4000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>2039</ID>
 <FirstName>Sorel</FirstName>
 <LastName>Terman</LastName>
 <DepartmentID>1</DepartmentID>
 <Salary>8000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>2051</ID>
 <FirstName>Terri</FirstName>
 <LastName>Allen</LastName>
 <DepartmentID>1</DepartmentID>
 <Salary>20000</Salary>
 </tblEmployee>
 <tblEmployee>
 <ID>2055</ID>
 <FirstName>Margaret</FirstName>
 <LastName>Eves</LastName>