IRdsDictionary.Database

Синтаксис Fore

Database: IDatabase;

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

Database: Prognoz.Platform.Interop.Db.IDatabase;

Описание

Свойство Database определяет базу данных, в которой хранятся данные справочника.

Комментарии

Для справочников НСИ свойство вернёт значение Null, базу данных при этом можно получить в свойстве IRdsDatabase.Database.

Для табличных справочников НСИ, которые созданы в репозитории НСИ, свойство Database соответствует свойству IRdsDatabase.Database.

Для табличных справочников НСИ, которые созданы в произвольной папке репозитория, свойство может использоваться для указания базы данных, в которой будет создана таблица и храниться данные справочника. По умолчанию при создании табличного справочника НСИ используется база данных, которая для репозитория задана в качестве базы данных по умолчанию.

Пример Fore

Для выполнения примера в репозитории предполагается наличие табличного справочника НСИ с идентификатором «RDS_D».

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Получаем табличный справочник
    MObj := MB.ItemById("RDS_D").Bind;
    Dict := MObj As IRdsDictionary;
    // Выводим идентификатор драйвера базы данных
    Debug.WriteLine(Dict.Database.DriverId);
End Sub UserProc;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
Begin
    // Получаем текущий репозиторий
    MB := Params.Metabase;
    // Получаем табличный справочник
    MObj := MB.ItemById["RDS_D"].Bind();
    Dict := MObj As IRdsDictionary;
    // Выводим идентификатор драйвера базы данных
    System.Diagnostics.Debug.WriteLine(Dict.Database.DriverId);
End Sub;

См. также:

IRdsDictionary