Database: String;
Database: String;
Свойство Database определяет идентификатор базы данных на сервере Teradata, в которой создан репозиторий.
Для выполнения примера подключите системную сборку Metabase.
Sub UserProc;
Var
MbMan: IMetabaseManager;
MbDefs: IMetabaseDefinitions;
MbDef: IMetabaseDefinition;
TrdtSPLD: IPrimaryTeradataSPLD;
Begin
MbMan := MetabaseManagerFactory.Active;
MbDefs := MbMan.Definitions;
MbDef := MbDefs.Add;
MbDef.DriverId := "TRDT";
MbDef.Id := "Test_TR";
MbDef.Name := "Test_TR";
MbDef.Authentication := AuthenticationMode.Password;
MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
TrdtSPLD := MbDef.LogonData As IPrimaryTeradataSPLD;
TrdtSPLD.Server := "TR_Server";
TrdtSPLD.Database := "PPTest";
MbDef.Save;
End Sub UserProc;
После выполнения примера будет создано новое описание репозитория. Схема, к которой будет осуществляться подключение, расположена на сервере «TR_Server», на котором используется СУБД Teradata.
Указанная процедура является точкой входа для .NET-сборки.
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub Main(Params: StartParams);
Var
MbManClass: MetabaseManagerFactoryClass = New MetabaseManagerFactoryClass();
MbMan: MetabaseManager;
MbDefs: IMetabaseDefinitions;
MbDef: IMetabaseDefinition;
TrdtSPLD: IPrimaryTeradataSPLD;
Begin
MbMan := MbManClass.Active;
MbDefs := MbMan.Definitions;
MbDef := MbDefs.Add();
MbDef.DriverId := "TRDT";
MbDef.Id := "Test_TR";
MbDef.Name := "Test_TR";
MbDef.Authentication := AuthenticationMode.amPassword;
MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
TrdtSPLD := MbDef.LogonData As IPrimaryTeradataSPLD;
TrdtSPLD.Server := "TR_Server";
TrdtSPLD.Database := "PPTest";
MbDef.Save();
End Sub;
После выполнения примера будет создано новое описание репозитория. Схема, к которой будет осуществляться подключение, расположена на сервере «TR_Server», на котором используется СУБД Teradata.
См. также: