用ADO代碼創(chuàng)建Access數(shù)據(jù)庫(kù)錶的自動(dòng)編碼字段

Access的自動(dòng)編碼字段非常特殊 ，用Create Table的Sql 語(yǔ)句 增加這種字段不太方便。

這時(shí)就需要使用adox這箇對(duì)象來(lái)創(chuàng)建自動(dòng)編碼字段：

生成數(shù)據(jù)錶，添加字段，其中ID字段爲(wèi)自動(dòng)編碼字段，數(shù)值自動(dòng)增加.

下麵是創(chuàng)建自動(dòng)編碼字段的通用函數(shù)

Sub gf_CreateAutoIncrementField()   '創(chuàng)建自動(dòng)編碼字段--Access交流網(wǎng)       Dim cn as object
      Dim col as object
      Dim cat as object
      Dim strTblName as string
      set cn=CreateObject("ADODB.Connection")
      set col=CreateObject("ADOX.Column")
      set cat=CreateObject("ADOX.Catalog")
      set strTblName=CreateObject("ADOX.Table")
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Access交流網(wǎng)\Access數(shù)據(jù)庫(kù)\Tmtony.mdb"
    Set cat.ActiveConnection = cn
 
    strTblName.Name = "tbl測(cè)試錶"
    col.ParentCatalog = cat
    
    col.Type = 3
    col.Name = "Id"
    col.Properties("AutoIncrement") = true
    strTblName.Columns.Append col
    strTblName.Columns.Append "DataField",130,20
    cat.Tables.Append strTblName
 
    Set col = Nothing
    Set cat = Nothing
    cn.Close
    Set cn = Nothing
End Sub

調(diào)用方法：
call gf_CreateAutoIncrementField

重點(diǎn)：

這裡主要是使用瞭 字段的AutoIncrement 屬性

設(shè)置 Properties("AutoIncrement") = true