Discussion :

[richardkiii]

Bonjour,
Je n'arrive pas à trouver la syntaxe d'une requête SQL sous Access 2000 qui modifierait simultanément le type de plusieurs champs de la même table.
ALTER TABLE maTable ALTER COLUMN champ1 varchar(5) champ2 varchar(10) champ3... ;
ne fonctionne pas...(erreur de syntaxe)
J'ai essayé avec une virgule, entre parenthèses, etc.
Peut-être n'est-ce tout simplement pas possible.
Quelqu'un a t'il une idée?
Merci d'avance,
Richard.

[marot_r]

Question idiote :-) pourquoi n'utilise tu pas l'éditeur de table ? Tu es sur une table Oracle ou MS-SQL ? As-tu à faire cela souvant ?

A+

[richardkiii]

Euh, ni l'un ni l'autre. Je me souviens avoir écris
"...à trouver la syntaxe d'une requête SQL sous Access 2000 ".
Je suis DANS Access 2000.
En fait, c'est une opération d'allègement de table importée. L'opération d'importation est automatique, mais la table d'origine a des champs de 255 caractères, alors que les données représentent au maximum 6 caractères pour le premier champ, 40 pour le second, etc.

[ft035580]

Salut,

N'as tu pas voulu écrire:

Code :

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

ALTER TABLE maTable ADD COLUMN champ1 varchar(5)

[richardkiii]

Hello,
non j'ai bien écrit ALTER COLUMN, qui, à mon avis, est spécifique à Access. En fait, on voit toujours l'exemple avec un seul champ, mais jamais plusieurs. Pour d'autres SGBDR, on voit aussi

Code :

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

ALTER TABLE maTable MODIFY COLUMN champ1 text(25)

mais cette clause-là n'est pas comprise par Access.
Donc je cherche...

[marot_r]

Avec un peu de VBA peux simplement itere sur la collection fields de l'objet tabledef correspondant à ta table et changer la Size du champs.

Ca marche tout seul :-).

Tu veux le code ?

A+

[richardkiii]

Je me doute qu'en VBA, on sait faire, mais je suis un peu tâtonnant sur le sujet. Si tu as un code exemple à me montrer, je suis preneur!
Merci d'avance.

[marot_r]

Attention, code en DAO 3.6, vérifie que tu as une ref dessus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
private sub ChangerTailleChamp()
  dim db as database:set db=currentdb
  dim t as tabledef
  dim f as field
  set t=db.tabledefs("maTable")
  for each f in t.fields
    f.size=maNouvelleTaille
  next f
  db.close: set db=nothing
end sub

Il se peut que le set t=db.tabledefs("maTable") marche pas dircetement, dams ce cas il fait faire

Code :

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

1
2
3
4
5
6
 
for each t in db.tabledefs
  if t.name="maTable" then
     ....
  end if
next t

A+

[richardkiii]

Désolé de ne pas avoir pu répondre plus tot, pb de connexion. Je vais essayer ça au plus tôt.
(avoue que le SQL pourait tout d emême faire ça!)
Merci pour ton aide.
Bye.

[marot_r]

Je pense qu'on peut le faire en SQL avec ALTER TABLE

mais je ne sais pas comment.


A+

[richardkiii]

Certainement parce que je ne sais pas comment implémenter cette routine...
Je me sers facilement des événements associés au formulaire, mais ce code doit être placé où et comment? Dans un module, dans le code VBA d'un formulaire, il est exécuté à partir de quoi...