Question

在this answer的帮助下，我创建了一个报告，列出当前数据库中的所有查询及其输入表/查询及其输出（用于操作查询）。
我一直很满意，直到我注意到结果中缺少一些查询我有点困惑为什么。
任何线索？

SELECT MSysObjects.Name AS queryName, 
  Mid("SelectMakTblAppendUpdateDeleteXtab  777777PassThUnion ",([msysqueries]![Flag]-1)*6+1,6) AS queryType, 
  src.Name1 AS [Input], 
  MSysQueries.Name1 AS Target, 
  MSysQueries.Attribute
FROM (MSysQueries INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id) 
LEFT JOIN (SELECT * FROM MSysQueries WHERE Attribute = 5)  AS src ON MSysQueries.ObjectId = src.ObjectId
WHERE (((MSysObjects.Name)>"~z") AND (MSysQueries.Attribute=1))
ORDER BY MSysObjects.Name, src.Name1

编辑：发现根据所有逻辑，INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id有时不返回它应该的每一行我检查了MSysQueries和MSysObjects，并确保我在两侧都有相同的对象ID -2147483618，我确保MSysQueries有一个ObjectId的行，其中Attribute = 1，但是，当连接表时，该属性= 1的特定行没有出现。很奇怪。我尝试使用内连接，用条件替换JOIN，在过程中添加Val或CLng，没办法。我迷失在这里。

编辑2：找到了一种使用where CStr([Id]) = CStr([ObjectId])正确“加入”两个表格的方法但这真的不是必要的！

Answer 1

对于那些感兴趣的人，我现在终于把它弄好了：

SELECT MSysObjects.Name AS QueryName, Nz([expression],[name1]) AS Source, 
     MSysQueries.Name2 AS Alias, MSysObjects.Flags, t.Target
FROM (MSysObjects INNER JOIN MSysQueries ON MSysObjects.Id = MSysQueries.ObjectId) 
LEFT JOIN (SELECT ObjectId, Name1 as Target FROM MSysQueries 
            WHERE (Name1 Not Like "ODBC*") AND (Attribute=1))  AS t 
ON MSysObjects.Id = t.ObjectId
WHERE ((MSysQueries.Attribute=5)) OR ((MSysQueries.Name1 Like "ODBC*"));

对于passthru查询，我选择显示完整的SQL语句，当然可以调整。我使用它作为一个漂亮的报告的来源，或者我将数据复制到Excel工作表并使用自动过滤器缩小列表范围，直到它澄清目标表的内容来自何处。

在报告中，我使用以下函数显示查询类型：

Function GetQueryType(Flags) as String
        Select Case (Flags And 247)      'Bit And 247: to clear the Hidden flag=8
            Case 0:    GetQueryType = "SELECT "
            Case 16:   GetQueryType = "XTAB "
            Case 32:   GetQueryType = "DELETE "
            Case 48:   GetQueryType = "UPDATE "
            Case 64:   GetQueryType = "APPEND "
            Case 80:   GetQueryType = "MAKE TABLE "
            Case 112:  GetQueryType = "PASS THRU"
            Case 128:  GetQueryType = "UNION"
            Case 3:    GetQueryType = "Report"
            Case Else: GetQueryType = "Other: " & (Flags And 247)
        End Select
End Function

Answer 2

Access确实具有内置的“依赖”功能。结果是这些依赖项的非常好的树视图，您甚至可以使用应用程序的树视图启动这些对象来“导航”应用程序，以便发言。

该选项位于数据库工具下，适当地称为Object Dependencies。

结果如下： enter image description here

虽然您不想使用自动更正，但此功能会强制进行跟踪更改。如果这是一个大型应用程序，那么在第一次运行时将发生显着延迟。之后，可以立即查看结果。

Answer 3

此查询是否符合您的需求？显示用于创建每个查询的对象。

SELECT MSysObjects.Name, MSysQueries.Name1
FROM MSysObjects LEFT JOIN MSysQueries ON MSysObjects.Id = MSysQueries.ObjectId
WHERE ((MSysObjects.Name Not ALike "~%") AND (MSysQueries.Attribute=5) AND (MSysObjects.Type=5));

如果您对查询其他对象感兴趣，也可以找到它

http://access.mvps.org/access/queries/qry0002.htm

访问：列出查询依赖项

3 个答案: