IDtDbaseProvider.Query

Syntax

Query: String;

Description

The Query property determines query to the tables stored at the specified path. Imported data is selected by means of the query.

Example

Executing the example requires that the repository contains an ETL task with the Etl identifier, and the Base_1.Dbf database file in the disk C root directory.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

EtlTask: IEtlTask;

EtlProvider: IEtlPlainDataProvider;

DbaseProvider: IDtDbaseProvider;

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 provider creation

//The Import From Dbase object creation

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

EtlProvider := EtlProvider.Edit;

EtlProvider.Id := "Dbase_Provider";

EtlProvider.Name := "Import from Dbase";

EtlProvider.Description := "Import from Dbase";

//Set up data provider

DbaseProvider := EtlProvider.Provider As IDtDbaseProvider;

DbaseProvider.Path := "c:\";

DbaseProvider.DriverVersion := "dBASE IV";

DbaseProvider.Query := "Select * from Base_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 Dbase object is created in the ETL task. The provider imports data from Base_1.Dbf database file. During connection the dBASE IV drivers are used.