Управляющие запросы и типы данных

ПаРад
Дата: 03.06.2004 21:02:47
Доброго времени суток, уважаемые !
Не просветит ли кто об управляющих запросах на создание таблицы ? Запрос: CREATE TABLE TEST (f1 Integer, f2 date, f3 long );
Необходимо поле f1 создать счетчиком, а поле f3 с двумя знаками после запятой.
Заранее огромное спасибо.
--BadBadBoy
Rivkin Dmitry
Дата: 03.06.2004 21:49:55
По-моему средствами Access.SQL AutoNumber не сделать, но можно так:
Dim td As DAO.TableDef, fd As DAO.Field, pr As DAO.Property
Dim db As DAO.Database: Set db = OpenDatabase(pth & nmDb)

Set td = db.CreateTableDef("Test")
Set fd = td.CreateField("F1", dbLong): fd.Attributes = dbAutoIncrField 'Long only!
td.Fields.Append fd: td.Fields.Refresh
Set fd = td.CreateField("F2", dbDate): fd.Attributes = 1
td.Fields.Append fd: td.Fields.Refresh

Set fd = td.CreateField("F3", dbLong): fd.Attributes = 1
td.Fields.Append fd: td.Fields.Refresh
Set pr = fd.CreateProperty("DecimalPlaces", dbByte, "2")
fd.Properties.Append pr
fd.Properties.Refresh
fd.Properties("DecimalPlaces") = "2"

db.TableDefs.Append td

db.TableDefs.Refresh
Владимир Саныч
Дата: 03.06.2004 22:06:11
Rivkin Dmitry
По-моему средствами Access.SQL AutoNumber не сделать


Таки сделать. См.
http://www.sql.ru/faq/faq_topic.aspx?fid=214
вопрос 9.
ПаРад
Дата: 05.06.2004 10:56:54
Спасибо большое !
Воистину: то, что практически на виду глаз и не замечает 8)
Rivkin Dmitry
Дата: 06.06.2004 08:29:36
Да, но только Начиная с Аксесса 2000!!!