Программное создание таблиц и ключей (первичных и вторичных) для БД Access
Falk0ner, вс, 06/07/2008 - 15:34.
Программное создание таблиц и ключей (первичных и вторичных) для БД Access
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Программное создание таблиц/ключей(первичных и вторичных) для бд Access
В принципе данный пример описан на сайте
http://www.olap.ru/desc/microsoft/borland_ado.asp ,за
исключением создания ключей. Там же можно прочитать , о том
как включить ссылку на библиотеку типов ADOX(Для этого следует
выбрать Project | Import Type Library главного меню среды
разработки Delphi, а затем из списка доступных библиотек
типов выбрать Microsoft ADO Ext. 2.5 for DDL and Security.
Чтобы избежать конфликтов с именами уже имеющихся классов Delphi
(например, TTable), следует переименовать классы ADOX, заменив
имена на что-нибудь типа TADOXxxx. Затем нужно убрать
отметку из опции Generate Component Wrapper — в данном случае нам нужен
только файл *.pas, содержащий интерфейс для доступа к
объектам ADOX, а затем нажать кнопку Create Unit. Это приведет
к созданию файла ADOX_TLB.PAS, содержащего интерфейс к библиотеке
типов ADOX. Создав этот файл, мы должны сослаться на него,
а также на модуль ADODB в предложении Uses главного модуля нашего проекта).
Создаются 2 таблицы (Otdel,Departament).Поле NumDepartament в
таблице Otdel является внешним ключем к полю NumDepartament в
таблице NumDepartament. Поля NumDepartament и NumOtdel в
таблицах Departament и Otdel сответственно являются первичными ключами.
Зависимости: Библиотека типов ADOX
Автор: Дима
Copyright: <a href="http://www.olap.ru/desc/microsoft/borland_ado.asp" title="http://www.olap.ru/desc/microsoft/borland_ado.asp">http://www.olap.ru/desc/microsoft/borland_ado.asp</a> + msdn
Дата: 30 июля 2003 г.
***************************************************** }
var
Catalog: _Catalog;
Table: _Table;
Column: _Column;
FKKey: _Key;
begin
Catalog := CoCatalog.Create;
try
Catalog.Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + DatabaseName + ';Persist Security Info=False');
//DatabaseName - Путь к файлу с базой данных (C:\1\12.mdb)
//=============================================DOLGNOST=========================
Table := CoTable.Create;
try
Table.Name := 'Dolgnost';
Table.ParentCatalog := Catalog;
Column := CoColumn.Create;
try
with Column do
begin
ParentCatalog := Catalog;
Name := 'NumDolgnost';
Type_ := adInteger;
end;
Table.Columns.Append(Column, 0, 0);
finally
Column := nil;
end;
with Table.Columns do
begin
Append('NameDolgnost', adVarWChar, 50);
end;
Catalog.Tables.Append(Table);
finally
Table := nil;
end;
//=============================================DEPARTAMENT======================
Table := CoTable.Create;
try
Table.Name := 'Departament';
Table.ParentCatalog := Catalog;
Column := CoColumn.Create;
try
with Column do
begin
ParentCatalog := Catalog;
Name := 'NumDepartament';
Type_ := adInteger;
end;
Table.Columns.Append(Column, 0, 0);
finally
Column := nil;
end;
with Table.Columns do
begin
Append('NameDepartament', adVarWChar, 50);
end;
Catalog.Tables.Append(Table);
finally
Table := nil;
end;
//==============================Создание первичных ключей=======================
//Otdel
FKKey := CoKey.Create;
try
with FKKey do
begin
Name := 'PKNumOtdel';
Type_ := adKeyPrimary;
Columns.Append('NumOtdel', adInteger, 0);
end;
Catalog.Tables['Otdel'].Keys.Append(FKKey, 0, EmptyParam, '', '');
finally
FKKey := nil;
end;
//Departament
FKKey := CoKey.Create;
try
with FKKey do
begin
Name := 'PKNumDepartament';
Type_ := adKeyPrimary;
Columns.Append('NumDepartament', adInteger, 0);
end;
Catalog.Tables['Departament'].Keys.Append(FKKey, 0, EmptyParam, '', '');
finally
FKKey := nil;
end;
//==============================Создание вторичных ключей=======================
//Otdel
FKKey := CoKey.Create;
try
with FKKey do
begin
Name := 'FKNumOtdel';
Type_ := adKeyForeign;
Columns.Append('NumDepartament', adInteger, 0);
RelatedTable := 'Departament';
Columns['NumDepartament'].RelatedColumn := 'NumDepartament';
UpdateRule := adRICascade;
end;
Catalog.Tables['Otdel'].Keys.Append(FKKey, 0, EmptyParam, '', '');
finally
FKKey := nil;
end;
finally
Catalog = nil;
end;
>> Программное создание таблиц/ключей(первичных и вторичных) для бд Access
В принципе данный пример описан на сайте
http://www.olap.ru/desc/microsoft/borland_ado.asp ,за
исключением создания ключей. Там же можно прочитать , о том
как включить ссылку на библиотеку типов ADOX(Для этого следует
выбрать Project | Import Type Library главного меню среды
разработки Delphi, а затем из списка доступных библиотек
типов выбрать Microsoft ADO Ext. 2.5 for DDL and Security.
Чтобы избежать конфликтов с именами уже имеющихся классов Delphi
(например, TTable), следует переименовать классы ADOX, заменив
имена на что-нибудь типа TADOXxxx. Затем нужно убрать
отметку из опции Generate Component Wrapper — в данном случае нам нужен
только файл *.pas, содержащий интерфейс для доступа к
объектам ADOX, а затем нажать кнопку Create Unit. Это приведет
к созданию файла ADOX_TLB.PAS, содержащего интерфейс к библиотеке
типов ADOX. Создав этот файл, мы должны сослаться на него,
а также на модуль ADODB в предложении Uses главного модуля нашего проекта).
Создаются 2 таблицы (Otdel,Departament).Поле NumDepartament в
таблице Otdel является внешним ключем к полю NumDepartament в
таблице NumDepartament. Поля NumDepartament и NumOtdel в
таблицах Departament и Otdel сответственно являются первичными ключами.
Зависимости: Библиотека типов ADOX
Автор: Дима
Copyright: <a href="http://www.olap.ru/desc/microsoft/borland_ado.asp" title="http://www.olap.ru/desc/microsoft/borland_ado.asp">http://www.olap.ru/desc/microsoft/borland_ado.asp</a> + msdn
Дата: 30 июля 2003 г.
***************************************************** }
var
Catalog: _Catalog;
Table: _Table;
Column: _Column;
FKKey: _Key;
begin
Catalog := CoCatalog.Create;
try
Catalog.Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + DatabaseName + ';Persist Security Info=False');
//DatabaseName - Путь к файлу с базой данных (C:\1\12.mdb)
//=============================================DOLGNOST=========================
Table := CoTable.Create;
try
Table.Name := 'Dolgnost';
Table.ParentCatalog := Catalog;
Column := CoColumn.Create;
try
with Column do
begin
ParentCatalog := Catalog;
Name := 'NumDolgnost';
Type_ := adInteger;
end;
Table.Columns.Append(Column, 0, 0);
finally
Column := nil;
end;
with Table.Columns do
begin
Append('NameDolgnost', adVarWChar, 50);
end;
Catalog.Tables.Append(Table);
finally
Table := nil;
end;
//=============================================DEPARTAMENT======================
Table := CoTable.Create;
try
Table.Name := 'Departament';
Table.ParentCatalog := Catalog;
Column := CoColumn.Create;
try
with Column do
begin
ParentCatalog := Catalog;
Name := 'NumDepartament';
Type_ := adInteger;
end;
Table.Columns.Append(Column, 0, 0);
finally
Column := nil;
end;
with Table.Columns do
begin
Append('NameDepartament', adVarWChar, 50);
end;
Catalog.Tables.Append(Table);
finally
Table := nil;
end;
//==============================Создание первичных ключей=======================
//Otdel
FKKey := CoKey.Create;
try
with FKKey do
begin
Name := 'PKNumOtdel';
Type_ := adKeyPrimary;
Columns.Append('NumOtdel', adInteger, 0);
end;
Catalog.Tables['Otdel'].Keys.Append(FKKey, 0, EmptyParam, '', '');
finally
FKKey := nil;
end;
//Departament
FKKey := CoKey.Create;
try
with FKKey do
begin
Name := 'PKNumDepartament';
Type_ := adKeyPrimary;
Columns.Append('NumDepartament', adInteger, 0);
end;
Catalog.Tables['Departament'].Keys.Append(FKKey, 0, EmptyParam, '', '');
finally
FKKey := nil;
end;
//==============================Создание вторичных ключей=======================
//Otdel
FKKey := CoKey.Create;
try
with FKKey do
begin
Name := 'FKNumOtdel';
Type_ := adKeyForeign;
Columns.Append('NumDepartament', adInteger, 0);
RelatedTable := 'Departament';
Columns['NumDepartament'].RelatedColumn := 'NumDepartament';
UpdateRule := adRICascade;
end;
Catalog.Tables['Otdel'].Keys.Append(FKKey, 0, EmptyParam, '', '');
finally
FKKey := nil;
end;
finally
Catalog = nil;
end;
Примечание от Vit.
Это не самый лучший способ... Гораздо универсальнее и надёжнее воспользоваться стандартными средствами SQL и создать необходимые изменения при помощи запросов SQL, в частности
Create Table
Create Index
Create Clustered Index
Alter Table
и т.п.
Этот способ обеспечит более гибкое управление и даст возможность использовать все тонкости реализации той или иной базы данных, в том числе и MS Access
Отправить комментарий