Question

我一直在寻找一种方法来访问表的描述（当你右键单击表＆gt;表属性时出现的那个）通过SELECT查询。

我尝试使用MSysObjects，但我只能使用它来检索表的名称。

是否可以通过查询执行此操作或需要VBA？

Answer 1

正如Remou所说，你不能从查询中获取它（但你可以包含一个在查询中返回它的函数）。这是另一个功能：

Public Function GetTableDescr(stTableName As String) As String
On Error Resume Next
GetTableDescr = CurrentDb.TableDefs(stTableName).Properties("Description").Value
End Function

这是一个返回所有非系统表及其日期和描述的查询（使用上面的函数）：

SELECT MSysObjects.Name, msysobjects.datecreate, msysobjects.dateupdate, GetTableDescr([Name]) AS Description
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "~*") AND((MSysObjects.Name) Not Like "MSys*") and ((MSysObjects.Type)=1));

最后，您可以为查询执行几乎相同的功能。我发现的技巧是你只返回非继承的描述，否则如果查询没有描述你得到查询对象的描述：

Public Function GetQueryDescr(stQryName As String) As String
On Error Resume Next
If CurrentDb.QueryDefs(stQryName).Properties("Description").Inherited = False Then
    GetQueryDescr = CurrentDb.QueryDefs(stQryName).Properties("Description").Value
End If
End Function

On Error Resume Next是必要的，因为在对象有描述之前，属性为null。

Answer 2

您可以从表架构或TableDef属性中获取描述，但我认为标准查询不起作用。

Set rs = CurrentProject.Connection.OpenSchema(adSchemaTables, _
     Array(Empty, Empty, "Rules", Empty))
Debug.Print rs!Description

Answer 3

使用上面的GetQueryDescr（），您可以对隐藏的sys表

运行此查询

SELECT MSysObjects.Name，GetQueryDescr（[Name]）AS Properties，MSysObjects.DateCreate，MSysObjects.DateUpdate 来自MSysObjects WHERE（（（MSysObjects.Name）不喜欢“~sq_ *”）AND（（MSysObjects.Type）= 5））;

类型5用于查询

Answer 4

始终在VBA中重置错误捕获器：

Public Function DoSomething()
  On Error Resume Next
  **potential error-throwing code**
  On Error Goto 0
End Function

否则，您的代码中的其他位置可能会跳过错误。

MS ACCESS通过查询检索“表描述”

4 个答案: