Office中国论坛/Access中国论坛

标题: DAO与ADO创建索引时一些属性的区别及对应关系 [打印本页]

作者: tmtony 时间: 2002-6-16 17:48
标题: DAO与ADO创建索引时一些属性的区别及对应关系
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创建索引时一些属性的区别及对应关系

作者: zhuyiwen 时间: 2003-10-17 19:35
好！

作者: esmile 时间: 2003-10-17 21:50
提示: 作者被禁止或删除内容自动屏蔽

作者: ADAM 时间: 2003-10-17 21:54
這樣啊,我這里也有,貼一個吧:

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)