File: String;
The File property determines the name of the Access database file from the table of which data is imported.
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 root of the C disk. There is a table named Table_1 in the database.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
EtlTask: IEtlTask;
EtlProvider: IEtlPlainDataProvider;
AccessProvider: IDtAccessProvider;
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 data provider creation
// Create the "Import from Access" object
EtlProvider := EtlTask.Create(EtlObjectType.PlainDataAccessProvider) As IEtlPlainDataProvider;
EtlProvider := EtlProvider.Edit;
EtlProvider.Id := "Access_Provider";
EtlProvider.Name := "Import from Access";
EtlProvider.Description := "Import from Access";
// Set up data provider
AccessProvider := EtlProvider.Provider As IDtAccessProvider;
AccessProvider.File := "c:\db.mdb";
AccessProvider.Query := "Select * from Table_1";
EtlProvider.FillDefault;
// Save data provider
EtlProvider.Save;
// End of data 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 UserProc;
After executing the example the Import from Access object is created in the ETL task . The data provider is set up to work with the specified table in the Microsoft Access database.
See also: