Ajouter une colonne dans un fichier dbf à partir d'ACCESS
Comment ajouter une colonne dans un fichier dbf à partir d'ACCESS ?
La demande d'un collègue de travail m'a bien fait galérée mais après de nombreux essais de techniques différentes voici une solution :
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Sub AjouterChamp()
Dim cnn As New adodb.Connection
' Ouverture du catalogue
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & ";Extended Properties=dBase IV;"
cnn.Execute "SELECT *, 0 AS ID_nouveau INTO NouvelleTable FROM AncienneTable"
ici il faut faire une suppression de AncienneTable.dbf et renommer le NouvelleTable.dbf en AncienneTable.dbf
cnn.close
set cnn=nothing
End Sub |
Il se peut qu'il y en ai d'autres. A voir.
Cordialement,