Repository: RepositoryType;
Свойство Repository определяет тип репозитория, для которого необходимо произвести указанную операцию.
Для выполнения примера предполагается наличие сервера ORCL с наименованием «Test». На сервере в рамках схемы «TestSchema» создан репозиторий платформы. В корневом каталоге диска «С» имеются файлы «current.rm4» и «current_rds.rm4», содержащий скрип для создания и обновления репозитория и репозитория НСИ.
Sub Main;
Var
Rsm: IRepositoryScriptManager;
Driv: IDalDriver;
ConDesc: IDalConnectionDescriptor;
Params: IDalConnectionDescriptorParams;
Con: IDalConnection;
Begin
//Подключение к схеме на сервере ORCL
Driv := New DalOrclDriver.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("Scheme").Value := "TestSchema";
Con := ConDesc.CreateConnection;
//Настройки менеджера репозитория
Rsm := New RepositoryScriptManager.Create;
Rsm.Connection := Con;
Rsm.Driver := RepositoryDriverType.ORCL;
Rsm.Operation := RepositoryOperationType.Update;
//Обновление репозитория
Rsm.Repository := RepositoryType.Metabase;
Rsm.LoadScript(New FileStream.Create("c:\current.rm4", FileOpenMode.Read, FileShare.Exclusive));
Rsm.Execute(Null);
//Обновление репозитория НСИ
Rsm.Repository := RepositoryType.RDS;
Rsm.LoadScript(New FileStream.Create("c:\current_rds.rm4", FileOpenMode.Read, FileShare.Exclusive));
Rsm.Execute(Null);
End Sub Main;
После выполнения примера будет осуществлено обновление версии репозитория и репозитория НСИ в соответствии с содержимым файлов «current.rm4» и «current_rds.rm4».
См. также: