IDtDbaseProvider.DriverVersion

Синтаксис

DriverVersion: String;

Описание

Свойство DriverVersion определяет версию драйвера, используемого при подключении.

В качестве значений данного свойства доступны следующие значения:

dBASE III;
dBASE IV;
dBASE 5.0;
VFPOLEDB.1.

Возможны ситуации неудачного импорта с помощью всех доступных драйверов. Это связано с тем, что файл, имеющий расширение *.dbf, был создан с использованием версии драйвера Visual FoxPro. Для импорта данных в таком случае используйте IDtVfpProvider.

Важно. Для импорта данных с помощью драйвера VFPOLEDB.1 используйте 32-битную версию продукта «Форсайт. Аналитическая платформа», так как данный драйвер не поддерживает работу с 64-битными приложениями.

Пример

Для выполнения примера предполагается наличие в репозитории задачи ETL с идентификатором "Etl" и в корневом каталоге диска С таблицы "Base_1.Dbf".

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

EtlTask: IEtlTask;

EtlProvider: IEtlPlainDataProvider;

DbaseProvider: IDtDbaseProvider;

WxProvider: IWxRectangle;

WxETLProvider: IWxETLObject;

Begin

MB := MetabaseClass.Active;

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

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

EtlTask := MObj As IEtlTask;

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

//Создание объекта "Импорт из Dbase"

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

EtlProvider := EtlProvider.Edit;

EtlProvider.Id := "Dbase_Provider";

EtlProvider.Name := "Импорт из Dbase";

EtlProvider.Description := "Импорт из Dbase";

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

DbaseProvider := EtlProvider.Provider As IDtDbaseProvider;

DbaseProvider.Path := "c:\";

DbaseProvider.DriverVersion := "dBASE IV";

DbaseProvider.Query := "Select * from Base_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 будет создан объект «Импорт из Dbase». Данный источник будет импортировать данные из таблицы "Base_1.Dbf". При подключении будут использоваться драйвера dBASE IV.

См. также:

IDtDbaseProvider