如何得到表的所有键、键的类型、对应的字段名？

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-2-19 浏览人次：2555

专题地址：http://www.access911.net/index.asp?u1=a&u2=72FAB21E11DC 如果需要更详细的评论或说明，请点击该地址。

简述：如何得到表的所有键、键的类型、对应的字段名？《ADO/DAO》

问题：

如何得到一个表的所有键？以及键的类型？
如何得到表的所有键、键的类型、对应的字段名？
如何获得某类型“键”所对应的字段名？

回答：

Public Function displaykey()

Dim kyForeign As New ADOX.Key
Dim cat As New ADOX.Catalog

    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind.mdb;"
    cat.ActiveConnection = CurrentProject.Connection

    For Each kyForeign In cat.Tables("ColorSet").Keys
        Debug.Print kyForeign.Name & kyForeign.Type
    Next
End Function

常量值说明
adK.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=72FAB21E11DC

上一篇：如何用图片链接作为提交按钮

下一篇：如何得知当前机器的ado版本号？

2010年7月2日生成静态资料