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

Объект XmlDataDocument

Объект 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>

 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())
  str.Append(xIterator.Current.Value & ControlChars.CrLf)
 End While
 MsgBox(str.ToString)
End Sub
Private Sub btnAddRows_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnAddRows.Click
 Dim dsPubs As New DataSet()
 ' Считывание XML-данных из файла.
 dsPubs.ReadXml("..Pubs.xml")
 ' Вставка новой записи.
 Dim row As DataRow = dsPubs.Tables("Publishers").NewRow()
 row("pub_name") = "Newbie Publishing Corp."
 row("city") = "New York"
 row("state") = "NY"
 row("Country") = "USA"
 dsPubs.Tables("Publishers").Rows.Add(row)
 ' Связывание объекта DataSet с сеткой Data Grid
 ' для просмотра новых данных.
 grdData.DataMember = "publishers"
 grdData.DataSource = dsPubs
End Sub

Подпрограмма btnNavigateSQL_Click считывает данные из базы данных SQL Server, а затем выполняет обход всех записей, извлеченных с помощью XPATH-запроса. В этой подпрограмме ключевыми являются приведенные ниже строки.

Dim xmlDoc As New Xml.XmlDataDocument(ds)
' Получение объекта-навигатора из XmlDataDocument.
Dim xmlNav As XPathNavigator = xmlDoc.CreateNavigator()
' Извлечение всех фамилий авторов из штата Калифорния (CA).
Dim xIterator As XPathNodeIterator xIterator = _
 xmlNav.Select("//authors[state='CA']/au_lname")

Сначала объект DataSet с данными связывается с новым объектом XmlDataDocument. Затем создается объект-навигатор XPathNavigator на основе объекта-документа XmlDataDocument. После чего на основе объекта XPathNavigator создается объект-итератор XPathNodeIterator. Далее строка XPATH-запроса передается методу Select для возвращения списка фамилий авторов (т.е. значений поля из Калифорнии (т.е. у которых поле state имеет значение СА). После этого выполняется последовательный обход всех узлов, извлеченных данным запросом, и создается строка с искомым перечнем авторов. Эта строка отображается в диалоговом окне, которое показано на рис. 10.3.


РИС. 10.3. Диалоговое окно с XML-данными, извлеченными из объекта DataSet

Вторая подпрограмма, btnAddRows_Clicks, выполняет другую задачу. Сначала она считывает XML-данные с помощью метода ReadXml из файла Pubs. в набор данных dsPubs, как показано в листинге 10.1. Этот метод автоматически создает таблицу publishers в объекте DataSet. Далее новые данные вставляются с помощью реляционных методов и объектов, например объекта-записи DataRow. Новый объект DataRow включается в схему таблицы publishers, а полям присваиваются указанные значения. После этого новая запись вставляется в таблицу publishers, а результат вставки отображается в сетке DataGrid (рис. 10.4).


РИС. 10.4. Вид сетки DataGrid после считывания данных из XML-файла вставки строки

Оглавление книги


Генерация: 1.303. Запросов К БД/Cache: 3 / 0
поделиться
Вверх Вниз