Discussion :

[dale_coop]

Bonjour,

J'essaie de récupérer la valeur par défaut d'un champ d'une table, sous Delphi XE8, avec une base de données Access MDB.
J'utilise un TFDMetaInfoQuery pour déterminer les champs de ma table, les types de champs de ma table.
Mais impossible de trouver la valeur par défaut de mes champs (pour ceux qui en ont une).

Quelqu'un a t-il la solution ?

++
Dale

[gaby277]

Bonjour,
Une solution pas glorieuse : ajouter un enregistrement avec tous les champs sauf ceux par défaut et regarder ce qu'il y a dedans tout simplement.

[dale_coop]

Merci gaby277 pour ta proposition, comme tu dis, c'est pas très glorieux. Et ça va prendre un temps fou (j'ai une centaine de tables, dizaines de champs par table, à vérifier).

[gaby277]

Bonjour,
Je n'ai que XE Starter (donc sans composants de base de données) donc je ne peux pas te répondre. Par contre dans ma collection de code Ado (trouvé il y a bien longtemps sur internet je ne sais pas ou) j'ai un bout de code ou il est question de valeur par défaut.

Je te le mets a tout hasard en partant du principe que tu es coincé et que tu dois probablement pouvoir utiliser Ado avec les bibliothèques de type (ce que je fais avec XE starter) sous XE8
donc soit écrire un peu de code Ado (bien sur ça ne sera pas homogene avec le reste de l'appli) ou peut etre regarder si tu n'aurais pas la meme chose avec tes composants sait-on jamais

Le code concerne la création de champs ce qui n'est pas ton probleme l'exemple écrit une valeur par défaut mais la propriété doit sans doute pouvoir être lue
la valeur par défaut est la Properties['Default'].Value := 'http://www.borland.com/delphi';

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
    MColumn4 := CoColumn.Create;
    with MColumn4 do
        begin
        ParentCatalog := Catalog;
        Name := 'Column4';
        Type_ := adLongVarWChar;
        Properties['Default'].Value := 'http://www.borland.com/delphi';
    procedure CreateAndAppendNewColumn;
    // Modifying column properties is so problematic that usually you're better
    // of deleting the old column and appending a new one to a table's
    // existing Columns collection.
    begin
    MColumn7 := CoColumn.Create;
    with MColumn7 do
        begin
        ParentCatalog := Catalog;
        Name := 'Column7';
        Type_ := adDouble;
        // A bug in ADO 2.5 means that the Default property value will not be
        // accepted and no error will be given. This bug is not in 2.1 or 2.6.
        Properties['Default'].Value := 0;
        end;
    MTable.Columns.Append(MColumn7, Unassigned, Unassigned);
    end;

Bon courage