| |
|
|
| |
Public Function FUN_ADD_FIELD(CONNECT As Connection, STR_TABLE_NAME As String, STR_FIELD_NAME As String) As Boolean
' добавление поля к таблице.
Dim adoxCat As Object
Dim adoxTbl As Object
On Error GoTo FUN_Connect_OOO_Error
Set adoxCat = CreateObject("ADOX.Catalog")
Set adoxTbl = CreateObject("ADOX.Table")
Set adoxCat.ActiveConnection = CONNECT
CONNECT.Execute "ALTER TABLE " & STR_TABLE_NAME & "" _
& " ADD COLUMN " & STR_FIELD_NAME & " MONEY" 'AS CURENCY
Set adoxCat = Nothing
Set adoxTbl = Nothing
Exit Function
On Error GoTo 0
Exit Function
FUN_Connect_OOO_Error:
MsgBox "Возможно база указана не верно!!!" & GLB_PATCH_CLIENT_CONNECTION
End Function
|
А можно как то написать подпись к полю? 
MyColumn.Caption = "Долг" | |
| |
| |
| |
|
|
| | Не помню как в ADO, а в DAO надо сначала создать свойство, а затем только назначать ему значение.  | |
| |
| |
| |
|
|
| | Да!!! это мы с тобой проходили - ты мну учил и не ты один, а вот запросом типа экзекуции - может можно через запятую как то указать это свойства (параметры)??? | |
| |
| |
| |
|
|
| |
CreateObject("ADOX.Table")
|
А создать поле аналогичным образом можно?
А далее попытаться создать свойство и применить его к полю? | |
| |
| |
| |
|
|
| | В объектной модели, описанной в статье: http://hiprog.com/index.php?option=com_content&task=view&id=251661555, я не вижу пропертей, так что похоже не удастся.
Хотя, строчка
.Properties("Description").Value = "№ заказа"
внушает некоторый оптимизьм.  | |
| |
| |
| |
|
|
| | Внушает!!!
Как бы её приткнуть в запрос... | |
| |
| |
| |
|
|
| | Та какой в попу запрос!
Пробуйте пользовать объектную модель по статье Олега. | |
| |
| |
| |
|
|
| | Там создание новой таблицы с полями ипоследующее добавление её в базу.
У меня таблица уже имеется в базе - потребовалось добавить новое поле, без моего вмешательства и отсутствия Access на той машине....
Поле добавляется с помощью приведённой вон выше функции, а как подпись к полю туда впихнуть - никака не врублюся.........
Хотя можно и без неё обойтися.......  | |
| |
| |
| |
|
|
| | Вот чё та нашёл.....
ADD [COLUMN] create_definition [FIRST | AFTER column_name ]
это вроде с позицией поля в табле связано | |
| |
| |
