IPrimaryPostgresSPLD.Database

Синтаксис Fore

Database: String;

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

Database: String;

Описание

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

Пример Fore

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

Sub UserProc;
Var
    MbMan: IMetabaseManager;
    MbDefs: IMetabaseDefinitions;
    MbDef: IMetabaseDefinition;
    PostgreSPLD: IPrimaryPostgresSPLD;
Begin
    MbMan := MetabaseManagerFactory.Active;
    MbDefs := MbMan.Definitions;
    MbDef := MbDefs.Add;
    MbDef.DriverId := "POSTGRES";
    MbDef.Id := "Test_PostgreSQL";
    MbDef.Name := "Test_PostgreSQL";
    MbDef.Authentication := AuthenticationMode.Password;
    MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
    PostgreSPLD := MbDef.LogonData As IPrimaryPostgresSPLD;
    PostgreSPLD.Server := "Server";
    PostgreSPLD.Database := "PPTest";
    PostgreSPLD.SupportBinaryProtocol := True;
    MbDef.Save;
End Sub UserProc;

После выполнения примера будет создано новое описание репозитория. Схема, к которой будет осуществляться подключение, расположена на сервере «Server», на котором используется СУБД PostgreSQL. При обращении к серверу будут использоваться запросы в бинарном виде.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MbManClass: MetabaseManagerFactoryClass = New MetabaseManagerFactoryClass();
    MbMan: MetabaseManager;
    MbDefs: IMetabaseDefinitions;
    MbDef: IMetabaseDefinition;
    PostgreSPLD: IPrimaryPostgresSPLD;
Begin
    MbMan := MbManClass.Active;
    MbDefs := MbMan.Definitions;
    MbDef := MbDefs.Add();
    MbDef.DriverId := "POSTGRES";
    MbDef.Id := "Test_PostgreSQL";
    MbDef.Name := "Test_PostgreSQL";
    MbDef.Authentication := AuthenticationMode.amPassword;
    MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
    PostgreSPLD := MbDef.LogonData As IPrimaryPostgresSPLD;
    PostgreSPLD.Server := "Server";
    PostgreSPLD.Database := "PPTest";
    PostgreSPLD.SupportBinaryProtocol := True;
    MbDef.Save();
End Sub;

См. также:

IPrimaryPostgresSPLD