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

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

  ' атрибута используется синтаксис 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 = _

   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()