Обработка баз данных на Visual Basic®.NET - Джеффри Мак-Манус

В этом разделе приводятся примеры выполнения задач, связанных с созданием приложений для XML, XSL, XSLT и XPATH. (В замечании из предыдущего раздела приводятся ссылки на некоторые ресурсы с более подробным описанием этих технологий.) Как уже отмечалось, основная цель XML заключается в структурировании и описании данных. Для этого на платформе .NET Framework предусмотрены классы пространства имен System.xml. В приведенных далее примерах используются некоторые другие новые компоненты Visual Basic .NET, которые подробно комментируются.

Применение модели Document Object Model

С появлением модели Document Object Model (DOM) значительно упростилось создание динамически генерируемых Web-узлов, благодаря приданию дополнительных функциональных возможностей статическим элементами в документах HTML/XML. Простая строка кода document.location сценария JavaScript выполняет обход всех элементов Web-страницы, начиная с самого верха объекта document и заканчивая поиском свойства location. Этот способ программируемого доступа к объектам Web-страницы был в определенной степени революционным. Затем появился XML со строгими правилами и динамической объектной моделью, на основе которой автор документа определял корневой или родительский элемент.

В примерах оставшейся части главы с помощью утилиты SQLXML создается XML-документ с именем simple2.xml. Ручное кодирование больших HTML-страниц — это довольно скучное и утомительное занятие, при котором нужно тщательно следить за форматом всех данных. Однако XML обладает несомненным достоинством: нет необходимости беспокоиться о том, что в документ попадет какая-то дополнительная ненужная информация, как это обычно бывает при создании Web-страниц с помощью некоторых HTML-редакторов.

В листинге 9.4 приведен текст простого XML-документа simple2.xml. Расположение символов конца строки на самом деле не имеет никакого значения, потому что аналогично другим языкам программирования XML использует специализированные символы для обозначения строк. Например, в С++, Java и JavaScript для разделения строк используется точка с запятой, а в XML единой строкой считаются все символы между открывающим < и закрывающим дескрипторами.

<?xml version="1.0" encoding="utf-8?>

<customer>

 <tblCustomer ID="1" FirstName="Carole" LastName="Vermeren"Address="6227 East Crossing Drive" City="Ocean Glen" State="NH" PostalCode="98609" Phone="6034485994" />

 <tblCustomer ID="2" FirstName="Cathy" LastName="Johnson" Address="West River Street" City= "Big Center" State="NC" PostalCode="18602" Phone="9193669205" />

 <tblCustomer ID="3" FirstName="Eric" LastName="Haglund" Address="9193 West Beach Street" City="Brown Heights" State="OK" PostalCode="83481" Phone="4059310689" />

 <tblCustomer id="4" FirstName="Julie" LastName="Ryan" Address="9161 Fort Beach Way" City="South Point" State="KY" PostalCode="26973" Phone="5025245220" />

 <tblCustomer ID="5" FirstName="Richard" LastName="Halpin" Address="9760 Happy River Street" City="North Lake" State="MN" PostalCode="62875" Phone="6124066311" />

 <tblCustomer ID="6" FirstName="Kathleen" LastName="Johnson" Address="9385 West Heights Street" City="Brown Towne" State="MI" PostalCode="59609" Phone="3138032214" />

 <tblCustomer ID="7" FirstName="Sorel" LastName="Polito" Address="2104 Brown Brook Drive" City="Blue Valley" State="MT" PostalCode="54401" Phone="4067260212" />

 <tblCustomer ID="8" FirstName="Sorel" LastName="Terman" Address="1920 West Point Street" City="Blue Bluffs" State="WI" PostalCode="08965" Phone="6086246867" />

 <tblCustomer ID="9" FirstName="Randy" LastName="Hobaica" Address="4619 North Plains Drive" City="Brown Ridge" State="CT" PostalCode="09793" Phone="2039421728" />

 <tblCustomer ID="10" FirstName="Mattew" LastName="Haglund" Address="9725 Sunset Crossing Avenue" City="New Brook" State="AR" PostalCode="79013" Phone="5014589191" />

</customer>

Информация в листинге 9.4 взята из базы данных Novelty, описанной в главах 1-3, с помощью приведенного ниже запроса.

SELECT ТОР 10 * FROM tblCustomer FOR XML AUTO

Затем в него вручную добавлен элемент <customer>. Далее, в разделе об утилите SQLXML, показано, как для любого XML-документа автоматически создается корневой элемент.

В следующем примере рассматривается класс XMLDocument, с помощью которого осуществляется доступ к XML-данным и документам на платформе .NET Framework. В простейшем случае XML-данные из документа или строки в оперативной памяти загружаются с помощью метода Load класса XMLDocument.

Применение технологии XPATH

Что происходит после загрузки XML-документа? В пространстве имен System.xml предусмотрены классы xmlNode и xmlNodeList. С помощью этих классов и технологии XPATH происходит считывание XML-документа и извлечение интересующих нас данных. В листинге 9.5 показано простое приложение Visual Basic .NET, которое загружает XML-документ из файла simple2.xsl и выводит все имена (атрибут FirstName) в текстовом поле.

Imports System.Xml

Imports System.Xml.XPath

Imports System.IO

Public Class Form1

 Inherits System.Windows.Forms.Form

…

' Здесь опущен код, сгенерированный Windows Form Designer.

…

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

  ByVal e As System.EventArgs) Handles MyBase.Load

  Dim xDoc As New XmlDocument()

  xDoc.Load("simple2.xml")

  ' Обратите внимание, что для получения значения

  ' атрибута используется синтаксис XPATH.

  Dim xNodeList As XmlNodeList = _

   xDoc.SelectNodes("descendant::tblCustomer/@FirstName")

  Dim xNode As XmlNode

  Dim i As Integer = 0

  For Each xNode In xNodeList

   lstResults.Items.Insert(i, xNode.InnerText)

   i = i + 1 Next

  End Sub

End Class

Для выполнения этого кода создайте новый проект, форму, а в форме — поле со списком lstResults. Поместите код подпрограммы Form1_Load из листинга 9.5 в код формы. После компоновки и запуска приложения в поле со списком будут показаны результаты, показанные на рис. 9.2 (при условии, что в каталоге выполняемого файла находится файл simple2.xml).  

РИС. 9.2. Результаты выполнения кода из листинга 9.5

Как видите, загрузка XML-документа и циклический обход его данных не представляют собой большой проблемы. А как можно изменить данные в XML-документе? Ответ на это вопрос основан на комбинации использованных ранее классов.

Далее код подпрограммы Form1_Load из листинга 9.5 переносится в код подпрограммы showTоp10 (листинг 9.6).

В листинге 9.6 приведен измененный код данного примера, в котором можно изменять и сохранять значение каждого узла в XML-документе. В этом достаточно простом примере используются чрезвычайно эффективные и надежные средства изменения XML-документа. Помимо упомянутых выше изменений, в данное приложение также включены кнопки btnShowTop10 и btnChangeAndSave для вызова отдельных подпрограмм отображения и изменения данных. После создания новых кнопок, компоновки проекта и запуска приложения щелкните на кнопке ShowTop10. После выполнения этих действий в поле со списком будут представлены результаты, показанные на рис. 9.2. (Учтите: это возможно лишь при условии, что в каталоге выполняемого файла находится файл simple2.xml.) Для редактирования одного из значений щелкните дважды на том элементе списка, который нужно изменить. Затем в диалоговом окне ChangeAndSave введите новое имя и щелкните на кнопке OK. После этого в поле со списком будет отображено обновленное состояние XML-документа с измененными значениями списка.

Imports System.Xml

Imports System.Xml.XPath

Imports System.IO

Public Class Form1

 Inherits System.Windows.Forms.Form

 …

 ' Здесь опущен код, сгенерированный Windows Form Designer.

 …

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

  ByVal e As System.EventArgs) Handles MyBase.Load

 End Sub

Private Sub ShowTop10()

  Dim xDoc As New XmlDocument()

  xDoc.Load("simple2.xml")

  ' Обратите внимание, что для получения значения атрибута

  ' используется синтаксис XPATH.

  Dim xNodeList As XmlNodeList = _

   xDoc.SelectNodes("descendant::tblCustomer/@FirstName")

  Dim xNode As XmlNode

  Dim i As Integer = 0

  For Each xNode In xNodeList

   lstResults.Items.Insert(i, xNode.InnerText)

   i = i + 1

  Next

 End Sub

 Public Sub ChangeNameandSave(ByVal NameToChange As String, ByVal ChangeTo _

  As String)

  Dim xDoc As New XmlDocument()

  xDoc.Load("simple2.xml")

  Dim xNodeList As XmlNodeList = _

   xDoc.SelectNodes("descendant::tblCustomer/@FirstName")

  Dim xNode As XmlNode

  For Each xNode In xNodeList

   If xNode.InnerText = NameToChange Then

    xNode.Value = ChangeTo

   End If

  Next

  xDoc.Save("simple2.xml")

  MsgBox("Name change saved!", 0)

  lstResults.Items.Clear()

  ShowTop10()

 End Sub

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

  ByVal e As System.EventArgs) Handles btnShowTop10.Click

  ShowTop10()

 End Sub

 Private Sub lstResults_DoubleClick(ByVal sender As Object, _

  ByVal e As System.EventArgs) Handles lstResults.Doubleclick

  Dim oldName As String = _

   lstResults.GetItemText(lstResults.Items.Item(lstResults.SelectedIndex))