Changer le nom d'un champ d'une table à partir du composant ttable

Question

Salut

j'aimerai savoir s'il est possible de changer le nom d'une colonne d'une table en passant par le composant ttable. Ca n'est pas possible en sql avec un base access et apparemment on peut le faire ainsi avec VB, alors je me suis dis qu'il y avait peut être l'équivalent en delphi.

Merci

jmp77 · Answer

Hello,

Essaye ca :
Avec 0 le premier champ de la base.
Table.Fields.Fields[0].Name := 'Ton nom';

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

cs_oluha · Answer

salut

Ca semble être ce qu'il me faut mais ca n'a pas l'air de fonctionner... :(
Pdt l'execution je n'ai pas d'erreur mais quand j'ouvre ma base access après le traitement mon champ n'a pas changé de nom.
Voici mon bout de code :


TDest.open;
TDest.edit;
TDest.fields.Fields[4].Name := 'nomprenom';
TDest.post;

jmp77 · Answer

Désole ce n'est pas name mais FieldName qu'il faut utiliser.

TDest.open;
TDest.edit;
TDest.fields.Fields[4].FieldName := 'nomprenom';
TDest.post;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

cs_oluha · Answer

Je viens de voir qu'on pouvait avoir :

TDest.fields.Fields[4].FieldName

J'essaye donc de changer le nom de mon champ avec cette instruction mais je n'arrive pas à l'utiliser, soit il me met 'impossible d'effectuer cette opération sur un ensemble de données fermées', soit 'impossible d'effectuer cette opération sur un ensemble de données ouvertes' :(

Quelqu'un sait-il comment faire ?

jmp77 · Answer

Si tu veux que le nom de ton champ soit uniquement changer à l'affichage tu peux utiliser la propriété DisplayLabel. Regarde dans l'aide :

Le code suivant concatène un astérisque au libellé d'un champ lors de la saisie du contenu d'une colonne, et le supprime lorsqu'une autre colonne est sélectionnée. StarIsThere est un booléen qui prévient la suppression de caractères dans la colonne sélectionnée au départ (qui ne reçoit pas un événement OnColEnter).

var

  StarIsThere: Boolean;

procedure TForm1.DBGrid1ColEnter(Sender: TObject);

begin
  with DBGrid1.SelectedField do
    DisplayLabel := '* ' + DisplayLabel;
  StarIsThere = True;

end; 

procedure TForm1.DBGrid1ColExit(Sender: TObject);

var
  TheLabel: string;
begin
  if StarIsThere then
  begin
    with DBGrid1.SelectedField do
    begin
      TheLabel := DisplayLabel;
      Delete(TheLabel, 1, 2);
      DisplayLabel := TheLabel;
    end;
  end;

end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

cs_oluha · Answer

En fait je n'utilise pas de dbgrid pour afficher ma base, je l'ouvre directement avec access et c'est à se niveau là que j'aimerai bien que mon champ ait changé de nom.
J'ai quand même essayé le displaylabel mais rien n'a changé quand j'ouvre ma base dans access.
Je crois que ca n'est pas forcément possible de changer le nom d'un champ d'une base access.
Tant pis et merci quand même de ton aide ! :)

jmp77 · Answer

Ouais ca doit etre possible mais avec un composant additionnel. 
Je me souviens avoir utiliser fut un temps un composant TRestructure pour les bases de données mais il était payant si ma mémoire était bonne.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

cs_oluha · Answer

J'ai regardé sur google, il semblerait que ce composant ne fonctionne qu'avec paradox et dbase de toutes facons...

J'aurai bien aimé trouver une solution mais c'est pas trop grave si je ne peux pas changer le nom de mon champ.

Merci pour l'aide :)

jmp77 · Answer

Mais prenons le problème à l'envers. 

Pourquoi souhaites tu changer le nom de ce champ en execution?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

cs_oluha · Answer

En fait j'ai en entrée plusieurs tables que je souhaite entre autre fusionner. Je fais donc tout un tas de traitements pour déterminer la structure de ces tables afin de trouver les champs qui sont en commun dans toutes les tables. 
Dans certaines tables il y a des champs civ, nom et prénom et dans d'autres ces infos sont regroupées dans un champ unique. Du coup de concatene ces champs quand ils sont séparés et je supprime les colonnes civ et prénom. 
Je souhaiterai donc pouvoir renommer ma colonne nom en nomprenom. 
j'avais pensé supprimer la colonne et en recréer une avec le nom que je veux mais ca me l'ajouterai à la fin de la table. Or quand la personne va ouvrir le fichier sous access après mes traitements dessus, elle ne vas pas forcement aimer que nomprenom se trouve après l'adresse, le cp et la ville...
De plus les fichiers pouvant être très gros, j'essaye de ne pas perdre trop de temps dans le traitement.

jmp77 · Answer

Daccord je comprends mieux ton problème. Et effectivement a part récréer une nouvelle base et recopier les différentes données dedans je ne vois pas comment faire!!!!

Désolé de ne pouvoir te depanner.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

Changer le nom d'un champ d'une table à partir du composant ttable

11 réponses

Votre réponse

Discussions similaires