IMetabase.CreateCreateInfo

Syntax

CreateCreateInfo: IMetabaseObjectCreateInfo;

CreateCreateInfo(): Prognoz.Platform.Interop.Metabase.IMetabaseObjectCreateInfo;

Description

The CreateCreateInfo method creates information for a new object.

A new object is created using the CreateObject method.

Example

Add a link to the Metabase system assembly.

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 := "New database";
    CrInfo.Parent := MB.Root;
    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;
Public Shared 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 Integer;
    CrInfo.Id := "NewBD";
    CrInfo.Name := "New database";
    CrInfo.Parent := MB.Root;
    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;

After executing the example a new database is created in the repository root. The data are placed on the Test server in the TestShema scheme. The password authentication is used when connecting to the database. Login and password are taken from the credentials, specified on login to the platform.

See also:

IMetabase