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

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

' экземпляра будет использована ссылка на нее.

connString = _

"server=(local);database=Novelty;TRUSTED_CONNECTION=Yes"

Dim conn As New SqlConnection(connString)

Dim cmd As New SqlCommand("select count(*) from tblCustomer", conn)

conn.Open Dim dReader As SqlDataReader = _

cmd.ExecuteReader(CommandBehavior.CloseConnection)

While dReader.Read

' Включить первую и единственную запись

' в результирующий набор.

GetRowCount = dReader.GetValue(0)

End While

dReader.Close

conn.Close

Catch

System.Console.WriteLine("An error has occurred " & Err.Description)

End Try

 End Function

#Region " Component Designer generated code "

 Public Sub New(ByVal Container As System.ComponentModel.IContainer)

MyClass.New

' Код, созданный конструктором компонентов.

Container.Add(Me)

 End Sub

 Public Sub New

MyBase.New

' Вызов метода, созданный конструктором компонентов.

InitializeComponent

' Инициализация после вызова метода

InitializeComponent.

 End Sub

 ' Переопределение метода Dispose для очистки списка компонентов.

 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose

End If

End If

MyBase.Dispose(disposing)

 End Sub

 ' Код, созданный конструктором компонентов.

 Private components As System.ComponentModel.IContainer

' ЗАМЕЧАНИЕ: Код, созданный конструктором компонентов.

' Его можно изменять только с помощью конструктора компонентов

' Не изменяйте его вручную в окне редактирования кода.

<System.Diagnostics.DebuggerStepThrough> _

Private Sub InitializeComponent

components = New System.ComponentModel.Container

End Sub

#End Region

End Class

Более глубокое изучение иерархии наследования используемых компонентов выходит за рамки данной поэтому далее описывается лишь простой пример ее использования. Хотя в данном коде метод ToString не используется, но он применяется после компиляции вспомогательного кода. Для его применения нужно вставить в код строку Inherits System.ComponentModel.Component, которая позволяет использовать функции класса System.ComponentModel.Component, унаследованные от класса System.Object. Это наследование позволяет использовать функции данного класса без выполнения дополнительных действий.

Для компоновки нового компонента щелкните на его имени в окне Solution Explorer правой кнопкой мыши и выберите в контекстном меню команду Build. Теперь готовый компонент можно использовать, но как? Создайте Web-форму GetRowCountTest.aspx со вспомогательным кодом, который показан в листинге 12.6. Обратите внимание, что в самом начале кода используется строка импорта компонента Novelty1.GetRowCount с функциями компонента GetRowCount.

ЛИСТИНГ 12.6. Вспомогательный код GetRowCountTest.aspx.vb

Imports Novelty1.GetRowCount

Public Class GetRowCountTest Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

 ' Вызов метода, созданный конструктором компонентов.

 <System.Diagnostics.DebuggerStepThrough> Private Sub InitializeComponent

 End Sub

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