Как установить обязательное свойство при добавлении столбца в Access с помощью ADOX?

Question

У меня есть следующий скрипт, который добавляет столбцы и таблицу в базу данных Access. Я не знаю, как установить для свойства «required» этого столбца значение «NO», по умолчанию - «да». Вот мой сценарий:

Option Compare Database

Function AddColumns()
'Purpose:   Show how to add fields to a table, and delete them using ADOX.
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As New ADOX.Column

Set cnn = CreateObject("ADODB.Connection")

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
  "Data Source=\\network\drive\TestDB.accdb; Jet OLEDB:Database Password=testing; "

'Initialize
cat.ActiveConnection = cnn
Set tbl = cat.Tables("Test_Table")

'Add a new column
With col
    .Name = "Test_Column"
    .Type = adVarWChar   'Decimal type.
    '.Precision = 28     '28 digits.
    '.NumericScale = 8   '8 decimal places.

End With
tbl.Columns.Append col
MsgBox col.Name & " successfully added"
Set col = Nothing
'Debug.Print "Column added."


'Clean up
Set col = Nothing
Set tbl = Nothing
Set cat = Nothing

End Function

Answer 1

Вам необходимо использовать свойство Attributes (ADOX)

, например,

With col
   ...
   .Attributes = adColNullable
   ...
End With