Иво Салмре - Программирование мобильных устройств на платформе .NET Compact Framework

ByVal e As System.EventArgs) Handles Button1.Click

'Очистить текстовое окно от содержимого

TextBox1.Text = ""

'===========================================

'1. Создать новый набор данных

'===========================================

m_myDataSet = New System.Data.DataSet("HelloWorld-DataSet")

'Записать содержимое ADO.NET DataSet в виде XML и отобразить

'файл в текстовом окне

m_myDataSet.WriteXml(FILE_EMPTY_DATASET)

addFileContentsToTextBox(FILE_EMPTY_DATASET)

'==================================================

'2. Добавить таблицу данных в набор данных ADO.NET,

' а также 2 строки данных в таблицу данных

'==================================================

Dim myTestTable As System.Data.DataTable

myTestTable = m_myDataSet.Tables.Add("TestTable")

'----------------------------

'Добавить 2 столбца в таблицу

'----------------------------

'Добавить столбец данных в таблицу DataTable набора DataSet

myTestTable.Columns.Add("TestColumn0", _

GetType(System.DateTime))

'Добавить строковый столбец в таблицу DataTable набора DataSet

myTestTable.Columns.Add("TestColumn1", GetType(String))

'--------------------------------

'Добавить строки данных в таблицу

'--------------------------------

'Добавить строку данных в таблицу данных

Dim rowOfData() As Object

ReDim rowOfData(1)

'Столбец 0 - это тип данных

rowOfData(0) = System.DateTime.Today

'Столбец 1 — это строковый тип

rowOfData(1) = "а string of data today"

myTestTable.Rows.Add(rowOfData)

'Добавить вторую строку данных в таблицу данных

Dim rowOfData2() As Object

ReDim rowOfData2(1) 'Столбец 0 — это тип данных

rowOfData2(0) = System.DateTime.Today.AddDays(1)

'Столбец 1 — это строковый тип

rowOfData2(1) = "tomorrow's string"

myTestTable.Rows.Add(rowOfData2)

'Записать содержимое набора ADO.NET DataSet в виде XML и отобразить

'файл в текстовом окне

m_myDataSet.WriteXml(FILE_1TABLE_ DATASET)

addFileContentsToTextBox(FILE_1TABLE_DATASET)

End Sub

'-----------------------------------------------------------------------

'Необходимость в этой функции возникает по той причине, что .NET Compact

'Framework не поддерживает перегрузку:

' "public voidWriteXml(string, XmlWriteMode);"

'

'в качестве функции-члена "public" (только "private")

'-----------------------------------------------------------------------

Sub writeDataSetToFile(ByVal ds As System.Data.DataSet, _

ByVal filename As String, _

ByVal xmlWriteMode As System.Data.XmlWriteMode)

'Создать объект XmlWriter для записи наших XML-данных

Dim xmlWriter As System.Xml.XmlWriter

xmlWriter = New System.Xml.XmlTextWriter(filename, _

System.Text.Encoding.Default)

'ПРИМЕЧАНИЕ: Эта перегруженная версия не является общедоступной (public)!

'ds.WriteXml(filename, xmlWriteMode)

'Вместо этого используем следующую функцию:

ds.WriteXml(xmlWiiter, xmlWriteMode)

xmlWriter.Close() 'Важно закрыть файл!

End Sub

Private m_myDataSet As System.Data.DataSet 'Набор данных для тестирования

'Индексы столбцов и таблицы, подлежащие кэшированию

Private m_indexesLookedUp As Boolean = False

Private Const INVALID_INDEX As Integer = -1

Private m_IndexOfTestColumn_CreditCard _

As Integer = INVALID_INDEX

Private m_IndexOfTestColumn_TravelDate _

As Integer = INVALID_INDEX

Private m_IndexOfTestTable As Integer = INVALID_INDEX

'Столбцы данных и таблица, подлежащих кэшированию

Private m_TestColumn_CreditCard As System.Data.DataColumn

Private m_TestColumn_TravelDate As System.Data.DataColumn

Private m_TableCustomerInfo As System.Data.DataTable

Public Enum testType '3 вида тестов, которые мы можем выполнять

textColumnLookup

cachedIndexLookup

cachedColumnObject

End Enum

'Эти константы определяют размерные характеристики тестов

Const DUMMY_ROWS_OF_DATA As Integer = 100

Const NUMBER_TEST_ITERATIONS As Integer = 500

'Табличная информация

Const TABLE_NAME_PASSENGERINFO As String = "CustomerTravelInfo"

Const COLUMN_NAME_DATE_OF_TRAVEL As String = "DateOfTravel"

Const COLUMN_NAME_PASSENGER_NAME As String = "PassengerName"

Const COLUMN_NAME_PASSENGER_CREDIT_CARD As String = _

"PassengerCreditCard"

Const TEST_CREDIT_CARD As String = "IvoCard-987-654-321-000"

'--------------------

'Создает набор данных

'--------------------

Private Sub createDataSet()

'1. Создать новый объект DataSet

m_myDataSet = New System.Data.DataSet("TravelService Dataset")

'2. Добавить объект DataTable в объект ADO.NET DataSet

Dim myTestTable As System.Data.DataTable

myTestTable = m_myDataSet.Tables.Add(TABLE_NAME_PASSENGERINFO)

'Добавить 2 столбца в таблицу

'Добавить столбец данных в таблицу DataTable набора данных DataSet