access利用DAO設(shè)置數(shù)據(jù)表的主鍵

access數(shù)據(jù)表中，建議都設(shè)置一下主鍵。既可以保證實(shí)體的完整性，也加快數(shù)據(jù)庫的操作速度。

在access中，添加主鍵可以用點(diǎn)擊表格右鍵，主鍵，看到的鑰匙符號(hào)就是主鍵了。

也可以通過代碼動(dòng)態(tài)添加主鍵

On Error GoTo 出錯(cuò)
    Dim db As DAO.Database
    Dim tb As DAO.TableDef
    Dim ind As DAO.Index
    Set db = CurrentDb
    Set tb = db.TableDefs("員工信息")
    Set ind = tb.CreateIndex("主鍵")  '創(chuàng)建主鍵索引
    ind.Fields.Append ind.CreateField(txt1) '為索引添加主鍵字段
    ind.Primary = True
    tb.Indexes.Append ind  '將新建的索引添加到索引對(duì)象集合中去
    MsgBox "恭喜，主鍵創(chuàng)建成功！" 
    Exit Sub
出錯(cuò):
    MsgBox Err.Description, , "錯(cuò)誤"