Access 使用DAO及ADO創(chuàng)建數(shù)據(jù)表主鍵PrimaryKey的不同方法對(duì)比

Access 使用DAO及ADO創(chuàng)建數(shù)據(jù)表主鍵PrimaryKey的不同方法對(duì)比,去來(lái)貼一個(gè)吧

一、Access 使用DAO創(chuàng)建Access 數(shù)據(jù)表主鍵PrimaryKey的代碼如下：

Sub DAOCreatePrimaryKey()
    Dim db      As DAO.Database
    Dim tbl     As DAO.TableDef
    Dim idx     As DAO.Index
    
    'Open the database
    Set db = DBEngine.OpenDatabase("C:\nwind.mdb")
    
    Set tbl = db.TableDefs("Contacts")
    
    ' Create the Primary Key and append table columns to it.
    Set idx = tbl.CreateIndex("PrimaryKey")
    idx.Primary = True
    idx.Fields.Append idx.CreateField("ContactId")
    
    ' Append the Index object to the Indexes collection of the TableDef.
    tbl.Indexes.Append idx
    db.Close
End Sub

二、Access 使用Ado創(chuàng)建Access 數(shù)據(jù)表主鍵PrimaryKey的代碼如下：

ADOX

Sub ADOCreatePrimaryKey()
    Dim cat     As New ADOX.Catalog
    Dim tbl     As ADOX.Table
    Dim pk      As New ADOX.Key
    
    ' Open the catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\nwind.mdb;"
    Set tbl = cat.Tables("Contacts")
        
    ' Create the Primary Key and append table columns to it.
    pk.Name = "PrimaryKey"
    pk.Type = adKeyPrimary
    pk.Columns.Append "ContactId"
    
    ' Append the Key object to the Keys collection of Table
    tbl.Keys.Append pk
    
    Set cat = Nothing
    
End Sub