ник: ShadowOfSun
'поле "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
|
Похвастайся, как ты умудряешься так зашифровать русский текст
Может тебе раскодировщик выслать, что бы форум не пугать?