Path: String;
The Path property determines the path to database, or to directory with free Visual Foxpro tables.
Executing the example requires that the repository contains an ETL task with the Etl identifier, and the Visual Foxpro Data.dbc database in the disk C root directory. There is a Table_1 table in the database.
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 provider 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";
//Set up data provider
VfpConsumer := EtlConsumer.Consumer As IDtVfpConsumer;
VfpConsumer.Path := "c:\Data.dbc";
VfpConsumer.Table := "Table_1";
EtlConsumer.FillDefault;
//Save provider
EtlConsumer.Save;
//End of provider 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 consumer exports data to the Table_1 table, stored in the Foxpro database named Data.dbc.
See also: