Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД
Подождите немного. Документ загружается.
Рис. 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 для каждого индекса таблицы.
converted to PDF by HupBaH9I
Таким образом, для создания фрагмента БД 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 oCustomerIdx As Index, oAccountIdx(2) As Index
Dim oAutoRel As Relation
Dim oIndexFld(3), oRelFld As Field
Для непосредственного создания БД используйте метод CreateDatabase объекта Workspace:
Set oDBVar = [oWSVar.]CreateDatabase(cDataBaseName,
Locale [, Options])
где
• oDBVar - имя переменной для ссылки на БД;
• oWSVar - имя переменной для ссылки на объект Workspace;
• cDataBaseName - имя создаваемой БД, которому может предшествовать указание пути
доступа к файлам;
• Locale - последовательность расположения символов в таблицах БД при сортировке или
индексировании данных. Для России наиболее подходящим может быть использование
последовательности, соответствующей стандартной таблице расположения символов,
которая устанавливается заданием константы dbLangGeneral, или последовательности,
соответствующей русскому алфавиту. Для этого надо использовать константу
dbLangCyrillic.
• Options - задает дополнительные параметры для БД. Например, можно использовать
константу dbEncrypt для шифрования данных в создаваемой БД.
Для создания БД Autostore используем следующий код:
Set oAutoWs = DBEngine.Workspaces(0)
Set oAutoDB = oAutoWs.CreateDatabase("AUTOSTORE.MDB",_ dbLangGeneral)
Чтобы создаваемые файлы при записи на диск оказались в нужном месте, можно использовать
операторы ChDrive и ChDir.
3. Используйте метод CreateTableDef объекта Database для создания таблиц в БД:
Set oTDVar = oDBVar.CreateTableDef([cName
[, Attributes [, Source [,]]]])
где
• oTDVar - имя переменной для ссылки на объект TableDef.
• oDBVar - имя переменной для ссылки на объект Database.
• cName - имя создаваемой таблицы. Оно должно начинаться с буквы и иметь не более 40
символов. В имени таблицы не должно использоваться знаков пунктуации и пробелов.
• Attributes - устанавливает дополнительные характеристики для создаваемой таблицы, в
основном используемые для внешних источников данных.
• Source - указывает имя таблицы внешней БД, которая будет являться источником
данных.
• Connect - определяет характеристики соединения в случае использования внешнего
источника данных.
Создадим две таблицы в БД Auto_Store, используя следующие строки:
Set oCustomerTd = oAutoDB.CreateTableDef("Customer")
converted to PDF by HupBaH9I
Set oAccountTd = oAutoDB.CreateTableDef("Account")
4. Для создания полей в таблице используйте метод CreateField объекта TableDef:
Set oFVar = oTDVar.CreateField([cName [, Type [, Size]]])
где
• oFVar - имя переменной для ссылки на объект Field.
• oTDVar - имя переменной для ссылки на объект TableDef.
• cName - имя создаваемого поля. Правила задания имени поля такие же, как для имен
таблиц.
• Type - тип создаваемого поля. В Visual Basic вы можете использовать следующие
константы для указания типа поля:
o dbDate - дата и время;
o dbText - символьное;
o dbMemo - поле примечаний;
o dbBoolean - логическое (значения Yes/No);
o dbInteger - целое число (2 байта);
o dbLong - целое число двойной точности (4 байта);
o dbCurrency - денежное выражение;
o dbSingle - числовое;
o dbDouble - числовое с плавающей точкой двойной точности;
o dbByte - целое положительное число;
o dbLongBinary - символьная строка для ссылки на OLE-объект.
• Size - ширина создаваемого поля. Этот параметр необходимо указывать только для
символьных полей (1 - 255).
Проиллюстрируем использование этого метода на примере создания нескольких полей для
таблицы Customer:
Set oCustomerFlds(0) = oCustomerTd.CreateField("KEY_CUSTOMER", dbLong)
` Установим для этого поля автоматическое приращение
` значения с помощью свойства Attributes объекта Field
oCustomerFlds(0).Attributes = dbAutoIncrField
Set oCustomerFlds(1) =_ oCustomerTd.CreateField("NAME_CUSTOMER", dbText, 100)
...
5. Для создания индексов используйте метод CreateIndex объекта TableDef:
Set oIVar = oTDVar.CreateIndex([cName])
где
• olVar - имя переменной для ссылки на объект Index.
• oTDVar - имя переменной для ссылки на объект TableDef.
• cName - имя индекса. Правила его задания такие же, как для имени таблицы.
Необходимые характеристики для создаваемого индекса можно задать с помощью
соответствующих свойств объекта Index (см. табл. 6.4). Для таблицы Customer создание
первичного индекса может быть выполнено следующим образом:
Set oCustomerIdx = oCustomerTd.CreateIndex("CUSTOMER_ID")
oCustomerIdx.Primary = True
oCustomerIdx.Unique = True
Теперь следует с помощью метода CreateField создать поле, для того чтобы указать, какое
поле будет использовано в качестве ключевого, как это показано в следующем примере:
Set oIndexFld(0) =_ oCustomerIdx.CreateField("KEY_CUSTOMER")
converted to PDF by HupBaH9I
6. Установите отношение между таблицами. Для этого используйте метод CreateRelation
объекта Database:
Set oRelVar = oDBVar.CreateRelation([cName
[, cParentTable [,cChildTable
[, Attributes]]]])
где
• oRelVar - имя переменной для ссылки на объект Relation.
• oDBVar - имя переменной для ссылки на объект Database.
• cName - имя создаваемого объекта. Правила его составления такие же, как для таблицы.
• cParentTable - имя родительской таблицы в создаваемом отношении.
• cChildTable - имя дочерней таблицы в создаваемом отношении.
• Attributes - задает тип создаваемого отношения за счет использования следующих
констант:
o dbRelationUnique - отношение "один к одному".
o dbRelationDontEnforce - в отношении не поддерживается целостная ссылочность.
o dbRelationInherited - отношение существует не в текущей БД между двумя
присоединенными таблицами.
o dbRelationLeft - в родительской таблице могут оставаться записи, не имеющие
соответствующих записей в дочерней таблице.
o dbRelationRight - в дочерней таблице могут оставаться записи, не имеющие
соответствующих записей в родительской таблице.
o dbRelationUpdateCascade - в отношении будет поддерживаться каскадное
обновление.
o dbRelationDeleteCascade - в отношении будет поддерживаться каскадное
удаление.
После создания отношения необходимо создать поле для отношения в родительской таблице и
указать соответствующее ему поле в дочерней таблице, как это показано в следующем примере:
' Создание связи между таблицами "Один ко многим"
Set oAutoRel = oAutoDB.CreateRelation("CustToAcc",_ "Customer", "Account")
Set oRelFld = oAutoRel.CreateField("KEY_CUSTOMER")
oRelFld.ForeignName = "KEY_CUSTOMER"
7. Добавьте созданные поля и индексы в соответствующие таблицы, а таблицы и отношение -
в БД с помощью метода Append. Обратите внимание, что после добавления объектов в
соответствующие коллекции большинство их свойств не может быть изменено. Для изменения
свойств в этом случае вам придется сначала удалить соответствующий объект с помощью метода
Delete, а затем создать его заново с требуемыми значениями свойств и после этого добавить в
коллекцию.
Collection.Append oVar
где
• Collection - имя коллекции, в которую добавляется объект;
• oVar - имя переменной для ссылки на добавляемый объект.
Для нашего примера фрагмент кода, обеспечивающий добавление объектов в коллекции,
будет выглядеть следующим образом:
` Добавляем поля в таблицы
oCustomerTd.Fields.Append oCustomerFlds(0)
oCustomerTd.Fields.Append oCustomerFlds(1)
. . .
` Добавляем поля в индексы
oCustomerIdx.Fields.Append oIndexFld(0)
oAccountIdx(0).Fields.Append oIndexFld(1)
oAccountIdx(1).Fields.Append oIndexFld(2)
converted to PDF by HupBaH9I
` Добавляем поля в отношение
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 вы можете просмотреть результат выполнения команды, если она
converted to PDF by HupBaH9I
предусматривает вывод данных (рис. 6.19). Остальные вкладки обеспечивают возможность очень
наглядного графического представления условий выполнения команды. Вы можете убедиться в
этом, взглянув на рис. 6.20 и 6.21.
Рис. 6.18. Набор команды в редакторе SQL Server
Рис. 6.19. Просмотр результатов выполнения команды в SQL Server
converted to PDF by HupBaH9I
Рис. 6.20. Графическое представление выборки в SQL Server
Рис. 6.21. Графическое представление отношение в выборке между таблицами в SQL Server
Прежде чем создать БД, необходимо решить, на каком из существующих устройств - Device -
наша база данных будет храниться, либо создать подобное устройство.
Device - файл, который MS SQL Server использует для размещения одной или нескольких баз
данных, заранее резервируя место на диске.
Размер Device указывается уже при его создании. При этом необходимо учитывать, что база
данных может находиться на нескольких устройствах, то есть Device может хранить часть базы
данных. Устройство создается следующей командой:
DISK INIT
NAME = cLogicalName,
PHYSNAME = cPhysicalName,
VDEVNO = nValue1,
SIZE = nValue2
[, VSTART = Adress]
Описание опций этой команды приведено в следующей таблице:
converted to PDF by HupBaH9I
Предложение
Описание
NAME Название устройства, которое будет
использоваться внутри SQL для
обращения к нему. Не может
превышать 30 символов.
PHYSNAME Дисковый файл, в котором устройство
будет храниться. Его название
должно удовлетворять требованиям
операционной системы.
VDEVNO Уникальный номер устройства между
1 и 255.
SIZE Количество 2-килобайтных блоков.
Минимальное число - 500 блоков или
1 Mбайт.
VSTART Смещение первой базы данных,
которая будет храниться в
устройстве. По умолчанию 0.
В качестве примера создадим устройство Rdev_lib, где SAMP_LIB.DAT - имя файла, который
является хранилищем устройства:
DISK INIT
NAME = 'Rdev_lib',
PHYSNAME = 'C:\SQL_60\DATA\SAMP_LIB.DAT',
VDEVNO=1,
SIZE = 5120
На рис. 6.22 приводится результат создания устройства, который мы можем увидеть в File
Manager Windows NT.
Рис. 6.22.
Далее обязательно необходимо создать устройство Rdev_log для журнала транзакций БД:
DISK INIT
converted to PDF by HupBaH9I
NAME = 'Rdev_log',
PHYSNAME = 'C:\SQL_60\DATA\SAMP_LOG.DAT',
VDEVNO=2,
SIZE = 2048
На рис. 6.23 и 6.24 показаны характеристики вновь созданных устройств, а на рис. 6.25 - их
отображение в Server Manager.
Теперь мы можем создать базу данных Auto_Store, которая будет размещаться на двух
устройствах: Rdev_lib и Rdev_log, где числа 10 и 4 обозначают резервируемое пространство в
мегабайтах. Синтаксис команды, с помощью которой создается база данных:
Рис. 6.23.
Рис. 6.24.
converted to PDF by HupBaH9I
Рис. 6.25.
CREATE DATABASE DatabaseName
[ON {DEFAULT | DatabaseDevice} [= Size]
[, DatabaseDevice [= Size]]...]
[LOG ON DatabaseDevice [= Size]
[, DatabaseDevice [= Size]]...]
[FOR LOAD]
Аргумент DatabaseName указывает имя вновь создаваемой базы данных. Как мы уже
упоминали и это видно из приведенного синтаксиса, вы можете распределить базу данных между
несколькими устройствами, резервируя определенный размер на каждом устройстве. Если вы
укажете ключевое слово DEFAULT, то база данных будет создана на устройстве по умолчанию,
которое определено в таблице Sysdevices, то есть вы можете написать: ON DEFAULT = 5.
Устройство, где будет храниться журнал транзакций базы данных, вы можете установить с
помощью ключевого слова LOG ON. Можно указать более, чем одно устройство.
Опция FOR LOAD резервирует базу данных для перезагрузки предыдущей копии базы. Если вы
указываете опцию FOR LOAD, никто не сможет ни случайно, ни преднамеренно редактировать
базу данных между временем создания базы данных и ее загрузкой.
CREATE DATABASE Auto_Store ON Rdev_lib = 10 LOG ON Rdev_log = 4
База данных Auto_Store существует, но пока она совершенно пуста. Создадим в ней две
таблицы: Country и Firm, связанные по полю key_country.
USE Auto_Store
Создаем таблицу Country:
CREATE TABLE Country (key_country smallint IDENTITY(1,1) ;
PRIMARY KEY CLUSTERED, name_country varchar(20) NOT NULL, times_ timestamp)
converted to PDF by HupBaH9I