Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间:2010-06-08 00:00:00
作 者:todaynew   ID:10802  城市:武汉
摘 要:键列名称
正 文:

版友樟树:在对表的结构不知情的情况下,要用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


附   件:

点击下载此附件


演   示:

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助