Обработка баз данных на Visual Basic®.NET
вернуться

Прайс Кевин Т.
Шрифт:

РИС. 6.4. Расположение элементов управления в форме frmCustomersOrders

1. Запустите среду разработки Visual Studio .NET.

2. Создайте новый проект Visual Basic Windows Application.

3. Назовите проект BusinessCase6.

4. Укажите путь к файлам проекта.

5. Увеличьте размер формы Form1 и в окне Properties укажите значение frmCustomersOrders для свойства (Name) и значение Customers and Orders для свойства Text формы Form1.

6. Перетащите в форму кнопку и в окне Properties укажите значение bntFill для ее свойства (Name) и Fill для свойства Text; перетащите в форму кнопку и в окне Properties укажите значение bntUpdate для ее свойства (Name) и значение Update для свойства Text; перетащите в форму сетку данных и в окне Properties укажите значение grdCustomersOrders для ее свойства (Name).

7. Расположите все элементы управления, как показано на рис. 6.4.

В верхней части файла с исходным кодом вставьте следующие строки кода для импорта пространств имен System. Data и System.Data.SqlClient:

Imports System.Data

Imports System.Data.SqlClient

В тело определения класса для формы frmCustomersOrders включите код из листинга 6.7.

Листинг 6.7. Код загрузки и обновления данных сразу в нескольких связанных таблицах

Private ds As DataSet

Private en As New SqlConnection( _

 "server=localhost;uid=sa;database=Novelty")

Private Sub btnFill_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles btnFill.Click

 Dim da As New SqlDataAdapter

 grdCustomersOrders.DataSource = Nothing

 ds = New DataSet

 ' Создание команды SELECT.

 da.SelectCommand = New SqlCommand

 da.SelectCommand.Connection = cn

 da.SelectCommand.CommandType = CommandType.Text

 da.SelectCommand.CommandText = _

"select * from tblCustomer; select * from tblOrder"

 ' Указание информативных имен для таблиц.

 da.TableMappings.Add("Table", "Customers")

 da.TableMappings.Add("Table1", "Orders")

 ' Загрузка данных, da.Fill(ds)

 ' Создание отношения.

 ds.Relations.Add("Customer_Orders", _

ds.Tables("Customers").Columns("ID"), _

ds.Tables("Orders").Columns("CustomerID"))

 ' Отображение данных.

 grdCustomersOrders.DataSource = ds

End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnUpdate.Click

 ' Создание адаптеров данных.

 Dim daCustomers As New SqlDataAdapter( _

"select * from tblCustomer", en)

 Dim daOrders As New SqlDataAdapter( _

"select * from tblOrder", en)

 Dim cbCustomers As New SqlCommandBuilder(daCustomers)

 Dim cbOrders As New SqlCommandBuilder(daOrders)

 Try

' Внесение изменений в таблицы в "правильном"

' порядке (см. далее в тексте).

Dim ChangedTable As New DataTable

' Удаление записей в дочерней таблице.

ChangedTable = _

ds.Tables("Orders").GetChanges(DataRowState.Deleted)

If Not ChangedTable Is Nothing Then

daOrders.Update(ChangedTable)

End If

' Все измененные записи в родительской таблице.

ChangedTable = ds.Tables("Customers").GetChanges

If Not ChangedTable Is Nothing Then

daCustomers.Update(ChangedTable)

End If

' Новые или измененные записи в дочерней таблице.

ChangedTable = _