ms-access - 如何从前端在 Access 数据库后端上执行 VB 代码？

Question

我将我的数据库分成包含数据表的后端和包含表单、查询、报告和模块的前端，并链接了表。其中一个表从 Excel 表中获取数据；通常我会使用链接表，但如果打开任何查询，则无法打开 excel 工作表，因此我使用保存的导入将 excel 工作表中的所有数据提取到表中。

现在，我想在运行 DoCmd.RunSavedImportExport "savedimportnamehere" 的前端菜单中添加一个按钮，但保存的导入在后端，所以我必须发送该命令到后端......我不太确定该怎么做。如果有人能指出正确的方向，我将不胜感激。

Answer 1

您可以针对 MS Access 实例运行命令，因此:

Dim apAccess As New Access.Application
apAccess.OpenCurrentDatabase ("c:\docs\backend.mdb")
apAccess.DoCmd.RunSavedImportExport "savedimportnamehere"

您还可以针对数据库或连接的实例运行查询:

sSQL="INSERT INTO Table1 ( ADate ) " _
& "SELECT SomeDate " _
& "FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xls].[Sheet1$a1:a4]"