Доступ к данным в VB

End Sub

Private Sub objBoss_DataError(ByVal sMessage As String)

Dim WithEvents objBoss As clsEmployee

Public Event DataError(ByVal sMessage As String)

Добавление событий

Удаление объекта

Dim objX As Object

Set objX = New MyObj.MyClass

Один из примеров, когда может понадобиться поздняя привязка, — создание экземпляра объекта на удаленном компьютере.

Раннее связывание является более предпочтительным также, потому что обеспечивает более быструю работу приложения.

Для удаления экземпляра класса достаточно присвоить объектной переменной значение Noth­ing. При этом освобождаются все связанные с ним ресурсы, а также вызывается метод Terminate модуля класса.

Set objTemp = Nothing

Хорошим стилем програм­мирования считается присвоение объекту значения Nothing по окончании работы с ним. Таким образом вы гарантируете, что все связанные с ним ресурсы памяти осво­бождены и сам объект будет уничтожен.

Объекты Visual Basic могут генерировать события, подобные событию Load для формы. Со­бытия позволяют объекту выполнять программный код, написанный пользователем объекта. Объ­ект инициирует событие для активизации процедуры обработки события. Чтобы создать событие в клас­се, необходимо выполнить следующее:

1. Объявить событие в классе.

2. В нужном месте инициировать событие с помощью оператора RaiseEvent.

Предположим, мы хотим возвращать пользователю объекта код ошибки, в случае ее возникновения. Для этого вначале нужно в разделе General класса clsEmployee поместить оператор описания события под именем DataError:

Затем добавить код, инициирующий событие. Если значение свойства Sum (зарплата) еще не задано, то вычислять надбавку к зарплате бессмысленно. Поэтому пользователю выдается сообщение об ошибке через событие DataError.

If MyObj.Sum = 0 Then RaiseEvent DataError("he указана зарплата!")

Чтобы воспользоваться этим событием, в вызывающем программном коде нужно объявить объект с помощью ключевого слова WithEvents. Кроме того, нужно создать процедуру обработки события, которую может вызы­вать объект. Например, расположить в разделе General формы или модуля сле­дующий программный код:

MsgBox sMessage, vbCritical, "Ошибка!!!"

Если задано ключевое слово WithEvents, имя объекта добавляется в раскрывающийся спи­сок объектов, расположенный в левом списке окна кода, и Visual Basic может создать шаб­лон процедуры для его обработки.

VB предоставляет средства доступа к данным, которые дают возможность создавать и использовать системы БД, управляющие данными приложения. VB позволяет обращаться к базам данных многих популярных форматов: MS Access, Btrieve, dBase, FoxPro, Paradox, а также к базам данных ODBC систем клиент-сервер, таким как MS SQLServer или Oracle.

Visual Basic включает следующие инструменты работы с данными:

а) процессор БД Microsoft Jet;

б) элемент управления Data;

в) объектный интерфейс программирования Dao (Data Access Objects).

Два последних инструмента обеспечивают два метода взаимодействия с процессором Jet.

Элемент управления Data дает ограниченные возможности обращения к существующим базам данных практически без программирования. Модель DAO - программный интерфейс, обеспечивающий полный контроль над БД. Это коллекция объектных классов, которые моделируют структуру реляционной БД. Они обеспечивают свойства и методы, которые позволяют выполнять все операции с БД, такие как создание БД, определение таблиц, полей и индексов, установление отношений между таблицами, запросы в базах данных.

Дата добавления: 2014-12-10