获取Access所有链接表的名称
- 2003-09-21 05:29:00
- 竹笛-Office交流网 原创
- 4769
问题(网友:eio)
获取Access所有链接表的名称 ,最好不显示本地表的名称
解决办法(竹笛):
Function fGetLinkPath(strTable As String) As String Dim dbs As Database, stPath As String Set dbs = CurrentDb() On Error Resume Next stPath = dbs.TableDefs(strTable).Connect If stPath = "" Then fGetLinkPath = vbNullString 'can change this to currentdb.name Else fGetLinkPath = right(stPath, Len(stPath) _ - (InStr(1, stPath, "DATABASE=") + 8)) End If Set dbs = Nothing End Function Sub sListPath() Dim loTd As TableDef CurrentDb.TableDefs.Refresh For Each loTd In CurrentDb.TableDefs Debug.Print fGetLinkPath(loTd.Name) Next loTd Set loTd = Nothing End Sub
(DAO_链接表_ODBC-相关文章技巧链接):
如何用代码链接带有密码的数据库中的表
ACCESS使用链接表共享数据库的安全性案例探讨
自动更新链接表的模块
彻底隐藏所有的基本表包括链接表及系统表函数
文章分类
联系我们
联系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |