' BeginCreateAutoIncrColumnVB Sub CreateAutoIncrColumn() Dim cnn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= c:\Program Files\" & _ "Microsoft Office\Office\Samples\Northwind.mdb;" Set cat.ActiveConnection = cnn With tbl .Name = "MyContacts" Set .ParentCatalog = cat ' Create fields and append them to the new Table object. .Columns.Append "ContactId", adInteger ' Make the ContactId column and auto incrementing column .Columns("ContactId").Properties("AutoIncrement") = True .Columns.Append "CustomerID", adVarWChar .Columns.Append "FirstName", adVarWChar .Columns.Append "LastName", adVarWChar .Columns.Append "Phone", adVarWChar, 20 .Columns.Append "Notes", adLongVarWChar End With cat.Tables.Append tbl Set cat = NothingEnd Sub ' EndCreateAutoIncrColumnVB
Sub CreateAutoIncrColumn() Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= c:\Program Files\" & _
"Microsoft Office\Office\Samples\Northwind.mdb;"
Set cat.ActiveConnection = cnn With tbl
.Name = "MyContacts"
Set .ParentCatalog = cat
' Create fields and append them to the new Table object.
.Columns.Append "ContactId", adInteger
' Make the ContactId column and auto incrementing column
.Columns("ContactId").Properties("AutoIncrement") = True
.Columns.Append "CustomerID", adVarWChar
.Columns.Append "FirstName", adVarWChar
.Columns.Append "LastName", adVarWChar
.Columns.Append "Phone", adVarWChar, 20
.Columns.Append "Notes", adLongVarWChar
End With cat.Tables.Append tbl Set cat = NothingEnd Sub
' EndCreateAutoIncrColumnVB