Джеффри Мак-Манус - Обработка баз данных на Visual Basic®.NET

dtDepartments.TableName = "Departments"

dtDepartments.MinimumCapacity = 5

dtDepartments.CaseSensitive = False

Dim NewColumn As New DataColumn()

With NewColumn

.ColumnName = "ID"

.DataType = Type.GetType("System.Int32")

.Readonly = True

.Unique = True

.AutoIncrement = True

End With

dtDepartments.Columns.Add(NewColumn)

NewColumn = New DataColumn()

With NewColumn

.ColumnName = "DepartmentName"

.DataType = Type.GetType("System.String")

.Unique = True

.AllowDBNull = False

End With

dtDepartments.Columns.Add(NewColumn)

' Включение таблицы Departments в объект dsEmployeeInfo.

dsEmployeeInfo.Tables.Add(dtDepartments)

End Sub

После создания экземпляра dsEmployeeInfo объекта DataSet создается таблица Employees с помощью перегруженных конструкторов объекта DataTable с использованием параметра – имени таблицы. Затем задается значение False для свойства CaseSensitivity объекта DataTable. Это свойство определяет, будут ли операции сортировки, поиска и фильтрации выполняться с учетом регистра символов. По умолчанию значение этого свойства определяется как значение свойства CaseSensitivity родительского объекта DataSet или принимается равным False, если объект DataTable создан независимо от объекта DataSet.

Свойство CaseSensitivity применяется только для данных объекта DataTable и не влияет на имена самих объектов DataTable. Например, объект DataSet может иметь две таблицы (или отношения) с именами или mytable или Mytable. Для работы с ними нужно записывать имена с точным указанием регистра символов, поскольку их поиск ведется с учетом регистра (case-sensitive search). Однако это не обязательно при наличии только одной таблицы с таким именем, поскольку при этом используется поиск без учета регистра (case-insensitive search).

Затем создаются определения полей с помощью метода Add объекта Column по указанному имени поля и типу данных. Учтите, что здесь указываются .NET-совместимые типы данных, а не используемые в базе данных типы. При отсутствии типа данных для него по умолчанию принимается строковый тип. Наконец, таблица Employee включается в объект dsEmployeeInfo.

Далее этот процесс повторяется для таблицы Departments, но теперь уже с перегруженными конструкторами и функциями. Таким образом та же цель достигается другим способом. Разработчик может самостоятельно выбрать наиболее подходящий способ на основе собственного вкуса, корпоративных стандартов или особенностей поставленной задачи.

Для свойства MinimumCapacity объекта dtDepartments задается значение 5, т.е. экземпляр объекта DataTable создается уже с пятью записями. Указание для него другого значения (отличного от используемого по умолчанию значения 25) позволяет управлять выделением ресурсов и оптимизировать производительность в критических ситуациях. Конечно, на самом деле эти пять записей фактически появятся только после того, как пользователь добавит их в таблицу DataTable, а пока для них резервируется место.

Кроме того, перед добавлением полей в коллекцию Columns для них задаются значения других свойств. Перечисленные ниже свойства Readonly, Unique, AllowDBNull и AutoIncrement уже наверняка знакомы тем, кто имеет опыт создания приложений для работы с базами данных.

Присвоение свойству Readonly значения True указывает на то, что значение поля нельзя изменить.

Присвоение свойству Unique значения True указывает на то, что значения данного поля во всех записях таблицы должны быть уникальными. Это свойство реализуется с помощью автоматического создания ограничения UniqueConstraint для данного поля. Этот способ более подробно рассматривается в разделе об ограничениях таблицы далее в главе.

Присвоение свойству AllowDBNull значения True указывает на то, что в данном поле допускается использование неопределенных значений.

Присвоение свойству AutoIncrement значения True указывает на то, что значение поля увеличивается при каждом добавлении в таблицу новой записи. Для указания начального значения и приращения используются свойства AutoIncrementSeed и AutoIncrementStep.

Объект DataTable принимает новую запись и присваивает автоматически увеличенное значение для поля, свойство которого AutoIncrement имеет значение True, только если значение поля отличается от принимаемого по умолчанию.

Среди других свойств объекта DataColumn следует отметить MaxLength (для полей с данными типа String), DefaultValue и Table. Поле также можно определить с выражением для вычисления значения, создания итогового поля или фильтрования строк. Такое выражение может состоять из имен полей текущей записи или других записей, констант, операторов, символов подстановки, итоговых и других функций. Более подробную информацию и примеры таких выражений можно найти в справочных материалах для свойства Expression объекта DataColumn.

После определения объекта DataTable и его схемы можно начинать ввод данных.

В листинге 5.2 приводится код вставки записей с данными в DataTable. Подпрограмма AddData включает четыре записи с данными в таблицу Departments и три записи с данными в таблицу Employees следующим образом.

1. Сначала создается новый экземпляр объекта DataRow для нужной таблицы с помощью метода NewRow.

2. Затем присваиваются значения полям этой записи.

3. После этого запись включается в коллекцию записей Rows таблицы с помощью метода Add свойства Rows таблицы.

Private Sub AddData ()

Dim dtDepartments As DataTable = dsEmployeeInfo.Tables ("Departments")

Dim dtEmployees As DataTable = dsEmployeeInfo.Tables("Employees")

' Вставка четырех записей в таблицу Departments.

Dim rowDept As DataRow

rowDept = dtDepartments.NewRow

rowDept("ID") = 11

rowDept("DepartmentName") = "Administration"

dtDepartments.Rows.Add(rowDept)

rowDept = dtDepartments.NewRow rowDept("ID") = 22

rowDept("DepartmentName") = "Engineering"

dtDepartments.Rows.Add(rowDept)

rowDept = dtDepartments.NewRow

rowDept("ID") = 33

rowDept("DepartmentName") = "Sales"

dtDepartments.Rows.Add(rowDept)

rowDept = dtDepartments.NewRow rowDept("ID") =44

rowDept("DepartmentName") = "Marketing"

dtDepartments.Rows.Add(rowDept)

' Вставка трех записей в таблицу Employees.

Dim rowEmployee As DataRow

rowEmployee = dtEmployees.NewRow

rowEmployee("FirstName") = "Jackie"

rowEmployee("LastName") = "Goldstein"

rowEmployee("DepartmentID") = 22

dtEmployees.Rows.Add(rowEmployee)

rowEmployee = dtEmployees.NewRow

rowEmployee("FirstName") = "Jeffrey"

rowEmployee("LastName") = "McManus"

rowEmployee("DepartmentID") = 33

dtEmployees.Rows.Add(rowEmployee)

rowEmployee = dtEmployees.NewRow

rowEmployee("FirstName") = "Sam"

rowEmployee("LastName") = "Johnson"

rowEmployee("DepartmentID") = 33

dtEmployees.Rows.Add(rowEmployee)

End Sub

Новую запись можно вставить в таблицу, передавая методу Add массив объектов, содержащих данные в порядке следования полей в определении таблицы. В листинге 5.2 этот способ мог быть представлен так:

Dim empData(2) As Object

empData(0) = "Sam"