Discussion :

[qi130]

Bonsoir,

Encore une incompréhension avec les compos UIB

Ainsi,

Code :

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

myMetaData.FindTableName(dbObjet).AsDDL

me fournit : (dbObjet vaut 'RDB$INDICES', la base est employes de FB2.1)

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
CREATE TABLE RDB$INDICES (
   RDB$INDEX_NAME CHAR(10) CHARACTER SET UNICODE_FSS,
   RDB$RELATION_NAME CHAR(10) CHARACTER SET UNICODE_FSS,
   RDB$INDEX_ID SMALLINT,
   RDB$UNIQUE_FLAG SMALLINT,
   RDB$DESCRIPTION BLOB SUB_TYPE 1 SEGMENT SIZE 80,
   RDB$SEGMENT_COUNT SMALLINT,
   RDB$INDEX_INACTIVE SMALLINT,
   RDB$INDEX_TYPE SMALLINT,
   RDB$FOREIGN_KEY CHAR(10) CHARACTER SET UNICODE_FSS,
   RDB$SYSTEM_FLAG SMALLINT,
   RDB$EXPRESSION_BLR BLOB SUB_TYPE 2 SEGMENT SIZE 80,
   RDB$EXPRESSION_SOURCE BLOB SUB_TYPE 1 SEGMENT SIZE 80,
   RDB$STATISTICS DOUBLE PRECISION
);
CREATE INDEX RDB$INDEX_31 ON RDB$INDICES (RDB$RELATION_NAME);
CREATE INDEX RDB$INDEX_41 ON RDB$INDICES (RDB$FOREIGN_KEY);
CREATE UNIQUE INDEX RDB$INDEX_5 ON RDB$INDICES (RDB$INDEX_NAME);
CREATE TRIGGER RDB$TRIGGER_19 FOR RDB$INDICES
BEFORE DELETE POSITION 0
;
CREATE TRIGGER RDB$TRIGGER_20 FOR RDB$INDICES
BEFORE UPDATE POSITION 0
;

Je m'interroge sur

RDB$INDEX_NAME CHAR(10)

alors que la doc (IB 6 ) mentionne CHAR(31).

C'est dû au charset ? Ai-je loupé qq chose ?

[makowski]

tu utilises bien la dernière version des UIB ?

svn co https://uib.svn.sourceforge.net/svnroot/uib uib

[qi130]

Alors, je viens d'installer la dernière version des uib, et la curiosité persiste.

Au passage, j'ai rencontré 1 pb...

---------------------------Erreur---------------------------
Dynamic SQL Error

SQL error code = -204

Ambiguous field name between table RDB$FIELDS and table RDB$COLLATIONS

RDB$CHARACTER_SET_ID

Undefined name

Error Code: 249

Résolue par

Code :

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

1
2
3
4
5
6
7
QRYSysDomains =
    'select ' +
    '  RDB$FIELD_TYPE' +
    ', RDB$FIELD_SCALE' +
    ', RDB$FIELD_LENGTH' +
    ', RDB$FIELD_PRECISION' +
    ', FLD.RDB$CHARACTER_SET_ID' +      // CHARACTER SET

à la ligne 1094 de uibmetadata...

[makowski]

et bien contacte les responsables des UIB et remonte leur le(s) bugs

[Cl@udius]

Salut

C'est dû au charset ? Ai-je loupé qq chose ?

Après avoir jeté un coup d'oeil, a priori oui.

Unit UIBMetaData.pas à la ligne 4251

Code Delphi :

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

1
2
3
4
5
6
7
procedure TMetaTableField.SaveToDDLNode(Stream: TStringStream; options: TDDLOptions);
// ...
          uftChar..uftCstring:
            begin
              Stream.WriteString(Format('%s(%d)',
                [FieldTypes[FFieldType], FLength {div FBytesPerCharacter}]));
            end;

[qi130]

et bien contacte les responsables des UIB et remonte leur le(s) bugs

J'ai créé une entrée sur le tracker.

A suivre donc.

[makowski]

hum, un petit message dans le forum ne fera pas de mal je pense
http://www.progdigy.com/forums/viewf...ceb269e3d2c459

[qi130]

hum, un petit message dans le forum ne fera pas de mal je pense
http://www.progdigy.com/forums/viewf...ceb269e3d2c459

Un lecteur a t-il un compte sur le forum en question afin de relayer l'info ?

[qi130]

La solidarité n'ayant pas joué, j'ai fini par créer un compte sur Progdigy afin de signaler ces pb.
L'auteur a été réactif et a corrigé ces 2 bugs.

==> Une nouvelle version a télécharger