Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: час
Я тута функцию мастрячу и хотел было ею воспользоваться, но как передать тип создаваемого поля - "логическое поле" ?


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"
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

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


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.