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

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

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