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

5. В следующем диалоговом окне, Generate the SQL Statements (Создать SQL-команду), введите в текстовую область приведенную ниже команду SQL, которая будет использоваться объектом DataAdapter в качестве основы для других команд обновления.

SELECT FirstName, LastName, DepartmentID, Salary, ID FROM tblEmployee

В этом диалоговом окне есть еще две кнопки. После щелчка на кнопке Advanced Options (Дополнительные возможности) отображается диалоговое окно Advanced SQL Generation Options (Дополнительные возможности для генерации команд SQL) с тремя параметрами. Первый параметр, Generate Insert, Update and Delete Statements (Создать команды вставки, обновления и удаления), указывает на необходимость создания команд вставки, обновления и удаления на основе указанной команды SQL (или нужно использовать объект DataAdapter только для наполнения данными набора данных DataSet). Второй параметр, Use Optimistic concurrency (Использовать оптимистическую обработку параллельно выполняемых команд), означает включение в команду SQL предложения WHERE для всех значений полей в обновленной записи. Это позволяет обнаружить изменения данной записи, внесенные другими пользователями в базе данных, так как в этом случае такая команда SQL будет отвергнута. Третий параметр, Refresh the Dataset (Обновить набор данных Dataset), позволяет добавить еще одну команду SELECT к создаваемым командам вставки и обновления данных для возвращения значений идентификационных полей, предлагаемых по умолчанию значений полей, а также вычисленных сервером значений. После щелчка на кнопке Query Builder (Конструктор запроса) отображается одноименное стандартное диалоговое окно для графического создания команды SELECT вместо непосредственного ввода ее в текстовой области диалогового окна Generate the SQL statements.

6. Щелкните на кнопке Next для отображения диалогового окна View Wizard Results (Просмотр результатов создания команды SQL с помощью программы-мастера).

7. Щелкните на кнопке Finish для применения указанных параметров объекта DataAdapter.

Сразу после создания компонента DataAdapter можно изменить его свойства и параметры с помощью окна свойств Properties или повторного запуска программы-мастера Data Adapter Configuration Wizard. Чтобы повторно запустить программу-мастер для уже имеющегося компонента DataAdapter, щелкните на нем правой кнопкой мыши и выберите в контекстном меню команду Configure Data Adapter (Конфигурировать адаптер данных). Его можно также запустить, выбрав уже имеющийся компонент DataAdapter под формой, а затем щелкнув на ссылке Configure Data Adapter (Конфигурировать адаптер данных) в той части окна свойств Properties, которая находится между списком свойств и их описанием.

Аналогично конструктору команд CommandBuilder, программа-мастер Data Adapter Configuration Wizard предназначена для создания команд для одной независимой таблицы базы данных. Однако эта программа содержит несколько параметров конфигурации, например для создания новых или использования существующих хранимых процедур, что позволяет очень легко и быстро создавать код приложения.

Теперь нужно связать объект DataAdapter, которому автоматически присвоено имя SqlDataAdpater1, с созданным кодом. Для этого нужно явно открыть созданное подключение SqlConnection1.

Подпрограмму btnLoad_Click нужно изменить таким образом, чтобы она вызывала подпрограмму LoadWizardCode вместо подпрограммы LoadExplicitCode. Далее нужно вызвать метод Fill вновь созданного объекта SqlDataAdpater1. Кроме того, для использования нового объекта SqlDataAdpater1 потребуется изменить код подпрограммы btnLoad_Click. Наконец, нужно создать код подпрограммы LoadWizardCode, которая предназначена для открытия нового подключения. Эти три подпрограммы показаны в листинге 6.6.

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

ByVal e As System.EventArgs) Handles btnLoad.Click

dsEmployeeInfo = New DataSet()

LoadWizardCode()

' Конфигурирование объекта-сетки DataGrid.

Me.grdDataGrid.PreferredColumnWidth = 110

Me.grdDataGrid.AllowSorting = True

' Вставка данных в объект DataSet.

daEmployees.Fill(dsEmployeeInfo, "Employees")

' Присвоение объекта DataSet объекту DataGrid.

Me.grdDataGrid.DataSource = _

dsEmployeeInfo.Tables("Employees")

Me.btnUpdate.Enabled = True

End Sub

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

ByVal e As System.EventArgs) Handles btnUpdate.Click

Try

' daEmployees.Update(dsEmployeeInfo, "Employees")

SqlDataAdapter1.Update(dsEmployeeInfo, "Employees")

Catch es As SqlException

MessageBox.Show(es.Message)

End Try

End Sub

Private Sub LoadWizardCode()

If SqlConnection1.State = ConnectionState.Closed Then