使用vbscript创建指向MS Access数据库中的表的链接

Question

我想在数据访问页面中运行一些vbscript代码。代码是创建指向另一个访问数据库中的表的链接。

在数据访问页面中，我已经连接到我当前的数据库，所以希望我只需要指定外部访问数据库路径和名称，然后指定我要链接到的表，以及链接的名称......这将是理想的解决方案。

我花了好几个小时四处寻找，但我能找到的只是VBA和/或代码来在可以通过表单调用的访问模块中执行此操作。

有办法做到这一点吗？我可以使用“新表”向导手动创建链接，但我需要代码才能执行此操作。

提前致谢

Answer 1

是的，这可以通过VBS实现。你说你已经看过一些VBA代码和模块。那些大多数VBA代码/模块也可以在vbs中使用，只需稍加调整即可。

例如，让我们说你有一些类似于Set myRs = CurrentDB.OpenRecordset("someTbl_or_someQry")的vba代码

在VBS中，您首先需要访问Microsoft Office Access Application对象。

这样做取决于您是否计划在有问题的访问数据库打开时执行vbs。

如果数据库未打开，则在VBS开头执行以下操作：

myAccessApp = CreateObject("Access.Application")

否则：

myAccessApp = GetObject(,"Access.Application")

现在您已经加载了Access.Application对象，您现在几乎可以执行任何可以使用VBA执行的操作，唯一的区别是您将应用程序对象添加到相关VBA代码行的开头。所以现在你可以：

Set myRS = myAccessApp.CurrentDb.OpenRecordset("SomeTbl_or_somQry")

在您的VBS文件中。

结论：是的，一旦您的VBS可以访问Access.Application对象，就可以。