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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| Sub crea_table()
'Nécessite d 'activer les références:
'Microsoft ActiveX Data Objects x.x Library
'et
'Microsoft ADO Ext. x.x for DDL and Security
Dim Cnn As ADODB.Connection
Dim Cat As ADOX.Catalog
Dim MaTableIndex As ADOX.Table
Dim NomTable As String
Dim Fichier As String
On Error GoTo Fin
Fichier = "C:\reptest\MaNouvelleBase.accdb"
Set Cnn = New ADODB.Connection
Cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='" & Fichier & "';"
Set Cat = New ADOX.Catalog
Set Cat.ActiveConnection = Cnn
'Nom de la table qui va être ajoutée
NomTable = "MaTable"
Set MaTableIndex = CreateObject("ADOX.Table")
'Définit les champs pour la nouvelle table
With MaTableIndex
.Name = NomTable
With .Columns
.Append "ChampDate", adDate, 50
.Append "ChampNombre", adInteger, 50
.Append "ChampTexte", adWChar, 80
End With
End With
'Création table
Cat.Tables.Append MaTableIndex
Set Cat = Nothing
Fin:
Cnn.Close
Set Cat = Nothing
Set MaTableIndex = Nothing
Set Cnn = Nothing
End Sub |
Partager