IDtVfpConsumer.Path

Синтаксис

Path: String;

Описание

Свойство Path определяет путь к базе данных, либо каталогу со свободными таблицами Viasual Foxpro.

Пример

Для выполнения примера предполагается наличие в репозитории задачи ETL с идентификатором "Etl" и в корневом каталоге диска С базы данных Visual Foxpro "Data.dbc". В базе данных имеется таблица "Table_1".

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

EtlTask: IEtlTask;

EtlConsumer: IEtlPlainDataConsumer;

VfpConsumer: IDtVfpConsumer;

WxConsumer: IWxRectangle;

WxETLConsumer: IWxETLObject;

Begin

MB := MetabaseClass.Active;

//Поиск задачи ETL. Объект репозитория с идентификатором "ETL"

MObj := MB.ItemById("Etl").Edit;

EtlTask := MObj As IEtlTask;

//Начало создания источника

//Создание объекта "Экспорт в Visual Foxpor"

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

EtlConsumer := EtlConsumer.Edit;

EtlConsumer.Id := "Vfp_Consumer";

EtlConsumer.Name := "Экспорт в Visual Foxpor";

EtlConsumer.Description := "Экспорт в Visual Foxpor";

//Настройка источника данных

VfpConsumer := EtlConsumer.Consumer As IDtVfpConsumer;

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

VfpConsumer.Table := "Table_1";

EtlConsumer.FillDefault;

//Сохраняем источник

EtlConsumer.Save;

//Конец создания источника

//Начало создания визуального объекта

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;

//Конец создания визуального объекта

//Сохранение задачи Etl

MObj.Save;

End Sub Main;

После выполнения примера в задаче ETL будет создан объект «Экспорт в Visual Foxpro». Данный приемник будет экспортировать данные в таблицу "Table_1" хранящуюся в базе данных Foxpro с наименованием "Data.dbc".

См. также:

IDtVfpConsumer