Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
Query: String;
Свойство Query определяет запрос к листам файла Excel. С помощью данного запроса будут отбираться импортируемые данные.
В качестве значения свойства можно указать:
SQL-запрос, который будет использоваться для отбора данных. Пример: Select * From [Лист1$].
Наименование листа. Пример: Лист1.
Примечание. При указании наименования листа не допускается использование символов «[»,«]» и «*».
Для выполнения примера предполагается наличие в репозитории задачи ETL с идентификатором «ETL» и в корневом каталоге диска С файла Excel с наименованием «Data.xls».
Sub UserProc;
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 UserProc;
После выполнения примера в задаче ETL будет создан объект «Импорт из Excel». Этот источник будет импортировать все данные из файла Excel «Data.xls». Наименование листа - «Лист1». При подключении будут использоваться драйвера версии Excel 8.0. Из первой строки файла будут импортироваться наименования полей. Поля, содержащие данные разных типов, будут импортироваться полностью.
См. также: