>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
> myTestTable.Columns.Add(COLUMN_NAME_DATE_OF_TRAVEL, _
> GetType(System.DateTime))
> 'Добавить столбец строк в таблицу DataTable набора данных DataSet
> myTestTable.Columns.Add(COLUMN_NAME_PASSENGER_NAME, _
> GetType(String))
> 'Добавить столбец строк в таблицу DataTable набора данных DataSet
> myTestTable.Columns.Add(COLUMN_NAME_PASSENGER_CREDIT_CARD, _
> GetType(String))
> 'Данные для размещения в строках данных
> Dim objArray() As Object ReDim objArray(2)
> '--------------------------------
> 'Добавить строки данных в таблицу
> '--------------------------------
> Dim buildTestString As System.Text.StringBuilder
> buildTestString = New System.Text.StringBuilder
> Dim addItemsCount As Integer
> For addItemsCount = 1 To DUMMY_ROWS_OF_DATA
> 'Выбрать день отъезда пассажира
> objArray(0) = System.DateTime.Today.AddDays(addItemsCount)
> 'Выбрать имя пассажира
> buildTestString.Length = 0