ПаРад
Дата: 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