【Access小品】获取数据表键列名称

todaynew

版友樟树：在对表的结构不知情的情况下，要用VBA获取表的主键字段（可能由多个字段组成），该怎么做？

该问题解法如下：

Public Function Keyname(tbname As String, ktype As Long) As String
'功能：获取数据表键列字段名称
'参数：tbname---表名；ktype---键类型（1为主键，2为外键，3为唯一键）
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim i As Long, j As Long
Set cnn = CurrentProject.Connection
Set cat.ActiveConnection = cnn
Set tbl = cat.Tables(tbname)
For i = 0 To tbl.Keys.Count - 1
   　 If tbl.Keys(i).Type = ktype Then
        　For j = 0 To tbl.Keys(i).Columns.Count - 1
            　Keyname = Keyname & tbl.Keys(i).Columns(j).Name & ";"
        　Next
   　 End If
Next
End Function

xuwenning

已收藏了
谢谢分享

yanwei82123300

已收藏了
谢谢分享

5988143

又有好作品收藏~

t小宝

谢谢分享，学习一下

apsfxc1

感谢分享，学习

leijiqiang

收拾一下

c101

谢谢分享

szyewj

搂主真牛！顶起来。

li08hua

不错呀！