Set adoxCol = New ADOX.Column
With adoxCol
.ParentCatalog = AdoxCat
.Name = "ID_SHEMS"
.Type = adVarWChar 'òèï ïîëÿ
.DefinedSize = 100
.Properties("Required").Value = False
.Properties("AllowZeroLength").Value = False
End With
.Columns.Append adoxCol, adVarWChar
|