2Хаму Трамваййному
>может кто-нибудь попробует эти примеры с удовольствием обсудю
Попробовал. получилось. Я уж подробно разверну обсуждение.
Необходимо чтобы формат базы данных по-умолчанию был 2002, и стояла галочка на Синтаксис SQL Server ANSI SQL92
1.
2.
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
Создадим таблицу
1.
2.
3.
4.
cnn.Execute
"CREATE TABLE t3 (ID_PRIM AUTOINCREMENT (1999 , 47 )PRIMARY KEY ,
Q LONG,
CONSTRAINT Q_LIMIT3 CHECK (Q BETWEEN 9 AND 14 ));", , adExecuteNoRecords
Теперь у таблицы появилось свойство CheckConstraints Q_LIMIT3 Q BETWEEN 9 AND 14. (если смотреть через ДАО).Полученное ограничение нельзя изменить (с помощью ДАО, во всяком случае) - только с помощью ALTER TABLE...
Так же пока не удалим ограничение Q_LIMIT3, нельзя будет удалить таблицу!! Прикольный эффект.
Как пример, инструкция AUTOINCREMENT - новая возможность назначить приращение счетчика (в примере с 47) и с какого числа начать нумерацию (в примере с 1997)
'удалить ограничение можно
1.
2.
cnn.Execute
"ALTER TABLE t3 DROP CONSTRAINT Q_LIMIT3;" , , adExecuteNoRecords
Задаваемое имя (в примере Q_LIMIT3) должно быть уникальном в пределах базы, если не указать акес сам его сотворит.
Ограничения назначаются на всю таблицу, задавать для конкретного столбца нельзя, но можно насоздовать кучу ограничений с разными именами, где определить логику для любого столбца
'Задать к уже существующей таблице
1.
2.
3.
4.
cnn.Execute
"ALTER TABLE t3 ADD CONSTRAINT t_limit999 CHECK (Q2 > Q);" , ,adExecuteNoRecords
cnn.Execute "ALTER TABLE t3 ADD CONSTRAINT t_limit666 CHECK (Q2 <=( ID_PRIM+4 ) );", , adExecuteNoRecords
Сделать в CHECK "Select ...From ДругаяТаблица" как у Гетца (стр.163 том 1) у меня не получилось, да и в BOL написано, что
Logical_expression used with CHECK constraints cannot reference another table but can reference other columns in the same table for the
same row.
По-русски: ограничение не может ссылать на другие таблицы, но может ссылаться на стобцы собственной таблицы.
Так что или Гетц заблуждается либо у меня кривые руки, но в любом случае в случае переноса на MS SQL это ограничение работать не стало бы.
Я использовал ADODB.Connection по привычке, можно и другими способами, в т.ч. через сохраненые управляющие запросы Акеса.
==
Акес2002+СП2, MDAC 2.7 SP1, Jet SP6, WinXP+SP1
