Discussion :

[castorcharly]

Bonjour,

Je bute sur le moyen de retrouver, sous Delphi, de quel SUB_TYPE est un champ BLOB.
Je m'explique :
J'ai une base constituée de table et des tables constituée de champ dont certain sont des blobs.
Ces blobs, ont été créé avec un sous type spécifique, (0..6).
Comment, pour un champ blob donné, extraire ce sous type des tables system ?

J'ai bien trouvé des tables system qui "parlent" de SUB_TYPE, mais je ne trouve pas le moyen d'arriver à ce que je cherche.
Le fait que je sois sous Delphi, ne dois pas être bloquant, car je pense qu'il s'agit d'une sql à faire sur les tables systems, mais par contre j'espère que cette requête sera la même que ce soit sur FB 1, 1.5 et 2.x

merci pour votre aide

[qi130]

Les composants UIB permettent de récupérer les metadatas.

J'en ai extrait la requète:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
QRYTableFields =
    'select ' +
    '  FLD.RDB$FIELD_TYPE' +
    ', FLD.RDB$FIELD_SCALE' +
    ', FLD.RDB$FIELD_LENGTH' +
    ', FLD.RDB$FIELD_PRECISION' +
    ', FLD.RDB$CHARACTER_SET_ID' +   // CHARACTER SET
    ', RFR.RDB$COLLATION_ID' +
    ', COL.RDB$COLLATION_NAME' +     // COLLATE
    ', FLD.RDB$FIELD_SUB_TYPE' +
    ', RFR.RDB$DEFAULT_SOURCE' +     // DEFAULT
    ', RFR.RDB$FIELD_NAME' +
    ', FLD.RDB$SEGMENT_LENGTH' +
    ', RFR.RDB$NULL_FLAG' +          // NULLABLE
    ', FLD.RDB$VALIDATION_SOURCE' +  // CHECK
    ', FLD.RDB$DIMENSIONS'+
    ', RFR.RDB$FIELD_SOURCE' +
    ', FLD.RDB$COMPUTED_SOURCE' +    // COMPUTED BY
    ', RDB$VALIDATION_SOURCE ' +
    'from ' +
    '  RDB$RELATIONS REL ' +
    'join RDB$RELATION_FIELDS RFR on (RFR.RDB$RELATION_NAME = REL.RDB$RELATION_NAME) ' +
    'join RDB$FIELDS FLD on (RFR.RDB$FIELD_SOURCE = FLD.RDB$FIELD_NAME) ' +
    'left outer join RDB$COLLATIONS COL on (COL.RDB$COLLATION_ID = RFR.RDB$COLLATION_ID and COL.RDB$CHARACTER_SET_ID = FLD.RDB$CHARACTER_SET_ID) ' +
    'where ' +
    '  (REL.RDB$RELATION_NAME = ?) ' +
    'order by ' +
    '  RFR.RDB$FIELD_POSITION, RFR.RDB$FIELD_NAME';

[castorcharly]

Les composants UIB permettent de récupérer les metadatas.

/....

Merci, en faisant le ménage à partir de ce que tu m'as passé, j'ai pu trouver la solution à mon problème. Mais j'avoue que je n'aurais pas été capable de pondre un tel truc avec ce que je sais sur les tables systems.

Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
select
 
 FLD.RDB$FIELD_SUB_TYPE , RFR.RDB$FIELD_NAME
 from RDB$RELATIONS REL
 
 join RDB$RELATION_FIELDS RFR on (RFR.RDB$RELATION_NAME = REL.RDB$RELATION_NAME)
 join RDB$FIELDS FLD on (RFR.RDB$FIELD_SOURCE = FLD.RDB$FIELD_NAME)
 
 where (REL.RDB$RELATION_NAME = 'Ma table') and (RFR.RDB$FIELD_NAME = 'Mon blob')

Merci encore