[Visual Basic]

Imports System.Data.SqlClient

Public Class salesAdministrationForm

Dim myDatabaseConnection As DatabaseConnection = New DatabaseConnection

Private mySqlCommand As SqlCommand

Public Sub New()

InitializeComponent

mySqlCommand = myDatabaseConnection.GetCommandObject()

End Sub

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

ByVal e As System.EventArgs) Handles MyBase.Load

GetTotalNumberOfSales()

End Sub

Private Sub GetTotalNumberOfSales()

Try

mySqlCommand.CommandType = CommandType.Text

mySqlCommand.CommandText = _

"SELECT COUNT(SalesOrderID) FROM Sales.SalesOrderHeader"

myDatabaseConnection.OpenConnection()

numberOfSalesLabel.Text = "Total Number of Sales: " & _

mySqlCommand.ExecuteScalar().ToString()

myDatabaseConnection.CloseConnection()

Catch Ex As Exception

MessageBox.Show(Ex.Message)

End Try

End Sub

...

End Class

• Используйте соединение с базой данных, чтобы обновить весь прейскурант (ListPrices) в Таблице "Товары"( Products).

1. В обзоре решений, щелкните правой кнопкой мыши productAdministrationForm, а затем нажмите View Code.

2. В файле класса productAdministrationForm, добавьте объявление using (Visual C#) или Imports (Visual Basic) для просранства имен System.Data.SqlClient.

3. В классе productAdministrationForm, определите местонахождение комментария TODO: [L7.2 Ex1b] Create DatabaseConnection and SqlCommand instances. Ниже этого комментария, создайте следующее:

   1. Закрытый экземпляр класса DatabaseConnection с именем myDatabaseConnection.

   2. Закрытый экземпляр класса объекта SqlCommand с именем mySqlCommand.

4. В конструкторе productAdministrationForm, определите местонахождение комментария TODO: [L7.2 Ex 1b] Initialize mySqlCommand. Инициализируйте значение объекта mySqlCommand возвращаемым значением метода GetCommandObject объекта myDatabaseConnection.

5. В обработчике событий кликните updateProductsButton, в блоке try определите местонахождение комментария TODO: [L7.2 Ex 1] Update products. Ниже этого комментария, добавьте код, чтобы выполнить следующее:

   1. Создайте десятичную переменную, названную productPrice, и инициализируйте её свойством Text поля productPriceTextBox. Вы должны будете преобразовать его к десятичному типу.

   2. Установите свойство CommandType объекта mySqlCommand к CommandType.Text.

   3. Укажите в свойстве CommandText объекта mySqlCommand запрос SQL, который обновляет столбец ListPrice в таблице Production.Product значением переменной productPrice.

   4. Вызовите метод OpenConnection объекта myDatabaseConnection.

   5. Создайте целочисленную переменную с именем numberOfRowsUpdated, и инициализируйте её возвращаемым значением метода ExecuteNonQuery объекта mySqlCommand

   6. Вызовите метод CloseConnection объекта myDatabaseConnection

   7. Создайте и выведите сообщение MessageBox со следующими свойствами:

• Отображает переменную numberOfRowsUpdated и сообщение, которое сообщает пользователю, что текстовые строки были успешно обновлены.

• Отображает заголовок «результат обновления» (Update Result).

6. В меню File, нажмите Save All.

Ваш код должен выглядеть примерно так: