Database: String;
Свойство Database определяет идентификатор базы данных на сервере PostgreSQL, в которой создан репозиторий.
Для выполнения примера добавьте ссылку на системную сборку 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;
PostgreSPLD.CaseSensitive := True;
// Сохраним изменения
MbDef.Save;
End Sub UserProc;
В результате выполнения примера будет создано новое описание репозитория. Схема, к которой будет осуществляться подключение, расположена на сервере «Server», на котором используется СУБД PostgreSQL. При обращении к серверу будут использоваться запросы в бинарном виде с учётом регистра наименования репозитория, идентификаторов объектов и их полей в СУБД.
См. также: