Discussion :

[LuckyLuke56]

Salut les delphistes,
Sous Delphi 4, comment puis-je faire passer la taille d'un champ de 30 à 50 caractères ?

Merci

[Aka Guymelef]

Bonjour.

Votre question porte-t-elle, sur augmenter la taille d'un champ au niveau de la base de donnée ou bien augmenter la taille d'un champ dans un DataSet ?

[Fxg]

Bonjour,

En utilisant le module base de données. si tu utilises une base Paradox.

[LuckyLuke56]

Oui, au niveau de la base de donnée. C’est bien augmenter physiquement la taille d’un champ d’une table de 30 caractères à 50 caractères mais je ne peux pas le faire par la base de données mais bien par programmation.

[Aka Guymelef]

Dans ce cas tu dois trouver l'instruction SQL permettant de faire ça (selon ton SGBD), sûrement à coups de ALTER TABLE. Puis tu fais exécuter cette requête par ton programme comme s'il s'agissait d'une requête d'insertion par exemple.

[anapurna]

salut

il faut utiliser les instructions sql

Code :

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

alter table

pour ma part je préfère recréer un champ a coté avec le nouveau type

Code :

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

alter table MATABLE add TMPCHPS Varchar(50)

faire un update du nouveau champs avec la valeur de l'ancien champs

Code :

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

update  MATABLE set TMPCHPS =  OLDCHPS

effacer l'ancien champs et renommer le nouveau champs avec le nom de l'ancien dans les fait on fera un truc du genre :

Code :

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

1
2
3
4
5
 
  alter table MATABLE drop OLDCHPS 
  alter table MATABLE add OLDCHPS Varchar(50)
  update  MATABLE set OLDCHPS = TMPCHPS
  alter table MATABLE drop TMPCHPS

@+ Phil

[LuckyLuke56]

Merci de cette idée, je n'y avais pas pensé.
Mais autre petit souci, comment renommer un champ sur une table Paradox à partir d’une instruction SQL lancée en Delphi.

Encore merci

[SergioMaster]

Créer un Objet TQuery
puis

Code :

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

1
2
3
4
5
6
7
8
 
Query.SQL.Clear;
Query.SQL.Add('alter table MATABLE add TMPCHPS Varchar(50)');
Query.ExecSQL;
Query.SQL.Clear;
Query.SQL.Add('update  MATABLE set TMPCHPS =  OLDCHPS');
Query.ExecSQL;
etc ....