Firedac et Firebird

Version imprimable

25/07/2014, 22h21
Papy214

Firedac et Firebird

Bonjour la foule

Question simple : Est-ce que quelqu'un aurait les règles de mapping (FormatOptions.MapRules) pour utiliser une base Firebird avec Firedac ?

Je galère avec ce truc comme c'est pas possible. Y'a toujours un type qui manque.:aie:

Merci d'avance
14/06/2017, 09h57
SergioMaster

Bonjour,

je sais, je déterre un vieux sujet que je n'avais pas vu (vacances de juillet).
Retrouvé par hasard à cause de cette discussion
j'ai un début de réponse, il faut aller fouiller dans les sources Firedac.Phys.IBMETA (la lecture de ce source est très enrichissante d'ailleurs) , function EncodeDataType pour avoir des éléments de réponse, chose qui n'est pas suffisant en soit car encore faut-il savoir à quoi correspondent les valeurs numériques des types de champs (obtenu de la table RDB$FIELD)

j’essaierai d'en faire un tableau

Voilà déjà ce que donne la génération automatique par Firedac.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
    object FDTable1TEST_TYPES_SMALLINT: TSmallintField
      FieldName = 'TEST_TYPES_SMALLINT'
      Origin = 'TEST_TYPES_SMALLINT'
    end
    object FDTable1TEST_TYPES_INTEGER: TIntegerField
      FieldName = 'TEST_TYPES_INTEGER'
      Origin = 'TEST_TYPES_INTEGER'
    end
    object FDTable1TEST_TYPES_BIGINT: TLargeintField
      FieldName = 'TEST_TYPES_BIGINT'
      Origin = 'TEST_TYPES_BIGINT'
    end
    object FDTable1TEST_TYPES_FLOAT: TSingleField
      FieldName = 'TEST_TYPES_FLOAT'
      Origin = 'TEST_TYPES_FLOAT'
    end
    object FDTable1TEST_TYPES_DOUBLE: TFloatField
      FieldName = 'TEST_TYPES_DOUBLE'
      Origin = 'TEST_TYPES_DOUBLE'
    end
    object FDTable1TEST_TYPES_NUMERIC12_2: TBCDField
      FieldName = 'TEST_TYPES_NUMERIC12_2'
      Origin = 'TEST_TYPES_NUMERIC12_2'
      Precision = 18
      Size = 2
    end
    object FDTable1TEST_TYPES_DECIMAL12_2: TBCDField
      FieldName = 'TEST_TYPES_DECIMAL12_2'
      Origin = 'TEST_TYPES_DECIMAL12_2'
      Precision = 18
      Size = 2
    end
    object FDTable1TEST_TYPES_DATE: TDateField
      FieldName = 'TEST_TYPES_DATE'
      Origin = 'TEST_TYPES_DATE'
    end
    object FDTable1TEST_TYPES_TIME: TTimeField
      FieldName = 'TEST_TYPES_TIME'
      Origin = 'TEST_TYPES_TIME'
    end
    object FDTable1TEST_TYPES_TIMESTAMP: TSQLTimeStampField
      FieldName = 'TEST_TYPES_TIMESTAMP'
      Origin = 'TEST_TYPES_TIMESTAMP'
    end
    object FDTable1TEST_TYPES_CHAR20: TStringField
      FieldName = 'TEST_TYPES_CHAR20'
      Origin = 'TEST_TYPES_CHAR20'
      FixedChar = True
    end
    object FDTable1TEST_TYPES_VARCHAR20: TStringField
      FieldName = 'TEST_TYPES_VARCHAR20'
      Origin = 'TEST_TYPES_VARCHAR20'
    end

14/06/2017, 17h24
SergioMaster

1 pièce(s) jointe(s)

voilà mon début de tableau
Pièce jointe 285631