Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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