Public Function FUN_ADD_FIELD_NEW(CONNECT As Connection, _
STR_TABLE_NAME As String, _
STR_FIELD_NAME As String, _
STR_FIELD_TYP As String) As Boolean
' добавление поля к таблице.
' "MONEY" "TEXT(25)", "DOUBLE", "BIT"
Dim adoxCat As Object
Dim adoxTbl As Object
On Error GoTo FUN_ADD_FIELD_NEW_Error
'----------------------------------------------------------------------------------
FUN_ADD_FIELD_NEW = True
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 & " " & STR_FIELD_TYP
CONNECT.TableDefs(STR_TABLE_NAME).Fields(STR_FIELD_NAME).Properties("DisplayControl") = 106
Set adoxCat = Nothing
Set adoxTbl = Nothing
'----------------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_ADD_FIELD_NEW_Error:
MsgBox "Возможно база указана не верно!!! Или изменения уже произведены."
FUN_ADD_FIELD_NEW = False
End Function
|