Добавляем поля в отношение oAutoRel.Fields.Append oRelFld Добавляем индексы в таблицы oCustomerTd.Indexes.Append oCustomerIdx oAccountTd.Indexes.Append oAccountIdx(0) oAccountTd.Indexes.Append oAccountIdx(1) Добавляем таблицы в БД oAutoDB.TableDefs.Append oCustomerTd oAutoDB.TableDefs.Append oAccountTd Добавляем отношение в БД oAutoDB.Relations.Append oAutoRel

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

После создания БД вы можете использовать объекты доступа к данным для программного изменения ее структуры. Модификация БД очень похожа на те действия, которые мы выполняли при ее создании. В большинстве случаев для добавления объектов достаточно использовать те же самые методы Create и Append. Вы также можете добавлять в БД новые таблицы, добавляя новые объекты TableDef или новые поля и индексы, добавляя новые объекты Field и Index в существующие таблицы. Если вам больше нравится SQL, используйте для модификации БД операторы этого языка.

Давайте посмотрим на следующий простейший пример добавления таблицы в существующую БД с помощью объектов DAO:

Dim oDB As Database

Переменная для нового объекта TableDef Dim oNewTd As TableDef

Dim oNewFld As Field Переменная для нового объекта Field Открываем БД

Set oDB = DBEngine.Workspaces(0).OpenDatabase( AUTOSTORE.MDB )

Set oNewTd = oDB.CreateTableDef( Новая таблица )

Set oNewFld = oNewTd.CreateField( Новое поле , dbInteger)

Добавляем новое поле в таблицу

oNewTd.Fields.Append oNewFld

oDB.TableDefs.Append oNewTd Добавляем таблицу в БД oDB.Close Закрываем БД

Естественно, существующие в БД объекты могут быть удалены. Мы можем использовать метод Delete для удаления таблицы, добавленной в БД в предыдущем примере:

oDB.TableDefs.Delete Новая таблица

Следует иметь в виду, что при удалении индексного поля сначала следует удалить сам индекс и связанные с ним объекты Relation. Лишь после этого вы сможете удалить объекты Field или TableDef, являющиеся составными частями отношения.

На прилагаемой к книге дискете помещен полный код программы для создания БД Auto Store в Visual Basic.

6.4. MS SQL Server

Создать базу данных в MS SQL Server можно несколькими путями: визуально, находясь в Microsoft SQL Enterprise Manager, программно, посредством редактора Microsoft ISQL/w, программно посредством технологии SQL pass-through из клиентского приложения и путем наращивания (upsizing) локальной БД.

В этом параграфе мы опишем создание базы данных как программным путем, так и с помощью процесса наращивания.

Программный путь создания БД посредством одной из составных частей MS SQL Server -редактора Microsoft ISQL/w - реализуется простым набором команд, которые мы можем тут же запускать на выполнение. Редактор ISQL/w имеет несколько страниц, на первой из которых мы можем набирать необходимые команды, как это показано на рис. 6.18. Набранную команду можно тут же запустить на выполнение, нажав кнопку с треугольником в верхней правой части окна. На вкладке Results вы можете просмотреть результат выполнения команды, если она

Fr[c FilH Oiiriy Winrirw Help

]ggJ[>jQBrui:>..i:-

Micro sotl ISQUW

Query - RUBE N2lauto slore\sa

I: S-.E:T i.OCl&l !ierilL- mul

Quer

.riJ.io.:- r:..[ i.--nr,- r<-...[~Klr ,iia*q*ir , i--it-i

иHCPE .j-iil J-.e. 1 ] I - - : 1; ji I 11 :i.

Conneclions T

E>ei:uies Hie current Оиегуел

Рис. 6.18. Набор команды в редакторе SQL Server

Lite 1ЛИ Quciy Window Help

Query RUBENгVвulч stor*lsa

oui.i.-ttane

t Uuerie-pl !SE LE if T m з :l : n j - c- rn . [jj jj*

Results

Sreli*iiM \jO

CI z!t ! li ri

sue Згшжт 4,3

-Tt? 6.0

ChovTcilBt F№l DSL

1.1 г.--.In

ti-i i.,?jiir,-ae(M

Boll VC1-

30(1 .141

i I.Ill

1 lVH

Рис. 6.19. Просмотр результатов выполнения команды в SQL Server

предусматривает вывод данных (рис. 6.19). Остальные вкладки обеспечивают возможность очень наглядного графического представления условий выполнения команды. Вы можете убедиться в этом, взглянув на рис. 6.20 и 6.21.

file Edil Query Wrdow J.4e;lji

MIcrotirltlSOUM

Query nUBErlSjuto.ilorfifla

. .i\ BJ jf Г z. I . ).ЯОге [j] ClllBtWS:[*1 SELECT mOdlH riSni9 iF0i[t [Vj I ! I I

QiMiy

I iJannadiMrl Г

Рис. 6.20. Графическое представление выборки в SQL Server

Die Edit Query Ifrimirjw J Help

MIcrotmltlSOUM

йивгу- RIUBENZVBUtii BliirB>a

Ва;еШО ЯОге i] Pums: *1 SELECT madgl[taniB [Foi[tli[р[и

Sttp: PbuII *\-5lep f1 -SELECT 11

Ojn%

Рис. 6.21. Графическое представление отношение в выборке между таблицами в SQL Server

Прежде чем создать БД, необходимо решить, на каком из существующих устройств - Device -наша база данных будет храниться, либо создать подобное устройство.

Device - файл, который MS SQL Server использует для размещения одной или нескольких баз данных, заранее резервируя место на диске.

Размер Device указывается уже при его создании. При этом необходимо учитывать, что база данных может находиться на нескольких устройствах, то есть Device может хранить часть базы данных. Устройство создается следующей командой:

DISK INIT

NAME = cLogicalName,

PHYSNAME = cPhysicalName,

VDEVNO = nValuel,

SIZE = nValuel

[, VSTART = Adress]

Описание опций этой команды приведено в следующей таблице: