Discussion :

[dennler]

Bonjour,
Programmeur de loisirs en Delphi 7 j'ai du rajouter dans une table .dbf locale un champ supplémentaire.
Après quelques modifications et surtout l'adjonction d'un 7ième champ DataFiels au composant TTable (à l'aide de l'éditeur de collection FieldDefs à la conception), tout fonctionne correctement.
Sauf que j'aimerais bien pouvoir également exploiter avec ce même programme mes anciennes tables.
Au lancement de mon programme j'ai bien ajouté un test pour récupérer le nombre de champs et ainsi pouvoir charger l'une ou l'autre version de la table.
Mais après je suis dans l'impasse, comment faire ?
J'avais pensé neutraliser le champ ajouté (Table1.Fields[6].Visible:=False ou actualiser (Table1.Fields[6].Visible:=True mais les enregistrements sont alors invisibles pour les anciennes bases.
Ou y-a-t-il d'autres solutions ?.
Qui peut m'aider, d'avance merci.

[SergioMaster]

Bonjour,

l'adjonction d'un 7ième champ DataFields au composant TTable (à l'aide de l'éditeur de collection FieldDefs à la conception), tout fonctionne correctement.

Le problème est là .

J'avais pensé neutraliser le champ ajouté (Table1.Fields[6].Visible:=False ou actualiser (Table1.Fields[6].Visible:=True mais les enregistrements sont alors invisibles pour les anciennes bases.
Ou y-a-t-il d'autres solutions ?.

- l'inverse peut-être, rajouter un champ si "nouvelle base", mais c'est AMHA pas sur la propriété visible qu'il faut jouer

- ou ne pas déclarer de champs du tout

- ou encore passer par une Query au lieu d'une table
ancienne version SELECT COL1,COL2,COL3,COL4,COL5,NULL as COL6 FROM TABLE (à vérifier)
nouvelle version SELECT COL1,COL2,COL3,COL4,COL5,COL6 FROM TABLEainsi quelque soit la "base" il y aura toujours 6 colonnes donc "déclarables"

[anapurna]

salut

regarde par ici

[foetus]

- ou encore passer par une Query au lieu d'une table
ancienne version SELECT COL1,COL2,COL3,COL4,COL5,NULL as COL6 FROM TABLE (à vérifier)
nouvelle version SELECT COL1,COL2,COL3,COL4,COL5,COL6 FROM TABLEainsi quelque soit la "base" il y aura toujours 6 colonnes donc "déclarables"

Il y a plus simple et plus maintenable "SELECT COL1,COL2,COL3,COL4,COL5" + other_columns + " FROM TABLE"

Et lorsqu'on démarre l'application on détecte le nombre de colonnes (soit avec une propriété SQL soit en faisant une requête avec 6 champs)
Ceci pour configurer la chaîne other_columns qui est soit vide (5 champs) soit ",COL6"

Pour les moins il y a une concaténation à chaque requête

Édit : Après réflexion, c'est une fausse bonne idée parce que même si on peut faire 1 requête pour X versions, il faut quand même faire des traitements en plus lors de la lecture (pour récupérer les nouvelles valeurs)

[SergioMaster]

Bonjour,

pour les requêtes, j'expliquai juste le principe. Plutôt que de passer par la concaténation proposée par foetus je serait passé par 2 constantes contenant les deux SQL indiqués.
Bien évidemment au design les champs seront déclarés avec la seconde requête et non la première. L'objectif de cette solution était de garder, je vais dire en l'état, les déclarations de champs au design de façon à ne pas "perturber" toute l'application (après tout qu'est-ce qu'un TTable si ce n'est un TQuery moins spécialisé (en fait c'est même comme ça que fonctionne les composants BDE un TTable est transformé en une Query et des requêtes de mises à jour selon les options et les champs déclarés).
Dennler ne nous écrit pas s'il s'agit juste d'une lecture, ou d'un table en mise à jour (auquel cas il faudrait ajouter un TUpdateSQL rendant la chose un peu plus délicate.
Une autre solution m'est venue à l'esprit, intervenir sur la table elle-même. Si la colonne n'existe pas ( donc ancienne table) alors la créer et donc avoir la nouvelle structure. "une colonne vide, ça mange pas de pain"

[dennler]

Bonjour,
J'ai résolu mon problème, lors du test du nombre de champs, j'ai tout simplement rajouté le champ manquant.
Merci pou tout