| EVB87_Ar |
| Кто может, кинь те пжта полный исходный код SQL... |
==========
На форму добавить компонент ADOCommand
==========
procedure CreateTestTable(Sender: TObject);
begin
ADOCommand.CommandText:=
+ 'CREATE TABLE MyTestTable ('
+ 'Key_Field COUNTER NOT NULL PRIMARY KEY,' //ключевое поле, оно же первичный ключ, оно же автоинкремент или счетчик
+ 'OutKeyField INTEGER NOT NULL REFERENCES AnotherTable '
+ 'ON UPDATE CASCADE ON DELETE CASCADE,'//внешний ключ, ссылающийся на таблицу AnotherTable, ключу запрещены нулевые значения, задано каскадное обновление и удаление
+ 'LastName CHAR(30),' //текстовое поле до 30 знаков
+ 'BooleanField BIT DEFAULT TRUE,' //логическое поле с дефолтовым значением True
+ 'NumField INTEGER,'//целочисленное поле, можно добавить DEFAULT=0 или другое число
+ 'DateTimeField DATETIME,' //поле даты
+ 'RubleDollarField MONEY DEFAULT=0.00,' //денежки
+ ')';
ADOCommand.Execute;
end;
Можно еще до кучи проиндексировать внешний ключ
ADOCommand.CommandText:= 'CREATE INDEX idxOutKeyField ON MyTestTable (OutKeyField)';//хотя это можно сделать и в первом запросе словом CONSTRAINT
ADOCommand.Execute;
Дальше читаешь понятную книжку
ТУТ и
обязательно справку по JETSQL40.chm (у себя на машине я нашел ее в папке
C:\Program Files\Common Files\Microsoft Shared\OFFICE11\1049) - так как особенности работы связки ADO+MS Access описаны именно здесь. Кстати, у Фленова тоже описаны азы простецким языком
тут (надеюсь, не порушил его авторских прав, иначе мне - кердык :)
==========
Док.