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

Вставка данных в объект DataTable

Вставка данных в объект DataTable

После определения объекта 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

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