SkipIdFormatCheck: Boolean;
SkipIdFormatCheck: boolean;
Свойство SkipIdFormatCheck определяет признак проверки идентификатора объекта на соответствие установленному формату идентификаторов.
По умолчанию свойству установлено значение False, при этом во время создания объекта идентификатор будет проверяться на соответствие установленному в свойстве IMetabasePolicy.ObjectsIdFormat формату идентификаторов.
Добавьте ссылки на системные сборки: Db, Metabase.
Sub UserProc;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
MObj: IMetabaseObject;
DB: IDatabase;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE;
CrInfo.Id := "NewBD";
CrInfo.Name := "Новая база данных";
CrInfo.Parent := MB.Root;
CrInfo.SkipIdFormatCheck := True;
MObj := MB.CreateObject(CrInfo).Edit;
DB := MObj As IDatabase;
DB.Authentication := AuthenticationMode.Password;
DB.DriverId := "ORCL";
DB.LogonData.ParamValue("SERVER") := "Test";
DB.LogonData.ParamValue("SCHEME") := "TestShema";
DB.UseMetabaseCredentials := True;
MObj.Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Db;
Public Sub Main(Params: StartParams);
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
MObj: IMetabaseObject;
DB: IDatabase;
Begin
MB := Params.Metabase;
CrInfo := MB.CreateCreateInfo();
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE As Int32;
CrInfo.Id := "NewBD";
CrInfo.Name := "Новая база данных";
CrInfo.Parent := MB.Root;
CrInfo.SkipIdFormatCheck := True;
MObj := MB.CreateObject(CrInfo).Edit();
DB := MObj As IDatabase;
DB.Authentication := AuthenticationMode.amPassword;
DB.DriverId := "ORCL";
DB.LogonData.ParamValue["SERVER"] := "Test";
DB.LogonData.ParamValue["SCHEME"] := "TestShema";
DB.UseMetabaseCredentials := True;
MObj.Save();
End Sub;
После выполнения примера в корневом каталоге репозитория будет создана новая база данных. Данные будут располагаться на сервере «Test» в схеме «TestShema». При подключении к БД используется парольная аутентификация. Логин и пароль берутся из учетных данных, указанных при входе в платформу. При создании базы данных проверка на соответствие идентификатора установленному формату идентификаторов осуществляться не будет.
См. также: