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