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

Прайс Кевин Т.

</tblInventory>

<tblInventory ID="5">

<ProductName>Wind-Up Robot</ProductName>

<RetailPrice>29.99</RetailPrice>

<Description>Giant robot: attack toybox!</Description>

</tblInventory>

<tblInventory ID="6">

<ProductName>Rubber Eyeballs</ProductName>

<RetailPrice>0.99</RetailPrice>

<Description>Peek-a-boo!</Description>

</tblInventory>

<tblInventory ID="7">

<ProductName>Doggy Mess</ProductName>

<RetailPrice>1.99</RetailPrice>

<Description>Yechhh!</Description>

 </tblInventory>

 <tblInventory ID="8">

<ProductName>Mini-Camera</ProductName>

<RetailPrice>9.99</RetailPrice>

<Description>For future spies!</Description>

 </tblInventory>

 <tblInventory ID="9">

<ProductName>Glow Worms</ProductName>

<RetailPrice>1.99</RetailPrice>

<Description>Makes them easy to find</Description>

 </tblInventory>

 <tblInventory ID="10">

<ProductName>Insect Pops</ProductName>

<RetailPrice>0.99</RetailPrice>

<Description>Special treats</Description>

 </tblInventory>

 <tblInventory ID="11">

<ProductName>Alien Alarm Clock</ProductName>

<RetailPrice>45.99</RetailPrice>

<Description>Do you know what time it is out there?</Description>

</tblInventory>

<tblInventory ID="12">

<ProductName>Cinnamon Toothpicks</ProductName>

<RetailPrice>1.99</RetailPrice>

<Description>Really wakes up your mouth</Description>

</tblInventory>

 </NewDataSet>

Для

составления ведомости на выдачу заработной платы сотрудникам компании нужно создать код сохранения информации о сотрудниках в формате XML

для каждого отдела. Для этого разработчик базы данных должен включить в форму frmPrepareXML вторую кнопку btnEmployees и вставить в код класса формы frmPrepareXML код из листинга 10.9.

Листинг 10.9. Код сохранения данных из таблиц tblEmployee и tblDepartment в XML-файле

Private Sub btnEmployees_Click (ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles btnEmployees.Click

 Dim dsEmployees As New DataSet

 Dim daEmployees As New SqlDataAdapter _

("select * from tblEmployee", en)

 Dim daDepartments As New SqlDataAdapter _

("select * from tblDepartment", en)

 daDepartments.Fill(dsEmployees,"tblDepartment")

 daEmployees.Fill(dsEmployees, "tblEmployee")

 ' Определение отношения между таблицами.

 dsEmployees.Relations.Add("DepartmentEmployees", _

dsEmployees.Tables("tblDepartment").Columns("ID"), _

dsEmployees.Tables("tblEmployee").Columns("DepartmentID"))

 ' Сохранение данных в XML-файле.

 dsEmployees.WriteXml("..\Employees.xml")

End Sub

В этом коде для сохранения данных из таблиц tblDepartment и tblEmployee в XML-файле используются предлагаемые по умолчанию параметры объекта DataSet. Полученный в результате XML-файл Employees.xml показан в листинге 10.10.

Листинг 10.10. XML-файл Employees. xml, полученный в результате сохранения данных из таблиц tblDepartment и tblEmployee

<?xml version="1.0" standalone="yes"?>

<NewDataSet>

 <tblDepartment>

<ID>1</ID>

<DepartmentName>Administration</DepartmentName>

 </tblDepartment>

 <tblDepartment>

<ID>2</ID>

<DepartmentName>Engineering</DepartmentName>

 </tblDepartment>

 <tblDepartment>

<ID>3</ID>

<DepartmentName>Sales</DepartmentName>

 </tblDepartment>

 <tblDepartment>

<ID>4</ID>

<DepartmentName>Marketing</DepartmentName>