Office中国论坛/Access中国论坛

标题: 如何获得链接表的路径？？？？？？？ [打印本页]

作者: zxp 时间: 2003-5-10 18:29
标题: 如何获得链接表的路径？？？？？？？
如何获得这两个链接表的路径，即括号中的部分！！
请大虾教点一下！！！！！！

[attach]376[/attach]

作者: zxp 时间: 2003-5-10 21:55
求救啊！版主大人！

作者: zxp 时间: 2003-5-11 00:29
5555555555555555555555555555！为什么没人帮我啊！

作者: prince 时间: 2003-5-11 01:30
我试出来了，但我不知怎么跟你说啊！

作者: prince 时间: 2003-5-11 01:32
[路径]=DLookUp("database","msysobjects","foreignname='" & [表名] & "'")

作者: 李寻欢 时间: 2003-5-12 06:56
我的方法比较笨：（，要引用ADOX
Function LinkPath(tabName As String) As String
Dim catDB As ADOX.Catalog
Dim tblLink As ADOX.Table
Dim i As Integer
Set catDB = New ADOX.Catalog
catDB.ActiveConnection = CurrentProject.Connection

Set tblLink = catDB.Tables(tabName)
LinkPath = tblLink.Properties("Jet OLEDB

ink Datasource")
Set tblLink = Nothing
Set catDB = Nothing
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)