ник: час
перефразирую вопрос
Set adoxCol = New ADOX.Column
With adoxCol
.ParentCatalog = adoxCat
.Name = "ID_GROUP"
.Type = adInteger 'тип поля
'условие на значение
.Properties("Jet OLEDB:Column Validation Rule").Value = "<>'' and not is null"
'сообщение о нарушении условия на значение
.Properties("Jet OLEDB:Column Validation Text").Value = "Идентификатор группы?"
End With
.Columns.Append adoxCol, adInteger
|
как сюда добавить параметр
.Unique