IDtVfpProvider.Path

Syntax

Path: String;

Description

The Path property determines the path to database, or to directory with free Visual Foxpro tables.

Example

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;

EtlProvider: IEtlPlainDataProvider;

VfpProvider: IDtVfpProvider;

WxProvider: IWxRectangle;

WxETLProvider: 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 Import From Visual Foxpro object creation

EtlProvider := EtlTask.Create(EtlObjectType.PlainDataVfpProvider) As IEtlPlainDataProvider;

EtlProvider := EtlProvider.Edit;

EtlProvider.Id := "Vfp_Provider";

EtlProvider.Name := quot;Import from Visual Foxproquot;;

EtlProvider.Description := "Import from Visual Foxpro";

//Set up data provider

VfpProvider := EtlProvider.Provider As IDtVfpProvider;

VfpProvider.Path := "c:\Data.dbc";

VfpProvider.Query := "Select * From Table_1";

EtlProvider.FillDefault;

//Save provider

EtlProvider.Save;

//End of provider creation

//Start of visual object creation

WxProvider := EtlTask.Workspace.CreateRectangle;

WxETLProvider := New WxETLObject.Create;

WxETLProvider.ETLObject := EtlProvider;

WxProvider.Style.TextPosition := WxTextPosition.Bottom;

WxProvider.Style.PictureMarginTop := -10;

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

WxProvider.Extension := WxETLProvider As IWxShapeExtension;

//End of visual object creation

//Save Etl task

MObj.Save;

End Sub Main;

After executing the example the Import from Visual Foxpro object is created in the ETL task. The provider imports data from the Table_1 table stored in the Foxpro database named Data.dbc.