Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Delete a column

Sub ChangeColumn()     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;"     Set tbl = cat.Tables("Newtable")     tbl.Columns("Column2").Name = "Column2X"     tbl.Columns.Delete "Column3" End Sub