AutoIncrement Column 范例

AutoIncrement Column 范例

如下代碼說明如何在 Jet 數(shù)據(jù)庫中創(chuàng)建 AutoIncrement 列。

Sub CreateAutoIncrColumn()

      Dim cat     As New ADOX.Catalog

      Dim tbl     As New ADOX.Table

      Dim col     As New ADOX.Column

   ' 打開目錄

   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=C:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   With tbl

      .Name = "MyContacts"

      Set .ParentCatalog = cat

      ' 創(chuàng)建字段并將它們追加到新的 Table 對象中。

      .Columns.Append "ContactId", adInteger

      ' 產(chǎn)生 ContactId 列和自動遞加列

      .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 = Nothing

End Sub