设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 1765|回复: 3

[ADO/DAO] DAO与ADO创建索引时一些属性的区别及对应关系

[复制链接]

点击这里给我发消息

发表于 2002-6-16 17:48:00 | 显示全部楼层 |阅读模式
DAO与ADO创建索引时一些属性的区别及对应关系
DAO:
Required = True
IgnoreNulls = True Or False
ADO:
adIndexNullsDisallow 空值是不允许的, 索引项没有加上

DAO:
Required = False
IgnoreNulls = True
ADO:
adIndexNullsIgnore 索引字段允许空值, 但索引项不添加

DAO:
Required = False
IgnoreNulls = False
ADO:
adIndexNullsAllow 索引字段允许空值,添加索引项
(DAO_链接表_ODBC-相关文章技巧链接):
Access DAO与ADO创建索引时一些属性的区别及对应关系

点击这里给我发消息

发表于 2003-10-17 19:35:00 | 显示全部楼层
好!
发表于 2003-10-17 21:50:00 | 显示全部楼层
难得出现有DAO与ADO有针对性比较的贴子,希望多多……
发表于 2003-10-17 21:54:00 | 显示全部楼层
這樣啊,我這里也有,貼一個吧:

DAO
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("rimaryKey")
    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

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 = "rovider=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 = "rimaryKey"
    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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-10-16 02:28 , Processed in 0.122425 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表