ImexMode: DtExcelImexMode;
Свойство ImexMode определяет режим, в котором будет производиться импорт из столбцов, содержащих данных разных типов.
Для выполнения примера предполагается наличие в репозитории задачи ETL с идентификатором "Etl" и в корневом каталоге диска С файла Excel с наименованием "Data.xls".
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
EtlTask: IEtlTask;
EtlProvider: IEtlPlainDataProvider;
ExcelProvider: IDtExcelProvider;
WxProvider: IWxRectangle;
WxETLProvider: IWxETLObject;
Begin
MB := MetabaseClass.Active;
//Поиск задачи ETL. Объект репозитория с идентификатором "ETL"
MObj := MB.ItemById("Etl").Edit;
EtlTask := MObj As IEtlTask;
//Начало создания источника
//Создание объекта "Импорт из Excel"
EtlProvider := EtlTask.Create(EtlObjectType.PlainDataExcelProvider) As IEtlPlainDataProvider;
EtlProvider := EtlProvider.Edit;
EtlProvider.Id := "Excel_Provider";
EtlProvider.Name := "Импорт из Excel";
EtlProvider.Description := "Импорт из Excel";
//Настройка источника данных
ExcelProvider := EtlProvider.Provider As IDtExcelProvider;
ExcelProvider.DriverVersion := "Excel 8.0";
ExcelProvider.File := "c:\Data.xls";
ExcelProvider.HasHeader := True;
ExcelProvider.ImexMode := DtExcelImexMode.Import;
ExcelProvider.Query := "Select * From [Лист1$]";
EtlProvider.FillDefault;
//Сохраняем источник
EtlProvider.Save;
//Конец создания источника
//Начало создания визуального объекта
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;
//Конец создания визуального объекта
//Сохранение задачи Etl
MObj.Save;
End Sub Main;
После выполнения примера в задаче ETL будет создан объект «Импорт из Excel». Данный источник будет импортировать все данные из файла Excel "Data.xls". Наименование листа - "Лист1". При подключении будут использоваться драйвера версии Excel 8.0. Из первой строки файла будут импортироваться наименования полей. Поля, содержащие данные разных типов, будут импортироваться полностью.
См. также: