Интернет-журнал "Домашняя лаборатория", 2007 №4

Объект Data, как и любой другой элемент управления в Visual Basic, имеет несколько стандартных, общих для многих элементов управления, свойств, методов и событий. Наряду с ними, он имеет целый ряд свойств, методов и событий, предназначенных для работы с данными. Именно они и будут последовательно рассмотрены ниже.

Свойства

• BOFAction

Свойство BOFAction определяет действие объекта Data, если свойство BOF (beginning of file — начало файла) у созданного им набора записей установлено в True.

Синтаксис:data1.BOFaction=value.

Значение value может быть выбрано из двух альтернатив: MoveFirst или BOF.

При создании объекта Data свойство BOFAction устанавливается по умолчанию как MoveFirst. При этом текущей становится первая запись в наборе записей.

Установка свойства BOFAction в BOF приводит к тому, что при перемещении указателя текущей записи за пределы набора сверху, текущая запись становится недопустимой (invalid) и любая попытка ее редактирования приведет к ошибке. В этом случае происходит событие Validate на первой записи в наборе и, затем, событие Reposition, уже на недопустимой записи. При этом кнопка перемещения указателя к предыдущей записи на объекте управления данными становится неактивной.

Установить свойство BOFAction объекта управления данными data1 в режиме выполнения приложения можно следующим образом:

data1.BOFaction= vbBOFActionMoveFirst,

или

data1.BOFaction= vbBOFActionBOF.

Возможные установки свойства BOFAction приведены в следующей таблице.

Установка ∙ Константа ∙ Значение

MoveFirst ∙ vbBOFActionMoveFirst ∙ 0

BOF ∙ vbBOFActionBOF ∙ 1

• Connect

Свойство Connect определяет тип базы данных, открываемой объектом Data. По умолчанию открывается база данных в формате Microsoft Access.

Синтаксис:data1.connect=string.

Возможные варианты установки свойства Connect приведены в следующей таблице.

Тип базы данных ∙ Определение

MS Access ∙ ";"

dBASE х ∙ "dBASE x;"

Paradox x.x ∙ "Paradox x.x;"

FoxPro x.x ∙ "FoxPro x.x;"

Excel x.0 ∙ "Excel x.0;"

Lotus WKx ∙ "Lotus WKx;"

Text ∙ "Text;"

Btrieve ∙ "Btrieve;"

ODBC ∙ "ODBC; DATABASE = defaultdatabase; UID=user; PWD=password; DSN=datasourcename; LOGINTIMEOUT=seconds"

Установка свойства Connect в режиме выполнения приложения производится следующим образом: data1.connect= " dBASE IV;"

data1.connect= " FoxPro 3.0;".

• Database

Использование свойства Database в режиме выполнения приложения позволяет получить ссылку на объект Database, который создан объектом Data.

Синтаксис: Set databaseobject = data1.Database.

Объект Data создает объект Database на основе своих свойств DatabaseName, Exclusive, ReadOnly, и Connect. Так как объект Database имеет свои собственные свойства и методы то, получив на него ссылку, вы можете использовать их в приложении. Например, вы можете использовать методы Close или Execute. Подробное описание работы с объектом Database приведено в уроках, посвященных объектам доступа к данным.

• DatabaseName

Использование свойства DatabaseName позволяет получить или установить имя и месторасположение источника данных для объекта Data.

Синтаксис:data1.DatabaseName=string.

Строковое выражение string определяет месторасположение и имя файла базы данных в форматах MS Access и Btrieve. Если используется база данных, размещенная на файл-сервере, то строка должна включать полный путь к требуемому файлу, например:

\\SERVER\DATA\DATABASE.MDB.

Для баз данных в формате dBASE, Paradox и др. строка string должна содержать только путь к файлу.

Для баз данных ODBC это свойство не определяется, так как все необходимые параметры для связи с базой данных устанавливаются свойством Connect.

Если вы во время работы приложения изменяете свойство DatabaseName, то после сделанных изменений необходимо выполнить метод Refresh объекта Data.

Продемонстрируем использование свойства DatabaseName в режиме выполнения приложения. Для этого:

1. Откройте проект, созданный для просмотра содержимого файла BIBLIO.MDB.

2. Удалите содержимое свойства DatabaseName объекта управления данными Data1.

3. Добавьте следующий код в процедуру обработки сообщения о загрузке формы:

Private Sub Form_Load()

data1.databasename= "c: \vb5\biblio.mdb"

data1.refresh

End Sub

4. Запустите проект.