IDtAccessConsumer.File

Syntax

File: String;

Description

The File property determines the path and the name of the Access database file, in the table of which data is exported.

Example

Executing the example requires that the repository contains an ETL task with the Etl identifier, and an Access database file named db.mdb in the disk C root directory. There is a table named Table_1 in the database.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

EtlTask: IEtlTask;

EtlConsumer: IEtlPlainDataConsumer;

AccessConsumer: IDtAccessConsumer;

WxConsumer: IWxRectangle;

WxETLConsumer: IWxETLObject;

Begin

MB := MetabaseClass.Active;

//ETL task search. Repository object with the ETL identifier

MObj := MB.ItemById("Etl").Edit;

EtlTask := MObj As IEtlTask;

//Start of consumer creation

//The Export To Access object creation

EtlConsumer := EtlTask.Create(EtlObjectType.PlainDataAccessConsumer) As IEtlPlainDataConsumer;

EtlConsumer := EtlConsumer.Edit;

EtlConsumer.Id := "Access_Consumer";

EtlConsumer.Name := "Export to Access";

EtlConsumer.Description := "Export to Access";

//Set up data consumer

AccessConsumer := EtlConsumer.Consumer As IDtAccessConsumer;

AccessConsumer.File := "c:\db.mdb";

AccessConsumer.Table := "Table_1";

EtlConsumer.FillDefault;

//Save consumer

EtlConsumer.Save;

//End of consumer creation

//Start of visual object creation

WxConsumer := EtlTask.Workspace.CreateRectangle;

WxETLConsumer := New WxETLObject.Create;

WxETLConsumer.ETLObject := EtlConsumer;

WxConsumer.Style.TextPosition := WxTextPosition.Bottom;

WxConsumer.Style.PictureMarginTop := -10;

WxConsumer.PinPosition := New GxPointF.Create(50, 50);

WxConsumer.Extension := WxETLConsumer As IWxShapeExtension;

//End of visual object creation

//Save Etl task

MObj.Save;

End Sub Main;

After executing the example in the ETL task the Export to Access object is created. The consumer exports data into the Table_1 table, that is stored in the Access db.mdb database.