ник: час
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 = "Долг"