Доступ к данным с помощью объекта DataTable

Поскольку объект DataSet и содержащийся в нем объект DataTable всегда наполнены данными и не подключены к источнику данных, метод доступа к записям данных в них существенно отличается от методов доступа в ADO и других моделях доступа к данным (например, ODBC, DAO или RDO). Поскольку все данные доступны одновременно, в модели ADO.NET не существует понятия текущей записи. Поэтому нет никаких свойств или методов для перемещения от одной записи к другой. Каждый объект DataTable имеет свойство Rows, которое является набором объектов DataRow. Доступ к отдельному объекту осуществляется с помощью индекса или оператора For Each. Таким образом, в модели ADO.NET предлагается более простой и эффективный способ доступа и перемещения, аналогичный доступу к элементам массива.

В листинге 5.4 показан код подпрограммы DisplayDataSet, которая отображает содержимое ранее созданных таблиц с загруженными в них данными. В ней применяется циклический обход всех элементов коллекции, т.е. коллекций Rows и Columns, для отображения содержимого таблицы Employees. Далее используется альтернативный метод доступа к записям и полям с помощью числового индекса для отображения содержимого таблицы Departments.

ЛИСТИНГ 5.4. Код отображения данных в объектах DataTable

Private Sub DisplayDataSet()

 Dim dr As DataRow

 Dim dc As DataColumn

 Me.lstOutput.Items.Add("DISPLAY DATASET")

 Me.lstOutput.Items.Add("============")

 ' Отображение данных из таблицы Employees.

 For Each dr In dsEmployeeInfo.Tables("Employees").Rows

  For Each dc In _

   dsEmployeeInfo.Tables("Employees").Columns

   Me.lstOutput.Items.Add( _

    dc.ColumnName & ": " & dr(dc))

  Next

  Me.lstOutput.Items.Add ("============")

 Next

 Me.lstOutput.Items.Add("")

 ' Отображение данных из таблицы Departments.

 ' Пример использования индексов вместо оператора For Each.

 Dim row As Integer

 Dim col As Integer

 For row = 0 To dsEmployeeInfo.Tables("Departments").Rows.Count – 1

  For col = 0 To dsEmployeeInfo.Tables("Departments").Columns.Count – 1

   Me.lstOutput.Items.Add( _

    dsEmployeeInfo.Tables("Departments").Columns(col).ColumnName & ":" & _

    dsEmployeeInfo.Tables("Departments").Rows(row)(col))

  Next col

  Me.lstOutput.Items.Add("============")

 Next row

End Sub

Аналогично можно создать подпрограмму более общего типа для обхода не только записей и полей, но и таблиц объекта DataSet, как показано в листинге 5.5.

ЛИСТИНГ 5.5. Код обхода таблиц из объекта DataSet

Private Sub DisplayDataSet(ByVal ds As DataSet)

 ' Общая подпрограмма для отображения содержимого объекта DataSet.

 ' Отображаемый объект DataSet передается как параметр.

 Dim dt As DataTable

 Dim dr As DataRow

 Dim dc As DataColumn

 Me.lstOutput.Items.Add("DISPLAY DATASET")

 Me.lstOutput.Items.Add("============")

 For Each dt In ds.Tables

  Me.lstOutput.Items.Add(")

  Me. lstOutput.Items.Add("TABLE: " & dt.TableName)

  Me.lstOutput.Items.Add(" ")

  For Each dr In dt. Rows

   For Each dc In dt.Columns

    Me.lstOutput.Items.Add(dc.ColumnName S ": " & dr(dc))

   Next

   Me.lstOutput.Items.Add ("============")

  Next

 Next dt

End Sub

Обратите внимание, что здесь перегружается уже упомянутый ранее метод DisplayDataSet, который теперь принимает в качестве параметра объект DataSet.

Попробуйте запустить полученное приложение; для этого введите упомянутый ранее код в проект DataSetCode и щелкните на кнопке Create DataSet. В результате этого действия создается объект DataSet и наполняется данными, которые затем отображаются в текстовом поле формы, как показано на рис. 5.2.