3.3.6.3. Создание базы данных

DAO

Создать и открыть новую базу данных можно с помощью методов:

CreateDatabase объекта Workspace

CreateDatabase объекта DBEngine

Метод CreateDatabase создает новый объект Database, добавляет его в семейство Databases открытых баз данных в рабочей области, сохраняет базу данных на диске и возвращает ссылку на открытый объект Database.

Set база_данных = workspace.CreateDatabase (name, locale, options)

где:

workspace - ссылка на существующий объект Workspace, содержащий базу данных;

name - строковое выражение длиной до 255 символов, задающее имя создаваемого файла базы данных (.mdb);

locale - обязательная строка, задающая язык.

options - необязательное целое число, задающее формат файла БД Jet и определяющее, будет ли шифроваться база данных.

Пример использования метода объекта Workspace:

Set newdb=.Workspaces(0).CreateDatabase ("c:\w.mdb", dbLangGeneral)

Пример использования метода объекта DBEngine:

Set db1=CreateDatabase(“C:\NewDB.mdb”)

Set db2= DBEngine.CreateDatabase(“C:\NewDB.mdb”,DbLangCyrillic)

ADO

Для создания новой базы данных Access и установления соединения с ней используется метод Create объекта Catalog модели ADOX. Синтаксис этого метода следующий:

Catalog.Create connectionString

При выполнении метода создается и открывается новый объект Connection к источнику данных, который описывается строкой соединения.

Пример:

Dim cat As New ADOX.Catalog

cat.Create “Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source=c:\new.mdb”

3.3.6.4. Выполнение операций с записями

К операциям с данными относятся операции: поиск, обновление, добавление и удаление данных. В объектных моделях DAO и ADO для выполнения этих операций имеются соответствующие свойства и методы объектов Recordset и Field.

DAO

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

Oбъект Recordset представляет набор записей в основной таблице или набор записей, который получается в результате выполнения запроса.

Данные, хранимые в таблицах базы данных, доступны как значения характеристики Value объекта Field объекта Recordset. Объект доступа к данным Recordset представляет набор записей, состоит из записей и полей.

Существует пять типов объектов Recordset.

Для создания нового объекта Recordset в существующей таблице, в запросе или в операторе SQL, возвращающем записи, Access позволяет использовать метод OpenRecordset для объектов Databaseи Connection:

Set набор_записей = объект.OpenRecordset (источник, [типОбъекта], [параметры], [типБлокировки])

где

объект - ссылка на существующий объект Database; (объектная переменная для данного объекта);

источник - строка, специфицирующая имя таблицы, имя запроса, или оператор SQL SELECT, возвращающий записи. Для объектов Recordset табличного типа источником данных должна быть таблица в базе данных.

Объект Recordset можно создавать также на основе существующих объектов TableDef или QueryDef и другого Recordset. Эти объекты имеют свои собственные методы OpenRecordset:

Set набор_записей = объект.OpenRecordset ([типОбъекта], [параметры], [типБлокировки])

объект - существующий объект TableDef, QueryDef или Recordset.

ADO

Объект Recordset может быть создан тремя различными способами с помощью следующих методов:

• Execute объекта Connection;

• Execute объекта Command;

• Open объекта Recordset.

Обычно для создания объекта Recordset используется метод Open, т.к. именно в этом случае есть возможность управлять свойствами этого метода. Этот метод имеет следующий синтаксис:

Recordset.Open Source, ActiveConnection, CursorType, LockType, Options

В качестве источника набора записей могут быть использованы:

инструкция SQL, имя таблицы, имя запроса Access и др.

В качестве аргумента ActiveConnection могут быть использованы:

объектная переменная объекта Connection; строка соединения; выражение CurrentProject.Connection, если источник находится в текущей базе данных.

Пример создания объекта Recordset на базе таблицы:

Dim cn As ADODB.Connection, rst As ADODB.Recordset

Set cn=CurrentProject.Connection

Set rst=New ADODB.Recordset

With rst

.ActiveConnection=cn

.CursorType=adOpenKeyset

.Open Source:=”Кадры”

End With