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

Пример 1

Рассмотрим пример создания базы данных в репозитории, созданном на сервере Oracle 9.x.

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

DB: IDatabase;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE;

CrInfo.Id := "NewDatabase";

CrInfo.Name := "Новая база данных";

CrInfo.Parent := MB.Root;

DB := MB.CreateObject(CrInfo).Edit As IDatabase;

DB.Authentication := AuthenticationMode.Password;

DB.DriverId := "ORCL8";

DB.LogonData.ParamValue("SERVER") := "Test";

DB.LogonData.ParamValue("SCHEME") := "TestShema";

DB.LoginPrompt := False;

DB.Credentials.SlotValue("USERNAME") := "User";

DB.Credentials.SlotValue("PASSWORD") := "Password";

(DB As IMetabaseObject).Save;

End Sub Main;

После выполнения примера в корневом каталоге репозитория будет создана новая база данных. Данная база данных будет настроена на подключение к схеме "TestShema". Схема расположена на сервере Oracle с наименованием "Test". Будет использоваться автоматическое подключение к схеме со следующими учетными данными: имя пользователя - User; пароль - Password.

Пример 2

Рассмотрим пример создания базы данных в репозитории, созданном на сервере Microsoft SQL Server 2008.

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

DB: IDatabase;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE;

CrInfo.Id := "NewDatabase";

CrInfo.Name := "Новая база данных";

CrInfo.Parent := MB.Root;

DB := MB.CreateObject(CrInfo).Edit As IDatabase;

DB.Authentication := AuthenticationMode.Password;

DB.DriverId := "MSSQL2008";

DB.LogonData.ParamValue("SERVER") := "Test";

DB.LogonData.ParamValue("DATABASE") := "TestShema";

DB.LoginPrompt := False;

DB.Credentials.SlotValue("USERNAME") := "User";

DB.Credentials.SlotValue("PASSWORD") := "Password";

(DB As IMetabaseObject).Save;

End Sub Main;

После выполнения примера в корневом каталоге репозитория будет создана новая база данных. Данная база данных будет настроена на подключение к схеме "TestShema". Схема расположена на сервере Microsoft SQL Server 2008 с наименованием "Test". Будет использоваться автоматическое подключение к схеме со следующими учетными данными: имя пользователя - User; пароль - Password.

См. также:

Примеры