IDWRepositoryDatabaseInstance.CurrentVersion

Синтаксис Fore

CurrentVersion: String;

Синтаксис Fore.NET

CurrentVersion: string;

Описание

Свойство CurrentVersion возвращает текущую версию репозитория расширенного хранилища данных.

Комментарии

Интерфейс IDWRepositoryDatabaseInstance устарел.

Объект «Репозиторий расширенного хранилища данных» используется только для поддержки ранних версий.

Если при проверке текущей версии репозитория произошла ошибка, то свойство генерирует исключительную ситуацию.

Пример Fore

Для выполнения примера предполагается наличие репозитория расширенного хранилища данных с идентификатором «DW_REPO».

Добавьте ссылки на системные сборки Db, Metabase.

Sub UserProc;
Var
    Mb: IMetabase;
    DwInst: IDWRepositoryDatabaseInstance;
    Repo, Db: IMetabaseObject;
    Res: String;
Begin
    Mb := MetabaseClass.Active;
    DwInst := mb.ItemById("DW_REPO").Open(Null) As IDWRepositoryDatabaseInstance;
    Repo := DwInst.Repository As IMetabaseObject;
    Debug.WriteLine("Наименование репозитория расширенного хранилища данных: " + Repo.Name);
    Db := DwInst.Database.Database As IMetabaseObject;
    Debug.WriteLine("Идентификатор используемой БД: " + Db.Id);
    Try
        Res := "Текущая версия репозитория: " + DwInst.CurrentVersion;
    Except On E: Exception Do
        Res := "Ошибка: " + E.Message;
    End Try;
    Debug.WriteLine(Res);
End Sub UserProc;

После выполнения примера в окно консоли будет выведено: текущая версия и наименование репозитория расширенного хранилища данных, идентификатор его БД.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Db;
…
Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    DwInst: IDWRepositoryDatabaseInstance;
    Repo, Db: IMetabaseObject;
    Res: String;
Begin
    Mb := Params.Metabase;
    DwInst := mb.ItemById["DW_REPO"].Open(Null) As IDWRepositoryDatabaseInstance;
    Repo := DwInst.Repository As IMetabaseObject;
    System.Diagnostics.Debug.WriteLine("Наименование репозитория расширенного хранилища данных: " + Repo.Name);
    Db := DwInst.Database.Database As IMetabaseObject;
    System.Diagnostics.Debug.WriteLine("Идентификатор используемой БД: " + Db.Id);
    Try
        Res := "Текущая версия репозитория: " + DwInst.CurrentVersion;
    Except On E: Exception Do
        Res := "Ошибка: " + E.Message;
    End Try;
    System.Diagnostics.Debug.WriteLine(Res);
End Sub;

См. также:

IDWRepositoryDatabaseInstance