Rennomer ou supprimer une colonne Access depuis le code

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

Code:

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