Blob, SUB_TYPE et Delphi

Version imprimable

23/01/2010, 10h59
castorcharly

Blob, SUB_TYPE et Delphi

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

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

J'en ai extrait la requète:

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
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';

Citation:

Envoyé par qi130

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:

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