Поддержка сайта

Высокие позиции в поисковой системе, на прямую зависят от развития вашего сайта.

Продвижение сайтов

Эффективность стратегий продвижения подтверждается сотрудничеством с крупными клиентами и отзывами о нашей работе.

Создание сайтов

Мы делаем сайты быстро, недорого и профессионально. От работы с нами, у вас останутся только положительные эмоции.

Обеспечение службы данных

Следующей задачей проектирования объектной модели является создание модуля класса Database, который обеспечит доступ к службе данных для остальных объектов нашей модели (следовательно, Database — инфраструктурный объект). В понятие "служба данных" входят любые действия с базой данных, например выбор строки, вставка/удаление элемента, изменение схемы и т. д. ADO предоставляет широкий спектр функций для работы с базами данных, но мы построим собственный объект, поддерживающий меньший набор функций уровня ADO. Это упростит написание объектов модели.

Итак, объект Database служит для подключенил к базе данных. После своего создания он обеспечивает доступ к базе данных для других объектов модели, которым уже не надо специфицировать характеристики подключения.

Создание модуля класса Database

1. Включите ссылку на ADO DLL. Выберите Project I References в меню и укажите в списке Microsoft ActiveX Data Objects 2.1 Library.

 Обеспечение службы данных

2. В окне Project Explorer щелкните правой кнопкой мыши на Class Modules и выберите Add Class Module. На вкладке New выделите Class Module и щелкните на Open.

3. После создания класса присвойте ему имя Database в окне Properties:

Обеспечение службы данных

Обеспечение службы данных

4. В окне кода введите:

 Обеспечение службы данных

Обеспечение службы данных

5. В раскрывающихся списках окна реактора кода выберите Class и Terminate, а затем добавьте:

 Обеспечение службы данных

6. Пока мы не можем протестировать введенный код, поскольку он не показывает реальных результатов. Сохраним его под именем Database.els.

Описание работы

Начав разработку модуля класса Visit, мы планировали использовать метод Configure для предоставления объекту сведений об окружении. В модуле WroxCommerce эти сведения отражают параметры подключения к базе данных, а также имя сайта и имя почтового домена. На этот раз мы предоставили объекту Database путь для получения этой информации.

В начале кода стоят оператор Option Explicit и закрытая переменная, хранящая строку подключения.

Option Explicit

Private m_strDBString As String

Затем вводится зарытая переменная для хранения подключения к базе данных: Private m_db As ADODB.Connection

Далее (как и в первом упражнении) создается метод Configure:

Public Sub Configure(ByVal strDBString As String)

m_strDBString = strDBString End Sub

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

Объекты нашей модели получают доступ к базе данных через свойство DB объекта Database. Нужно создать объект Connection и открыть подключение только по первому вызову свойства. Для этого мы проверяем, что объект Connection еще никем не устанавливался, и формируем подключение:

Public Property Get DB() As Connection If mdb Is Nothing Then

Set mdb = New Connection mdb.Open mstrDBString End If

Set DB = mdb End Property

В объекте Visit есть метод Shutdown для очистки всех задействованных ресурсов. То же самое выполняется после отключения от базы данных:

Public Sub Shutdown ()

If Not mdb Is Nothing Then mdb.Close Set mdb = Nothing End If End Sub

Как и в объекте Visit, мы завершаем код методом ClassTerminate, обеспечивающим повторный вызов Shutdown для проверки.

 

Читайте так же:
Not found

Нам доверяют

Интернет магазин