IRepositoryScriptManager.Connection

Синтаксис

Connection: Object;

Connection: Object;

Описание

Свойство Connection определяет соединение с сервером БД в рамках которого осуществляется работа.

Комментарии

В качестве значения необходимо указывать соединение, реализуемое интерфейсом ISecurityConnection, либо IDalConnection.

Пример №1

Для выполнения примера предполагается наличие сервера Oracle с наименованием «Test». На сервере создана схема «TestSchema». В корневом каталоге диска «С» имеется файл «current.rm4», содержащий скрип для создания репозитория.

Добавьте ссылки на системные сборки: Dal, Fore, IO.

Sub UserProc;
Var
    Rsm: IRepositoryScriptManager;
    Driv: IDalDriver;
    ConDesc: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Con: IDalConnection;
Begin
    //Подключение к схеме на сервере Oracle
    Driv := New DalOrcl8Driver.Create As IDalDriver;
    ConDesc := Driv.CreateDescriptor;
    Params := ConDesc.Params;
    Params.Find("User Name").Value := "TestSchema";
    Params.Find("Password").Value := "TestSchema";
    Params.Find("Host BSTR").Value := "Test";
    Params.Find("Schema").Value := "TestSchema";
    Con := ConDesc.CreateConnection;
    //Настройки менеджера репозитория
    Rsm := New RepositoryScriptManager.Create;
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.ORCL9;
    Rsm.Operation := RepositoryOperationType.Create;
    Rsm.Repository := RepositoryType.Metabase;
    Rsm.LoadScript(New FileStream.Create("c:\Current.rm4", FileOpenMode.Read, FileShare.Exclusive));
    Rsm.Execute(Null);
End Sub UserProc;

Imports System.IO;
Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.KeFore;

Public Shared Sub Main(Params: StartParams);
Var
    Rsm: IRepositoryScriptManager = New RepositoryScriptManagerClass();
    Driv: IDalDriver = New DalOrcl8DriverClass();
    ConDesc: IDalConnectionDescriptor;
    DalParams: IDalConnectionDescriptorParams;
    Con: IDalConnection;
Begin
    //Подключение к схеме на сервере Oracle
    ConDesc := Driv.CreateDescriptor();
    DalParams := ConDesc.Params;
    DalParams.Find("User Name").Value := "TestSchema";
    DalParams.Find("Password").Value := "TestSchema";
    DalParams.Find("Host BSTR").Value := "Test";
    DalParams.Find("Schema").Value := "TestSchema";
    Con := ConDesc.CreateConnection();
    //Настройки менеджера репозитория
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.repwelknodritypORCL9;
    Rsm.Operation := RepositoryOperationType.repopetypCreate;
    Rsm.Repository := RepositoryType.reptypMetabase;
    Rsm.LoadScript(New FileStream("c:\current.rm4", FileMode.Open, FileAccess.Read));
    Rsm.Execute(Null);
End Sub;

После выполнения примера на сервере «Test» в схеме «TestSchema» будет создан новый репозиторий платформы.

Пример №2

Для выполнения примера предполагается наличие сервера Microsoft SQL Server с наименованием «Test». На сервере имеется база данных «TestSchema». В корневом каталоге диска «С» имеется файл «current.rm4», содержащий скрип для создания репозитория.

Добавьте ссылки на системные сборки: Dal, Fore, IO.

Sub UserProc;
Var
    Rsm: IRepositoryScriptManager;
    Driv: IDalDriver;
    ConDesc: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Con: IDalConnection;
Begin
    //Подключение к схеме на сервере Microsoft SQL Server
    Driv := New DalMsSql2012Driver.Create As IDalDriver;
    ConDesc := Driv.CreateDescriptor;
    Params := ConDesc.Params;
    Params.Find("User Name").Value := "TestSchema";
    Params.Find("Password").Value := "TestSchema";
    Params.Find("Host BSTR").Value := "Test";
    Params.Find("Database").Value := "TestSchema";
    Con := ConDesc.CreateConnection;
    //Настройки менеджера репозитория
    Rsm := New RepositoryScriptManager.Create;
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.MSSQL2008;
    Rsm.Operation := RepositoryOperationType.Create;
    Rsm.Repository := RepositoryType.Metabase;
    Rsm.Unicode := True;
    Rsm.LoadScript(New FileStream.Create("c:\current.rm4", FileOpenMode.Read, FileShare.Exclusive));
    Rsm.Execute(Null);
End Sub UserProc;

Imports System.IO;
Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.KeFore;

Public Shared Sub Main(Params: StartParams);
Var
    Rsm: IRepositoryScriptManager = New RepositoryScriptManagerClass();
    Driv: IDalDriver = New DalMsSql2012DriverClass();
    ConDesc: IDalConnectionDescriptor;
    DalParams: IDalConnectionDescriptorParams;
    Con: IDalConnection;
Begin
    //Подключение к схеме на сервере Microsoft SQL Server
    ConDesc := Driv.CreateDescriptor();
    DalParams := ConDesc.Params;
    DalParams.Find("User Name").Value := "TestSchema";
    DalParams.Find("Password").Value := "TestSchema";
    DalParams.Find("Host BSTR").Value := "Test";
    DalParams.Find("Database").Value := "TestSchema";
    Con := ConDesc.CreateConnection();
    //Настройки менеджера репозитория
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.repwelknodritypMSSQL2012;
    Rsm.Operation := RepositoryOperationType.repopetypCreate;
    Rsm.Repository := RepositoryType.reptypMetabase;
    Rsm.Unicode := True;
    Rsm.LoadScript(New FileStream("c:\current.rm4", FileMode.Open, FileAccess.Read));
    Rsm.Execute(Null);
End Sub;

После выполнения примера на сервере «Test» в схеме «TestSchema» будет создана юникод версия репозитория «Форсайт. Аналитическая платформа».

См. также:

IRepositoryScriptManager