如何在程序里把分拆后的数据库的路径显示出来？

极品飞车　发表于：2011-06-28 17:25:54 　

我在局域网上实现了将分拆的数据库放在了服务器上，功能模块放在了客户机上，不过分拆数据库的路径在代码中不知道怎么完成，用“ACCESS_VBA编程.pdf”中的方法：

Dim DBLongname, DBName, DBDir As String
DBLongname = CodeDb.Name
DBName = Dir(DBLongname)
DBDir = Left(DBLongname, Len(DBLongname) - Len(DBName))
MsgBox "数据库所在目录：" & DBDir

提示却是本地硬盘：D:\，不知道怎么搞定，请高手指点一二，先谢过

Top

西出阳关无故人发表于：2011-06-28 20:03:24

如图：

在系统表中找

Top

极品飞车发表于：2011-06-30 14:31:31

谢谢楼上的朋友，不过这个系统表我打开看过，因为是每次打开数据库的记录，用代码实现有些难度，不知道还有没有别的好办法？

Top

西出阳关无故人发表于：2011-06-30 21:46:49

查询:select distinct database from msysobjects ...

dlookup函数也可以...

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何在程序里把分拆后的数据库的路径显示出来？