office交流网--QQ交流群号

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

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

access用DAO创建索引

2020-12-09 08:00:00
tmtony8
原创
3547
access作为关系数据库,索引有很大的用处。 索引是对数据库表中一列或多列的值进行排序的一种存储结构。
索引提供指向存储在表的指定列中的数据值的指针,然后根据您指定的排序顺序对这些指针排序。数据库使用索引以找到特定值,然后顺指针找到包含该值的行。这样可以使对应于表的SQL语句执行得更快,可快速访问数据库表中的特定信息。


在access中用DAO创建索引:

 On Error GoTo Err_索引
    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("姓名")
    tb.Indexes.Append ind
    MsgBox "索引创建成功!"    Exit Sub
Err_索引:
    MsgBox Err.Description, , "出错"

    分享