作者: skylark 时间: 2006-3-19 19:08 标题: 回复:(zxzx2733)如何用ADO语句在代码中删除一个表的... 需引用: Microsoft ActiveX Data Objects 2.8 Library
Microsoft ADO Ext. 2.8 for DDL And Security
'ADOX
Sub ADOCreateAutoIncrColumn()
Dim cat As New ADOX.Catalog
Dim col As New ADOX.Column
' Open the catalog
cat.ActiveConnection = "rovider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\nwind.mdb;"
' Create the new auto increment column
With col
.Name = "ContactId"
.Type = adInteger
Set .ParentCatalog = cat
.Properties("AutoIncrement") = True
End With
' Append the column to the table
cat.Tables("Table1").Columns.Append col
cat.Tables("Table1").Columns.Delete "ID"
Set cat = Nothing