IDatasetDataProvider.FieldDefs

Синтаксис Fore

Синтаксис Fore.NET

FieldDefs: Prognoz.Platform.Interop.Db.IDatasetModelFields;

Описание

Свойство FieldDefs возвращает структуру полей источника данных.

Пример Fore

Для выполнения примера в корневом каталоге диска «С» предполагается наличие файла Microsoft Excel «Data.xls».

Sub UserProc;
Var
    ExcelProvider: IDtExcelProvider;
    Provider: IDatasetDataProvider;
    FieldDefs: IDatasetModelFields;
    FieldDef: IDatasetModelField;
    i: Integer;
Begin
    ExcelProvider := New DtExcelProvider.Create;
    ExcelProvider.DriverVersion := "Excel 8.0";
    ExcelProvider.File := "c:\Data.xls";
    ExcelProvider.HasHeader := True;
    ExcelProvider.ImexMode := DtExcelImexMode.Import;
    ExcelProvider.Query := "Select * From [Лист1$]";
    Provider := ExcelProvider As IDatasetDataProvider;
    FieldDefs := Provider.FieldDefs;
    For i := 0 To FieldDefs.Count - 1 Do
        FieldDef := FieldDefs.Item(i);
        Debug.WriteLine(FieldDef.Id + " " + FieldDef.DataType.ToString);
    End For;
End Sub UserProc;

При выполнения примера будет создан новый объект, осуществляющий импорт из файлов Microsoft Excel. Данный объект будет представлен как источник данных, из которого могут быть загружены показатели в базу данных временных рядов. Информация о полях источника данных будет выведена в консоль среды разработки.

Пример Fore.NET

Для выполнения примера в корневом каталоге диска «С» предполагается наличие файла Microsoft Excel «Data.xls».

Imports System.Diagnostics;
Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Dt;

Private Sub UserProc();
Var
    ExcelProvider: IDtExcelProvider = New DtExcelProvider();
    Provider: IDatasetDataProvider;
    FieldDefs: IDatasetModelFields;
    FieldDef: IDatasetModelField;
    i: Integer;
Begin
    ExcelProvider.DriverVersion := "Excel 8.0";
    ExcelProvider.File := "c:\1.xls";
    ExcelProvider.HasHeader := True;
    ExcelProvider.ImexMode := DtExcelImexMode.eimImport;
    ExcelProvider.Query := "Select * From [Лист1$]";
    Provider := ExcelProvider As IDatasetDataProvider;
    FieldDefs := Provider.FieldDefs;
    For i := 0 To FieldDefs.Count - 1 Do
        FieldDef := FieldDefs.Item[i];
        Debug.WriteLine(FieldDef.Id + " " + FieldDef.DataType.ToString());
    End For;
End Sub;

См. также:

IDatasetDataProvider