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

Метод ExecuteXmlReader возвращает объект XmlReader точно так же, как он возвращает объект DataReader.

Для демонстрации применения метода ExecuteXmlReader вернитесь к проекту ADO-XML и выполните следующее.

1. Включите в форму frmXML под кнопкой Write XML еще одну кнопку, перетаскивая ее из панели элементов управления.

2. В окне свойств Properties укажите значение btnExecuteXML для свойства (Name) и значение ExecuteXMLReader для свойства Text этой кнопки.

3. Затем в определении класса формы frmXML введите код из листинга 10.12.

Листинг 10.12. Код извлечения и обработки данных из СУБД SQL Server в формате XML

Private Sub btnExecuteXML_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnExecuteXML.Click
 Dim cn As New SqlConnection _
 ("data source=localhost;initial catalog=pubs;user id=sa")
 Dim cmd As New SqlCommand _
 ("select * from stores for xml auto, elements", en)
 Dim reader As Xml.XmlReader
 Dim str As New System.Text.StringBuilder
 cn.Open
' Выполнение SQL-команды Select с предложением FOR XML.
 reader = cmd.ExecuteXmlReader
 ' Поиск и извлечение данных из узлов-элементов.
 While reader.Read
 Select Case reader.NodeType
 Case Xml.XmlNodeType.Element
 str.Append("<" & reader.Name & ">")
 Case Xml.XmlNodeType.EndElement
 str.Append("</" & reader.Name & ">" & ControlChars.CrLf)
 Case Xml.XmlNodeType.Text
 str.Append(reader.Value)
 Case Else
 ' В данном примере игнорируется.
 End Select
 End While
 MsgBox(str.ToString)
 сn.Close
End Sub

Код в листинге 10.12 содержит пример упрощенного использования метода ЕхеcuteXmlReader в котором просто отображаются данные (вместе с дескрипторами) из таблицы базы данных pubs. СУБД SQL Server передается показанная ниже SQL-команда Select, в которой явно указаны возвращаемые поля в виде XML-элементов.

"select * from stores for xml auto, elements"

В таком случае обработка разных типов XML-узлов упрощается, потому что достаточно найти только начальный и конечный узлы, а текстовые узлы между ними будут содержать фактические данные. Более надежная обработка XML-документа основана на конструкции Select Case, в которой учтены узлы всех типов. После щелчка на кнопке ExecuteXMLReader будет выполнен код из листинга 10.12 и на экране появится диалоговое окно, которое показано на рис. 10.2.

РИС. 10.2. Диалоговое окно с XML-данными, извлеченными из СУБД SQL Server

Объект XmlDataDocument

В главе 9, "XML и .NET", рассматривается объект XmlDataDocument и способы его использования для доступа к иерархическим данным в виде узлов загруженного в оперативную память XML-документа. В этой книге также рассматриваются способы извлечения реляционных данных (и доступа к ним) из традиционной SQL-совеместимой базы данных. При этом необходимо выяснить следующее:

• как быть, если данные поступили из XML-источника, а нам известны только реляционные способы навигации и манипуляции записями;

• и наоборот: как быть, если данные поступили из SQL-совместимой базы данных, а нам известны только XML-совместимые способы навигации и манипуляции записями.

Ответы на эти простые вопросы основаны на применении объекта XmlDataDocument. Он является производным от класса XmlDocument, но обладает расширенными возможностями. Помимо внутренней копии данных, он содержит XML-совместимые средства доступа к ним как к классу XmlDocument с помощью XML-узлов, а также реляционные средства доступа на основе объекта DataSet. Объект XmlDataDocument автоматически синхронизирует оба эти представления (или, иначе говоря, способа доступа) таким образом, чтобы любые изменения, выраженные в одной технологии, сразу же отображались средствами другой технологии. Такой подход позволяет легко смешивать и находить соответствие между разными источниками данных на основе разных технологий.

Для демонстрации этих средств вернитесь к проекту ADO-XML и выполните перечисленные ниже действия.

1. Вставьте еще две кнопки в форму frmXML сразу под кнопкой ExecuteXMLReader, перетаскивая их из панели элементов управления.

2. В окне свойств Properties укажите значение btnNavigateSQL для свойства (Name) и значение Navigate SQL для свойства Text первой кнопки.

3. В окне свойств Properties укажите значение btnAddRows для свойства (Name) и значение Add Rows to XML для свойства Text второй кнопки.

4. Для импорта пространства имен XPath включите строку кода Imports System.Xml.XPath в конце списка команд импорта в верхней части файла с кодом.

5. В код класса frmXML включите две подпрограммы.

Private Sub btnNavigateSQL_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnNavigateSQL.Click
 Dim en As New SqlConnection _
 ("data source=localhost;initial catalog=pubs;user id=sa")
 Dim da As New SqlDataAdapter("Select * from authors", cn)
 Dim ds As New DataSet
 ' Вставка в объект DataSet данных из реляционной базы данных
 da.Fill(ds, "authors")
 ' Создание объекта XmlDataDocument на основе существующего
 ' объекта DataSet.
 Dim xmlDoc As New Xml.XmlDataDocument(ds)
 ' Получение объекта-навигатора из XmlDataDocument.
 Dim xmlNav As XPathNavigator = xmlDoc.CreateNavigator
 ' Извлечение всех фамилий авторов из штата Калифорния (СА).
 Dim xIterator As XPathNodeIterator xIterator = _
 xmlNav.Select("//authors[state='CA']/au_lname")
 ' Последовательный обход всех выбранных узлов и
 ' отображение фамилий всех авторов.
 Dim str As New System.Text.StringBuilder
 While (xIterator.MoveNext)