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

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

 <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) в текстовом поле.

ЛИСТИНГ 9.5. Пример использования классов XmlDocument И XmlNode

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-документа с измененными значениями списка.

ЛИСТИНГ 9.6. Код приложения XMLDomSample

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 = _