(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Программное добавление поля в таблицу

Аргументы: strTable - имя таблицы, strField - имя поля, FldType - тип поля
Назначение:
Программное добавление поля в таблицу


Public Sub AddField(strTable As String, strField As String, FldType As Variant)
Dim dbs As Database
Dim tdf As TableDef
Dim fld As Field
On Error GoTo m1

Set dbs = CurrentDb
Set tdf = dbs.TableDefs(strTable)
Set fld = tdf.CreateField(strField)
fld.Type = FldType
tdf.Fields.Append fld
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
Exit Sub
m1:
If Err.Number = 3191 Then MsgBox "Поле с таким именем [" & strField & "] уже существует.": Exit Sub
Resume Next
End Sub

Константы используемые для задания типа создаваемого поля(FldType):

Константа
 

Тип данных

dbBigInt
 
   Big Integer
 
dbBinary
 

Binary

dbBoolean
 

Boolean

dbByte
 

Byte

dbChar
 

Char

dbCurrency
 

Currency

dbDate
 

Date/Time

dbDecimal
 

Decimal

dbDouble
 

Double

dbFloat
 

Float

dbInteger
 

Integer

dbLong
 

Long

dbLongBinary
 
Long Binary (OLE Object)
 
dbMemo
 

Memo

dbNumeric
 

Numeric

dbSingle
 

Single

dbText
 

Text

dbTime
 

Time

dbTimeStamp
 

Time Stamp

dbVarBinary
 

VarBinary

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 12.12.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft 365 Business Standard (corporate)
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
Microsoft 365 Apps for business (corporate)
Microsoft 365 Business Basic (corporate)
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Краткие описания программ и ссылки на них
Windows и Office: новости и советы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100