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

Set tbl = db.CreateTableDef(tblName)

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

db.TableDefs.Append tbl

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


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