<<< 返回 access911.net 编程静态资料库索引页

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

 

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


专题地址:http://access911.net/fixhtm/72FAB21E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何得到表的所有键、键的类型、对应的字段名?《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://access911.net/fixhtm/72FAB21E11DC.htm

 


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

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

2017年2月22日生成静态资料