Discussion :

[BasicZX81]

Bonjour à tous,
Tout est dans le titre, j'aimerais rennomer ou supprimer une colonne Access.
Je dois le faire absolument depuis le code.

Pour la petite histoire cette colonne me pose un problème a cause de son nom qui est un mot clé réservé a Access (PRIVILEGES) et le pire c'est que je l'ai déjà renommé une fois en mettant '_' devant (_PRIVILEGES). Je me croyais tranquille mais cette fois c'est la synthaxe SQL (INSERT INTO....) qui plante a cause du signe '_' . Alors voilà j'ai tout faux sur ce coup là.
Maintenant je pourrait renommer une nouvelle fois ma colonne depuis Microsoft Access mais mon programme étant déployé avec des bases de données remplis et utilisées je voudrais upgrader ma base depuis le code (j'ai déjà des procédures qui utilisent ADOX pour cela mais je ne sais faire que rajouter des colonnes je ne sait pas les renommer ou les supprimer).

Y a t'il moyen de le faire en ADOX ou directement via une commande SQL ?

merci beaucoup pour votre aide.

[BasicZX81]

Décidément, il suffit de demander pour trouver aussitôt après sur le Net.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Function RenameColumn(ByVal StrgDB_Name As String, StrgTableName As String, _
				StrgOldColumnName As String, StrgNewColumnName As String) As Boolean
   On Error GoTo Err_RenameColumn
 
   'Create a Catalog object
   Dim Cat As ADOX.Catalog
   Set Cat = New ADOX.Catalog
   Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & StrgDB_Name
 
   'Create a table object
   Dim Tbl As ADOX.Table
   Set Tbl = New ADOX.Table
   Set Tbl = Cat.Tables(StrgTableName)
   Tbl.Columns(StrgOldColumnName).Name = StrgNewColumnName
 
   'Return that the function was Successfull.
   RenameColumn = True
 
Exit_RenameColumn:
   'Clean up
   Set Cat = Nothing
   Set Tbl = Nothing
   Exit Function
 
Err_RenameColumn:
	MsgBox "There was an Error while Renaming the Table Column [" & StrgOldColumnName & "] to [" & _
	StrgNewColumnName & "] within the Table named [" & StrgTableName & "] which is located in the " & _
	StrgDB_Name & " Database.", vbCritical, "Column Rename Error"
	GoTo Exit_RenameColumn
End Function