Append new columns to new table : Table Column Field « Access « VBA / Excel / Access / Word

Append new columns to new table

Sub CreateTable()
    Dim cat As New ADOX.Catalog
    Dim tbl As New ADOX.Table
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=C:\mydb.mdb;"
    ' Assign table name and some columns
    With tbl
       .Name = "NewTable"
       .Columns.Append "Column1", adVarWChar, 250
       .Columns.Append "Column2", adInteger
       .Columns.Append "Column3", adInteger
    End With
    cat.Tables.Append tbl

End Sub


Related examples in the same category

1.Delete a column
2.Adding a New Field to a Table
3.Removing a Field from a Table
4.Set column properties by using ADOX.Table
5.Listing Field Properties
6.Get field properties
7.Listing Tables and Their Fields Using the OpenSchema Method
8.Adding a New Money type Field to an Existing Table
9.Adding a Field with SQL command
10.Changing the Field Data Type with SQL command
11.Changing the Size of a Field with SQL command
12.Deleting a Field from a Table with SQL command
13.Setting a Default Value for a Field with SQL command
14.Changing the Start (Seed) Value of the AutoNumber Field with SQL command
15.Read record in recordset by referening the field name with '!'
16.Open a table and read data by column
17.Show field name, type and value data type
18.Read specific columns from Recordset
19.Checking for Existence of a Field