ICubeMetaLoaderBindings.Add

Syntax

Description

The Add method adds a new formula to the collection.

Example

Executing the example requires a time series database with the OBJ_RUBRICATOR identifier and the time series export file C:\result_exp.txt.

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

Obj: IMetabaseObject;

ObjDesc: IMetabaseObjectDescriptor;

Loader: ICubeMetaLoader;

Bindings: ICubeMetaLoaderBindings;

Binding: ICubeMetaLoaderBinding;

TextProvider: IDtTextProvider;

Begin

MB := MetabaseClass.Active;

CrInfo := Mb.CreateCreateInfo;

CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_CUBEMETALOADER;

CrInfo.Parent := Mb.ItemById("OBJ_RUBRICATOR").Bind;

CrInfo.Id := Mb.GenerateId("CUBEMETALOADER", CrInfo.Parent.Key);

CrInfo.Permanent := False;

ObjDesc := Mb.CreateObject(CrInfo);

Obj := ObjDesc.Edit;

Loader := Obj As ICubeMetaLoader;

// Data source for import from text format

TextProvider := New DtTextProvider.Create;

TextProvider.File := "C:\result_exp.txt";

TextProvider.FormatType := DtTextFormatType.Delimited;

TextProvider.DelimitedColumnDelimiter := ";";

TextProvider.DelimitedTextQualifier := """";

TextProvider.Encoding := "WIN";

TextProvider.RangeHasHeader := True;

TextProvider.Open;

Loader.Data := (TextProvider As IDatasetDataProvider);

Loader.ImportObjectKey := Obj.Key;

Loader.NewRevisionName := Metaimport;

Loader.LoadType := CubeMetaLoaderLoadType.CreateAndUpdate;

Loader.Rubricator := Mb.ItemById("OBJ_RUBRICATOR").Bind As IRubricator;

Bindings := Loader.Bindings;

Binding := Bindings.Add;

Binding.BindingType := CubeMetaLoaderBindingType.Unit;

Binding.Field := "Unit_Key";

Binding.FieldType := CubeMetaLoaderFieldType.Name;

End Sub Main;

After executing the example an object of time series import from the C:\result_exp.txt file is created. A binding of measurement units import is set up in this object.