【Access小品】获取数据表键列名称- Access 技术交流论坛- Access开发 ...企业库|免费b2b网站

【Access小品】获取数据表键列名称- Access 技术交流论坛- Access开发 ...

Rank: Rank:

本帖{zh1}由 todaynew 于 2010-6-7 22:15 编辑

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

该问题解法如下：

Public Function Keyname(tbname As String, ktype As Long) As String
'功能：获取数据表键列字段名称
'参数：tbname---表名；ktype---键类型（1为主键，2为外键，3为{wy}键）
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

郑重声明：资讯【【Access小品】获取数据表键列名称- Access 技术交流论坛- Access开发 ...】由发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权，请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。

—— 相关资讯 ——