如何从 VBA 中找出 MS ACCESS 中的查询创建了哪个表？

Question

我写了下面的Sub 来运行一些Make-table 查询，其中一些使用参数Some_date

Sub run_query(queryName As String, Optional Some_date As Date)
    Form_Select_input.logProgress queryName

    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs(queryName)
    On Error Resume Next
    qdf!Date_after = Date_after
    On Error GoTo 0
    qdf.Execute
    Set qdf = Nothing
End Sub

一个典型的查询看起来像

PARAMETERS Some_date DateTime;
SELECT  Some_field
    ,   Other_field
INTO Some_Target
FROM Some_Source
    LEFT JOIN Other_Source
    ON Some_Source.key = Other_Source.key
where Some_Source.Transaction_Date > [Some_date];

现在这在我第一次运行查询时有效，但第二次出现表已经存在的错误，所以我想写一些类似

的东西

Sub run_query(queryName As String, Optional Some_date As Date)
    Form_Select_input.logProgress queryName

    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs(queryName)

    On Error Resume Next
    DoCmd.DeleteObject acTable, qdf.Destination ' At first execution, the destination does not exist, but we resume next 
    qdf!Date_after = Date_after                 ' For some queries, the parameter does not exist, but we resume next
    On Error GoTo 0
    qdf.Execute
    Set qdf = Nothing
End Sub

请帮我用现有的东西替换qdf.Destination。

Answer 1

Access 系统表可以为您提供保存的生成表查询创建的表的名称。

考虑这个查询：

queryName = "typical_query"
? CurrentDb.QueryDefs(queryName).SQL
SELECT Year(i.OrderDate) AS [Year], Count(i.OrderID) AS TotalOrders
INTO Some_Target
FROM Invoice AS i
GROUP BY Year(i.OrderDate);

首先在MSysObjects表中找到查询的Id值：

queryId = DLookup("Id", "MSysObjects", "[Name]='" & queryName & "'")
? queryId
-2147483409 

然后为Id（MSysQueries 中的ObjectId）找到MSysQueries 行，其中Attribute 字段值为1。创建的表的名称存储在Name1 字段中：

? DLookup("Name1", "MSysQueries", "ObjectId=" & queryId & " AND [Attribute]=1")
Some_Target

谨慎使用系统表。您应该安全地只读取他们的数据。但避免修改数据，否则您可能会破坏您的数据库。

此方法要求您的 Access 用户对这些表具有读取权限。如果您的数据库不允许他们读取权限，您可以执行GRANT SELECT 语句将其授予他们。 (GRANT SELECT example)

Answer 2

要获取目标表，您可以在代码中使用它：

Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.QueryDefs(queryName)
dim strTarget as string

strTarget = trim(Split(Split(qdf.SQL, "INTO")(1), " ")(1))
On Error Resume Next
DoCmd.DeleteObject acTable, strTarget

Answer 3

您可以只查询系统表来查看对象是否存在。

If DCount("[Name]", "MSysObjects", "[Name] = '" & tblName & "'") = 0 Then
    'do stuff
End If