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 :
Il se peut qu'il y en ai d'autres. A voir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cordialement,
Partager