Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ТИП ПОЛЯ! / 6 сообщений из 6, страница 1 из 1
20.10.2003, 14:32
    #32298445
Gri3ly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ТИП ПОЛЯ!
такая вещь - создаю програмно таблицу, создаю в ней поля - напр.:
"Name:=ID ; Type:=dbLong ; DefaultValue:=0".
так вот - как мне указать тип поля "счетчик"?
...
Рейтинг: 0 / 0
20.10.2003, 14:38
    #32298460
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ТИП ПОЛЯ!
Field.Attributes = dbAutoIncrField
...
Рейтинг: 0 / 0
20.10.2003, 17:00
    #32298789
Gri3ly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ТИП ПОЛЯ!
Так не подходит, еще могут быть варианты?
...
Рейтинг: 0 / 0
20.10.2003, 17:05
    #32298801
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ТИП ПОЛЯ!
Почему не подходит?
Как создаешь таблицу?
Есть инструкция ALTER TABLE - см. справку.
...
Рейтинг: 0 / 0
21.10.2003, 11:43
    #32299498
Gri3ly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ТИП ПОЛЯ!
создаю так:

Set tbl = db.CreateTableDef(tblName)

tbl.Fields.Append tbl.CreateField(fldName, fldType, fldSize)

db.TableDefs.Append tbl

вот каким должно быть значение fldType меня и интересует.
...
Рейтинг: 0 / 0
21.10.2003, 11:56
    #32299541
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ТИП ПОЛЯ!
>Так не подходит, еще могут быть варианты?
Почему, нормально работает.

Sub createtabletest()
Dim tbl As TableDef, fld As DAO.Field
Set tbl = CurrentDb.CreateTableDef("tblTest")

Set fld = tbl.CreateField("id", dbLong)
fld.Attributes = dbAutoIncrField
tbl.Fields.Append fld
CurrentDb.TableDefs.Append tbl
End Sub

Можно и через ALTER TABLE
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ТИП ПОЛЯ! / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]