拆分数据库后，如何用相对路径链接数据库

天地　发表于：2010-11-01 11:42:44 　

拆分出数据库后，窗体和数据库单独两个文件，一般都是在窗体里直接用链接表管理器找到数据库文件链接的，不过这样出来的是绝对路径，只要移动位置就要重新链接了，有什么办法直接可以链接到同一目录下的数据表，然后复制出去也直接可以打开？在链接的时候试了其他一般的打开方式好像都不行。像..\,几个都不行。

煮江品茶发表于：2010-11-01 12:55:04

天地发表于：2010-11-01 14:42:33

看的不是很懂，是不是就把第一行这个(Fname As String)里面的像下面示例里一样，\后面改成自己需要的名字就可以了，其他都不用修改了。

Function MyTrdb(Fname As String)
'功能：重建表链接。
'参数：Fname：后台数据库完整文件名
'示例：MyTrdb(CurrentProject.Path & "\后台数据库.mdb")

煮江品茶发表于：2010-11-01 15:04:25

比如你的后台固定存放在F:\订单管理系统\后台\订单后台数据库.mdb,则你可以在Autoexec宏中用RunCode命令引用该函数，在该命令下发的函数名称参数中写：MyTrdb("F:\订单管理系统\后台\订单后台数据库.mdb")。

如果后台与前台放在一个文件夹下，则可在RunCode命令参数中写：MyTrdb(CurrentProject.Path & "\订单后台数据库.mdb")

这样在第一次部署或者修改名称（包含路径）后第一次部署时，该函数将进行一次重新联接。

天地发表于：2010-11-01 16:32:49

Function MyTrdb(Fname As String)
'功能：重建表链接。
'参数：Fname：后台数据库完整文件名
'示例：MyTrdb(CurrentProject.Path & "\后台数据库.mdb")

直接把第一行写成MyTrdb(CurrentProject.Path & "\订单后台数据库.mdb")字就变黑了，然后就出错了。

这个里面不是还有Function吗？不是把第一行括号里的内容改成(CurrentProject.Path & "\后台数据库.mdb")，然后把“后台数据库.mdb”改成自己的数据库名字吗？

做的时候是在窗体那部分的VB编辑器里，左上的 Microsoft access类对象里插入一个模块，复制进去后，每次打开这个数据库就自动运行了吗？

煮江品茶发表于：2010-11-02 06:41:57

需要增加一个引用：Microsoft Scripting Runtime

天地发表于：2010-11-05 10:25:25

不好意思，这个看不太懂，能直接把原来的示例标注一下修改哪里吗？

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

Access交流中心