IDtFieldDefinition.Precision

Копировать пример

Sub UserProc;
Var
    FProvider: IDtOleDbProvider;
    Prov: IDtProvider;
    FConsumer: IDtOleDbConsumer;
    ConStr: String;
    Fields, Fields_Cons: IDtFieldDefinitions;
    Field_Prov: IDtFieldDefinition;
    i: Integer;
Begin
    // Определяем источник и его поля
    FProvider := New DtOleDbProvider.Create;
    ConStr := "Provider=MSDAORA.1;Password=test;User ID=test;Data Source=test;Persist Security Info=True";
    FProvider.ConnectionString := ConStr;
    FProvider.Query := "select * from TableProvider";
    FProvider.Open;
    Fields := FProvider.Fields;
    Prov := FProvider As IDtProvider;
    // Создаем приёмник, создаем его поля
    FConsumer := New DtOleDbConsumer.Create;
    FConsumer.ConnectionString := ConStr;
    // Новая таблица:
    FConsumer.Table := "New_TAB_CONS";
    Fields_Cons := FConsumer.Fields;
    Fields_Cons.Clear;
    For i:=0 To Fields.Count-1 Do
        Field_Prov := Fields.Item(i);
        Fields_Cons.Add;
        Fields_Cons.Item(i).Name := Field_Prov.Name;
        Fields_Cons.Item(i).DataType := Field_Prov.DataType;
        Fields_Cons.Item(i).Size := Field_Prov.Size;
        Fields_Cons.Item(i).Precision := Field_Prov.Precision;
    End For;
    // Запускаем экспорт
    FConsumer.PutProvider(Prov);
    Prov.Close;
End Sub UserProc;