Modifier le nom d'une colonneRésolu

Question

bonjour,

j'essaie de modifier le nom d'une des colonne de ma bdd access. pour cela, j'utilise l'instruction "execute" d'une connection adodb.
le compilateur me signale une erreur de syntaxe dans l'instruction "alter talbe ..." que je n'arrive pas a corriger.

pourriez-vous me dire ce qui cloche dans le code ci-dessous ?
j'ai laisse une 2eme commande "alter table" qui est celle generee automatiquement par mysql pour modifier le nom d'une colonne mais qui ne fonction guere mieux.

ancien_nom = "Colonne 1"
nouveau_nom = "col1"
connex.ConnectionString = chaine_connexion
connex.Open
connex.Execute "ALTER TABLE actions RENAME COLUMN [" & ancien_nom & "] TO [" & nouveau_nom & "];"
'commande tiree de mysql :
'connex.Execute "ALTER TABLE actions.[" & ancien_nom & "] CHANGE [" & ancien_nom & "] [" & nouveau_nom & "] DOUBLE;"
connex.Close

merci a vous,

alonsyl

cs_CanisLupus · Accepted Answer

Salut,

A ma connaissance, Access n'accepte pas "ALTER TABLE".

Une solution est d'ajouter une colonne avec le nouveau nom, transf&#233;rer les donn&#233;es puis effacer l'ancienne colonne.

C'est plus compliqu&#233; mais je ne vois rien d'autre pour Access.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

alonsyl · Answer

bonjour canislupus,

si je suis ta technique, il me sermble que la colonne que je vais dupliquer puis recree sera situee en derniere position de ma table.

est-il possible de la repositionner a son emplacement d'origine ?

merci a toi,

alonsyl

cs_CanisLupus · Answer

Ton probl&#232;me m'a int&#233;ress&#233; car &#231;a pourrait me servir et j'ai trouv&#233; une autre soluce en ADO mais qui ne fonctionne qu'&#224; partir du provider "Provider=Microsoft.Jet.OLEDB.4.0" :

' Ajoute dans les r&#233;f&#233;rences du projet : Microsoft ADO Ext. 2.x for DDL and Security
' et, &#224; la place de "connex.execute ..." place &#231;a :

Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim champ As ADOX.Column


  Set cat.ActiveConnection = connex
  Set tbl = cat.Tables(TaTable)
  Set champ = tbl.Columns(ancien_nom)
  champ.Name = nouveau_nom
  
  ' pour lib&#233;rer les ressources
  Set cat = Nothing
  Set tbl = Nothing
  Set champ = Nothing

Chez moi &#231;a marche avec une base access 97. J'esp&#232;re que &#231;a fonctionnera pour toi.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Modifier le nom d'une colonne

3 réponses

Discussions similaires