IDtVfpConsumer.Table

Syntax

Table: String

Description

The Table property determines the name of the table, in which data is exported.

Example

Executing the example requires that the repository contains an ETL task with the Etl identifier, and the Visual Foxpro Data.dbf table in the disk C root directory.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

EtlTask: IEtlTask;

EtlConsumer: IEtlPlainDataConsumer;

VfpConsumer: IDtVfpConsumer;

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 the source creation

//The Export To Visual Foxpro object creation

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

EtlConsumer := EtlConsumer.Edit;

EtlConsumer.Id := "Vfp_Consumer";

EtlConsumer.Name := "Export to Visual Foxpro";

EtlConsumer.Description := "Export to Visual Foxpro";

//Data source setting

VfpConsumer := EtlConsumer.Consumer As IDtVfpConsumer;

VfpConsumer.Path := "c:\";

VfpConsumer.Table := "Data";

EtlConsumer.FillDefault;

//Saving the source

EtlConsumer.Save;

//End of source 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 the Visual Foxpro object is created in the ETL task. The source exports data in the Foxpro table named Data.