ISecurityConnection.Discover

Синтаксис Fore

Discover(SystemDictionary: DalSystemDictionary; Filter: String): IDalCursor;

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

Discover(Prognoz.Platform.Interop.Dal.DalSystemDictionary,System.String): Prognoz.Platform.Interop.Dal.IDalCursor;

Параметры

SystemDictionary. Тип курсора, полученного в результате выполнения SQL-запроса к БД;

Filter. Фильтр, который применяется к курсорам, полученным в результате выполнения SQL-запроса к БД.

Описание

Метод Discover возвращает соответствующий курсор в зависимости от параметра SystemDictionary.

Пример Fore

Для выполнения примера подключите к модулю системные сборки Metabase и Dal.

Sub Macro;

Var
    MB: IMetabase;
    Driv: IDalDriver;
    Connect: IDalConnection;
    Connect2: IDalConnection2;
    ConnectDesc: IDalConnectionDescriptor;
    ConnectDescParams: IDalConnectionDescriptorParams;
    cursor: IDalCursor;
Begin
    MB := MetabaseClass.Active;
    Driv := New DalOrclDriver.Create;
    ConnectDesc := Driv.CreateDescriptor;
    ConnectDescParams := ConnectDesc.Params;
    ConnectDescParams.Find("User Name").Value := "P5repository";
    ConnectDescParams.Find("Password").Value := "P5repository";
    ConnectDescParams.Find("Host BSTR").Value := "test";
    ConnectDescParams.Find("Scheme").Value := "P5repository";
    Connect := ConnectDesc.CreateConnection;
    Connect2 := Connect As IDalConnection2;
    cursor:= Connect2.Discover(DalSystemDictionary.Tables, "");
    debug.WriteLine(Connect2.Type);
    Connect:=Connect2.Clone(DalConnectionType.Async);
End Sub Macro;

После выполнения примера в окно консоли будет выведена системная информация о таблицах, хранящихся в указанной схеме.

Пример Fore.NET

Процедура Macro является точкой входа для .NET-сборки.

Imports Prognoz.Platform.Interop.Metabase;

Imports Prognoz.Platform.Interop.Dal;

...

Public Shared Sub Macro(Params: StartParams);
Var
    MB: IMetabase;
    Driv: IDalDriver;
    Connect: IDalConnection;
    Connect2: IDalConnection2;
    TabCur: IDalTables;
    ConnectDesc: IDalConnectionDescriptor;
    ConnectDescParams: IDalConnectionDescriptorParams;
    cursor: IDalCursor;
Begin
    MB := Params.Metabase;
    Driv := New DalOrclDriver.Create();
    ConnectDesc := Driv.CreateDescriptor();
    ConnectDescParams := ConnectDesc.Params;
    ConnectDescParams.Find("User Name").Value := "P5repository";
    ConnectDescParams.Find("Password").Value := "P5repository";
    ConnectDescParams.Find("Host BSTR").Value := "test";
    ConnectDescParams.Find("Scheme").Value := "P5repository";
    Connect := ConnectDesc.CreateConnection();
    Connect2 := Connect As IDalConnection2;
    cursor:= Connect2.Discover(DalSystemDictionary.dsdTables, "");
    System.Diagnostics.Debug.WriteLine(Connect2.Type);
    Connect:=Connect2.Clone(DalConnectionType.dctAsync);
End Sub;

См. также:

ISecurityConnection