各位版主大人帮帮小弟啊！

zxp

如何能获得图中ODBC链接表后面的括号里的“DATEBASE”的值？

zxp

eio

zxp可以的话将图片转换为JPG或者GIF,几百KB的BMP你都传上来?

李寻欢

我试过可以的了，放在模块里，引用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 OLEDBink Datasource")
    LinkPath = tblLink.Properties(5)
    Set tblLink = Nothing
    Set catDB = Nothing
End Function

在立即窗口输入：?linkpath("dbo_Categories")，得到结果如下：
DRIVER=SQL Server;SERVER=MDW-LYVHWYW9SB7;APP=Microsoft? Access;WSID=MDW-LYVHWYW9SB7;DATABASE=Northwind;Trusted_Connection=Yes

WTM1

请问上面图片中水晶水平滚动条，那里有下载？？

zxp

李寻欢大哥！这段程序试了，确实可以用，我对你实在是佩服得五体投地啊！可是这个并不是我所需要的啊！我要的是从另一个数据库＂数据结构设计工具＂主窗中有个＂导入结构＂按钮，在导入数据库＂宿舍管理＂时,获得＂宿舍管理＂中ＯＤＢＣ链接表＂dorm＂的ＤＡＴＥＢＡＳＥ的值！
现在我把两个数据库都传上来让你看一看！

李寻欢

DRIVER=SQL Server;SERVER=MDW-LYVHWYW9SB7;APP=Microsoft? Access;WSID=MDW-LYVHWYW9SB7;DATABASE=Northwind;Trusted_Connection=Yes

上面这段字符串中已包含了ＤＡＴＥＢＡＳＥ的值了吧？假设上面的结果是你求出来的，你的意思是不是太多无用信息了？你只需要DATABASE=Northwind;这一个值是吧？那做一个循环加mid函数把它取出来就行了嘛

zxp

李寻欢大哥！你说的很有道理！我从另一个数据库中＂数据结构设计工具＂用msgbox linkpath("dorm")（dorm是数据库“宿舍管理”中的一个ODBC链接表），可是却什么都没有显示出来，就连信息提示框也没有！

李寻欢

这可有点麻烦，我没有你的环境，测试不了。

zxp

经过你刚才的指点！小弟我已经用FOR加MID取出了DATEBASE的值，就差最后一步了！只要能在另一个数据库中获得这个值，那我总算可以向我们经理交待了，饭碗也可以保住了！可否请你再想一想啊，让你伤神了，不好意思！