如何在ms访问中运行不同的数据库查询表格

我有以下代码来运行保存的查询并将数据导出到excel报表。如果此查询位于不同的数据库中，应该如何更改代码？如何在ms访问中运行不同的数据库查询表格

DoCmd.Requery Q_Check_Mismatches 
DoCmd.RunSavedImportExport "Export-Q_Check_Mismatches"

我知道我们可以将所有相关表链接到当前数据库，然后在本地运行查询。但由于DB大小问题，我需要这个。

感谢您回应

干杯

Shabar

来源

2013-03-19 shabar

HAV e您认为“压缩”数据库以减小其大小？这可能会解决问题 – Katana24 2013-03-19 15:20:22

是的Katana24，但我仍然在此设置后，因为我计划访问不同的数据库时运行查询 – shabar 2013-03-20 05:19:32

看看这个：http://answers.microsoft.com/en-us/office/forum/officeversion_other-access/run-query-in-another-database/fba90dc9-606c-4938-b926-14c8bd3bc019 – Katana24 2013-03-20 15:21:23

下面的代码为我工作

Function QueryRun(strDBPath As String, strImportExport As String) 

Dim objAccess As Access.Application 

Set objAccess = CreateObject("Access.Application") 
objAccess.OpenCurrentDatabase 

strDBPath objAccess.DoCmd.RunSavedImportExport strImportExport 
objAccess.CloseCurrentDatabase 
objAccess.Quit 
Set objAccess = Nothing 
End Function

干杯

Shabar

来源

2013-04-10 03:12:31 shabar

如何在ms访问中运行不同的数据库查询表格

回答

相关问题