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

Метод ExecuteNonQuery

Метод ExecuteNonQuery

Этот метод позволяет выполнять команды без возвращения значений (наборов записей или скалярных значений), кроме значения, сообщающего об успешном или неудачном исходе выполнения команды. Это наиболее эффективный способ выполнения команд по отношению к источнику данных. Таким образом можно выполнять команды SQL или хранимые процедуры, которые являются DDL-командами определения данных (например, для создания или изменения структуры базы данных: таблиц, представлений или хранимых процедур) либо DML-командами управления данными (например, их обновления, вставки или удаления).

Продолжая работу с проектом DataProviderObjects, попробуем использовать объекты пространства имен OleDb и базу данных pubs. Наша задача – создать новую таблицу tblStateZipCodes для этой базы данных с помощью DDL-команды. Новая таблица tblStateZipCodes предназначена для организации связи между почтовыми индексами и штатами. Определения ее полей совпадают с определениями полей в других таблицах базы данных pubs, но отличаются от определений полей в других таблицах базы данных Novelty. Эта таблица имеет два поля: ZipCode для почтового индекса и State для названия соответствующего штата. Ниже приведена команда SQL для создания этой таблицы.

CREATE TABLE tblStateZipCodes (
 ZipCode char (5) NOT NULL,
 State char (2) NOT NULL

Теперь нужно изменить исходную форму Form1, выполнив ряд действий.

1. Откройте форму Form1 в интегрированной среде разработки Visual Studio .NET.

2. В верхнем левом углу формы создайте еще одну кнопку, перетаскивая ее пиктограмму из панели элементов управления.

3. В окне свойств Properties укажите значение btnNonQuery для свойства (Name) и значение ExecuteNonQuery для свойства Text.

Затем создайте код подпрограммы btnNonQuery_Click, который приведен в листинге 4.4.

Private Sub btnNonQuery_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnNonQuery.Click
 ' Создание экземпляра объекта Connection.
 Dim cnn As OleDbConnection = New OleDbConnection( _
  "provider=SQLOLEDB;server=localhost;uid=sa;database=pubs")
 Dim sql As String Dim result As Integer
 ' Создание экземпляра объекта Command.
 Dim cmd As OleDbCommand = New OleDbCommand()
 ' Указание подключения и текста команды
 cmd.Connection = cnn
 cmd.CommandType = CommandType.Text
 ' Указание команды SQL для создания новой таблицы
 sql = "CREATE TABLE tblStateZipCodes (" & _
  "ZipCode char (5) NOT NULL, " & _
  "State char (2) NOT NULL) "
 MsgBox(sql) cmd.CommandText = sql
 ' Открытие подключения перед вызовом метода ExecuteNonQuery.
 cnn.Open()
 ' Для обработки исключительных ситуаций нужно поместить
 ' код в блоке Try-Catch, потому что неудачное выполнение
 ' команды ТАКЖЕ генерирует ошибку времени выполнения.
 Try
  result = cmd.ExecuteNonQuery()
 Catch ex As Exception
  ' Отображение сообщения об ошибке.
  MessageBox.Show(ex.Message)
 End Try
 ' Вывод результатов выполнения команды.
 If result = -1 Then
  MessageBox.Show("Command completed successfully")
  ' MessageBox.Show("Команда выполнена успешно")
 Else
  MessageBox.Show("Command execution failed")
  ' MessageBox.Show("Команда не выполнена")
 End If
 cnn.Close()
End Sub

После запуска полученного приложения и щелчка на кнопке ExecuteNonQuery сначала появится диалоговое окно с сообщением об успешном выполнении команды. Правильность выполнения команды можно проверить, просматривая список таблиц базы данных pubs в диалоговом окне Server Explorer интегрированной среды разработки Visual Studio .NET (которое описывается в главе 1, "Основы построения баз данных") или в программе SQL Server Enterprise Manager (которая рассматривается в главе 3, "Знакомство с SQL Server 2000").

При повторном щелчке на кнопке ExecuteNonQuery появятся два диалоговых окна с сообщениями: одно с сообщением о возникшей исключительной ситуации (оно создается блоком обработки исключительных ситуаций try-catch), а другое — о неудачном выполнении команды.

Аналогичным способом можно создать представление или хранимую процедуру. Для создания представления EmployeeJobs_view, которое возвращает отсортированный по должностям перечень сотрудников с указанием их имен, фамилий и должностей, замените команду SQL в листинге 4.4 приведенной ниже командой.

sql = "CREATE VIEW EmployeeJobs_view AS" & _
 "SELECT TOP 100 PERCENT jobs. job_desc," & _
 "employee.fname, employee.lname" &_
 "FROM jobs INNER JOIN" & _
 "employee ON jobs. job_id = employee. job_id &_
 "ORDER BY jobs.job_desc"

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

sql = "CREATE PROCEDURE AuthorsInState1 @State char(2)" & _
 " AS declare @result int" & _
 " select @result = count (*) from authors " & _
 " where state = @State" &_
 " return (@result)"

Обратимся теперь ко второму типу команд SQL для управления данными, т.е. их обновления, вставки или удаления. Для этих команд обычно требуется указать параметры, особенно при работе с хранимыми процедурами.

Продолжая работу с проектом DataProviderObjects, предположим, что издательство, которое создало базу данных pubs, решило повысить авторам выраженный в процентах гонорар. Включение новой кнопки и нового текстового поля в форму позволяет главному бухгалтеру издательства повысить гонорары авторов с помощью параметра команды UPDATE. Для этого нужно выполнить перечисленные ниже действия.

1. Создайте новую кнопку под кнопкой cmdExecuteNonQuery.

2. В окне свойств Properties для этой кнопки укажите значение cmdUpdate для свойства (Name) и значение Update для свойства Text.

3. Создайте новое текстовое поле под новой кнопкой Update.

4. В окне свойств Properties для этого текстового поля укажите значение txtParam1 для свойства (Name) и значение 0 для свойства Text. Установка такого значения гарантирует, что при запуске программы и случайном нажатии кнопки Update не будет причинен ущерб данным.

5. Создайте код подпрограммы btnUpdate_Click, приведенный в листинге 4.6.

Private Sub btnUpdate_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnUpdate.Click
 Dim result As Integer
'  Создание экземпляра объекта Connection.
 Dim cnn As SqlConnection = New SqlConnection(_
  "server=localhost;uid=sa;database=pubs")
 ' Создание экземпляра объекта Command.
 Dim cmd As SqlCommand = New SqlCommand()
 txtResults.Clear()
 ' Указание подключения и текста команды.
 cmd.Connection = cnn
 cmd.CommandType = CommandType.Text
 cmd.CommandText = "UPDATE roysched SET royalty = royalty + @param1"
 ' Создание параметра и указание его значения.
 cmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int))
 cmd.Parameters("@param1").Direction = ParameterDirection.Input
 cmd.Parameters("@param1").Value = Val(txtParam1.Text)
 ' Открытие подключения перед вызовом метода ExecuteReader().
 cnn.Open()
 result = cmd.ExecuteNonQuery()
 MessageBox.Show(result & " records updated", "DataProviderObjects")
 cnn.Close()
End Sub

Теперь таблицу с гонорарами авторов в базе данных pubs можно обновить, запустив приложение DataProviderObjects, задав новое значение гонорара в текстовом поле под кнопкой Update и щелкнув на этой кнопке. После этого на экране появится диалоговое окно с указанием количества охваченных записей. Этот результат можно проверить с помощью программы SQL Server Enterprise Manager, просматривая данные о гонорарах в таблице roysched до и после обновления.

Точно такое же обновление можно выполнить с помощью хранимой процедуры, что позволяет добиться более высокой производительности и централизованно хранить код. Потенциальным недостатком использования хранимых процедур является необходимость назначения администратора базы данных или специалиста с опытом создания хранимых процедур. В крупных организациях порой уходят целые дни на то, чтобы администратор базы данных изменил хранимые процедуры, которые можно самостоятельно изменить за несколько минут. Хранимые процедуры создаются с помощью программ SQL Server Enterprise Manager или SQL Query Analyzer, которые описаны в главе 3, "Знакомство с SQL Server 2000". Это можно также сделать с помощью проекта DataProviderObjects, изменив команду SQL, как это делалось ранее.

Итак, в данном примере хранимая процедура имеет следующий вид:

CREATE PROCEDURE UpdateRoyalties
@param1 int
AS
UPDATE roysched SET royalty = royalty + @param1

В листинге 4.6 для организации вызова хранимой процедуры потребуется заменить свойства CommandText и CommandType объекта Command.

cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "UpdateRoyalties"

Запуск этой программы должен привести к тем же результатам, что и прежде, однако теперь обновление происходит благодаря хранимой процедуре, а не команде SQL из кода приложения.

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