ACCESS：SQL创建表语句，将为每列添加注释（描述）

Question

我想在创建表格时为每一列添加描述：

示例：

strSQL = "CREATE TABLE Table1 (Field1 VarChar(250) Not Null UNIQUE, Field2 VarChar(250) Not Null COMMENT 'Test It')"

我在某个地方看到了

COMMENT

的数据类型。有没有办法在 SQL 语句中做到这一点？

我使用

COMMENT

和

DESCRIPTION

尝试了不同的变体，但没有运气。在执行创建表 SQL 语句时这是否可能？

Answer 1

参见示例

Public Function TestFieldComment() As String
Dim i As Long
Dim sDescr As String
Dim prpNew As Variant
Const tableName = "tbTest"
    For i = 0 To CurrentDb.TableDefs(tableName).Fields.Count - 1
        On Error Resume Next
        sDescr = CurrentDb.TableDefs(tableName).Fields(i).Properties("Description").Value
        If Err.Number = 3270 Then
            Err.Clear
            Set prpNew = CurrentDb.TableDefs(tableName).Fields(i).CreateProperty()
            prpNew.Name = "Description"
            prpNew.Type = dbText
            prpNew.Value = "Description"
            CurrentDb.TableDefs(tableName).Fields(i).Properties.Append prpNew
        End If
        
        CurrentDb.TableDefs(tableName).Fields(i).Properties("Description").Value _
                = "This is description for " _
                  & CurrentDb.TableDefs(tableName).Fields(i).Name
    Next i
    TestFieldComment = "Ok"
End Function