CreateProperty +

CreateQueryDef +

CreateRelation +

CreateReplica +

CreateTabledef +

CreateUser +

CreateWorkspace + Delete Edit

Execute +

FieldSize

FillCache

FindFirst

FindLast

FindNext

FindPrevious

GetChunk

GetRows

Idle +

Move

MoveFirst

MoveLast

MoveNext

MovePrevious

MoveReplica +

NewPassword

OpenDatabase

OpenRecordset +

RefreshLink

RegisterDatabase +

RepairDatabase +

Requery

Rollback +

Seek

Synchronize +

Update

++ ++

++ ++

+ + + + +

+ + + + +

++ ++ ++ +

Теперь, когда вы получили представление о концепции использования объектов доступа к данным и процессора данных для управления БД, мы можем обсудить, как использовать этот инструментарий для создания базы данных.

В Visual Basic существует несколько способов создания БД.

На этапе разработки прикладной программы можно использовать самый простой способ - с помощью Data Manager. После запуска Visual Basic в меню Add-Ins выберите команду Data Manager. В его окне в меню File выберите команду New Database. Задайте имя для создаваемой БД и выберите папку, в которой она будет располагаться. В окне Data Manager появится окно с именем новой БД, как это видно на рис. 6.16. С его помощью вы также можете внести в структуру БД необходимые изменения, добавить или отредактировать хранящиеся в ней данные.

gigipajB Маг ago г - D.\My Doci*mcrHo\DOC\Ncw 8DDk\aulDutorc.mdb

Рис. 6.16. Создание базы данных с помощью Data Manager

Второй способ создания БД основывается на использовании в Visual Basic формата хранения данных Microsoft Access. Тем самым любая БД, созданная в СУБД Access 7.0, может быть "полнокровно" использована в программе, написанной на Visual Basic.

Естественно, посредством технологии ODBC мы можем создать, а в дальнейшем управлять из программы Visual Basic базой данных, созданной в любой другой СУБД при наличии соответствующего драйвера.

Перечисленные варианты, как правило, не приемлемы, если в соответствии с заданной функциональностью необходимо создание БД в процессе работы прикладной программы. Поэтому использование объектов доступа к данным для создания БД обеспечивает максимальную гибкость и самые широкие возможности в работе. Перед тем как использовать объекты для доступа к данным, не забудьте убедиться, что установлена ссылка на соответствующую библиотеку. В меню Tools при задании команды References в появляющемся диалоговом окне должна быть помечена библиотека Microsoft DAO 3.0 Object Library.

Для создания новой БД в меню File Visual Basic выберем команду New Project. Назовем проект Create DB. Создадим в проекте программный модуль путем выполнения команды Module в меню Insert. После в этом же меню выполним команду Procedure. В появившемся диалоговом окне напишем имя создаваемой процедуры - Main, для типа процедуры выберем Sub, а для диапазона действия - Public. После нажатия кнопки OK появится шаблон, готовый для написания программного кода, как это показано на рис. 6.17. Далее необходимо выполнить следующие действия.

Рис. 6.17. Шаблон для написания программы

1. Используйте оператор Dim для создания новых переменных, с помощью которых будет выполняться ссылка на соответствующий объект, включенный в БД. Дополнительно к объектам DBEngine и Workspace, которые определяют рабочую среду, необходимо иметь:

Один объект Database.

Один объект TableDef для каждой таблицы.

Один объект Field для каждого поля каждой таблицы.

Один объект Index для каждого индекса таблицы.

Set oAutoWs = DBEngine.Workspaces(0)

Set oAutoDB = oAutoWs.CreateDatabase("AUTOSTORE.MDB", dbLangGeneral)

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

3. Используйте метод CreateTableDef объекта Database для создания таблиц в БД:

Set oTDVar = oDBVar.CreateTableDef([cWame

[, Attributes [, Source [,]]]]) где

• oTDVar - имя переменной для ссылки на объект TableDef.

• oDBVar - имя переменной для ссылки на объект Database.

• cName - имя создаваемой таблицы. Оно должно начинаться с буквы и иметь не более 40 символов. В имени таблицы не должно использоваться знаков пунктуации и пробелов.

• Attributes - устанавливает дополнительные характеристики для создаваемой таблицы, в основном используемые для внешних источников данных.

• Source - указывает имя таблицы внешней БД, которая будет являться источником данных.

• Connect - определяет характеристики соединения в случае использования внешнего источника данных.

Создадим две таблицы в БД Auto Store, используя следующие строки:

Set oCustomerTd = oAutoDB.CreateTableDef("Customer")

Таким образом, для создания фрагмента БД Autostore, состоящего из двух связанных таблиц Customer и Account, мы должны определить следующие переменные:

Public Sub Main()

Определяем переменные

Dim oAutoDB As Database, oAutoWs As Workspace Dim oCustomerTd As TableDef, oAccountTd As TableDef Dim oCustomerFlds(8) As Field, oAccountFlds(7) As Field Dim oCustomerldx As Index, oAccountIdx(2) As Index Dim oAutoRel As Relation Dim oIndexFld(3), oRelFld As Field

Для непосредственного создания БД используйте метод CreateDatabase объекта Workspace:

Set oDBVar = [oWSVar.]CreateDatabase(cDataBaseWame, Locale [, Options])

• oDBVar - имя переменной для ссылки на БД;

• oWSVar - имя переменной для ссылки на объект Workspace;

• cDataBaseName - имя создаваемой БД, которому может предшествовать указание пути доступа к файлам;

• Locale - последовательность расположения символов в таблицах БД при сортировке или индексировании данных. Для России наиболее подходящим может быть использование последовательности, соответствующей стандартной таблице расположения символов, которая устанавливается заданием константы dbLangGeneral, или последовательности, соответствующей русскому алфавиту. Для этого надо использовать константу dbLangCyrillic.

• Options - задает дополнительные параметры для БД. Например, можно использовать константу dbEncrypt для шифрования данных в создаваемой бД.

Для создания БД Autostore используем следующий код: