如何在 Access 表中插入列描述？答案

【问题标题】：How to insert a column description into an Access table?如何在 Access 表中插入列描述？
【发布时间】：2010-07-15 19:09:58
【问题描述】：

如何使用 SQL 为 Access 表中的列插入说明？

我愿意：

CREATE TABLE TAB_A (COLUMN1 TEXT(30), COLUMN2 REAL, PRIMARY KEY (COLUMN1)

但是如何为每一列插入描述呢？

【问题讨论】：

标签： ms-access

【解决方案1】：

你不能在 SQL 中做到这一点。

KB210314：ACC2000: How to Use ADO or DAO to Retrieve a Field's Description

我认为它可以设置为可以检索的相同方式：

Function SetFieldDesc_ADO(ByVal MyTableName As String, ByVal MyFieldName As String, ByVal Description As String)

   Dim MyDB As New ADOX.Catalog
   Dim MyTable As ADOX.Table
   Dim MyField As ADOX.Column

   On Error GoTo Err_SetFieldDescription

   MyDB.ActiveConnection = CurrentProject.Connection
   Set MyTable = MyDB.Tables(MyTableName)
   MyTable.Columns(MyFieldName).Properties("Description").Value = Description

   Set MyDB = Nothing

Bye_SetFieldDescription:
   Exit Function

Err_SetFieldDescription:
   MsgBox Err.Description, vbExclamation
   Resume Bye_SetFieldDescription
End Function

【讨论】：

FWIW 我无法使用 DAO (v3.6) 方法。 (C#) .Properties["Caption"] 和 .Properties["Description"] 都抛出 COMException "Property not found"。事实上，检查 Properties 集合确实证实了这一点。（......如果只有我被授权这样做，就会将其附加到 Tomalak 的答案中。） MS 可以有如此明显错误的文档吗？有谁知道如何让它在 DAO 中真正发挥作用？
属性在创建之前不存在，因此没有标题或描述集的字段将不具有这些属性中的任何一个。 Access UI 显示属性，但在您分配值之前，它们不存在。
感谢您的澄清。同时我改组使用 ADO，但这有助于了解未来！
当您在寻找特定于 Jet/ACE/Access 的东西时，为什么还要麻烦使用 ADO？ DAO 将是显而易见的接口。
也许“retool”这个词给人留下了劳动密集型的印象，但更像是：花10分钟。将一种看起来很无聊的技术/方法换成实际有效的东西。为什么在集合中没有找到这些预期的、常见的属性并不是“显而易见的”！（“Obj.'s Properties don't exist until created”对我来说是一个新的......）这个amt。玩“让我们尝试搜索 MSDN”游戏的时间很容易消失！ ATM 它是供个人使用的一次性应用程序，因此“只要它有效”的实现就令人满意。嘿，我是来学习的！再次为指针 TY！

【解决方案2】：

Dim col As ADOX.Column = New ADOX.Column
With col
  .Name = name
  .Type = type
  .DefinedSize = size
  .ParentCatalog = cat
  .Properties("Description").Value = description
End With

【讨论】：