office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access利用DAO设置数据表的主键

2020-06-28 08:00:00
tmtony8
原创
440

access数据表中,建议都设置一下主键。既可以保证实体的完整性,也加快数据库的操作速度。

在access中,添加主键可以用点击表格右键,主键,看到的钥匙符号就是主键了。

也可以通过代码动态添加主键

On Error GoTo 出错
    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("主键")  '创建主键索引
    ind.Fields.Append ind.CreateField(txt1) '为索引添加主键字段
    ind.Primary = True
    tb.Indexes.Append ind  '将新建的索引添加到索引对象集合中去
    MsgBox "恭喜,主键创建成功!" 
    Exit Sub
出错:
    MsgBox Err.Description, , "错误"


    分享