Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Как создать файл .db на основе имеющегося

Как создать файл .db на основе имеющегося

На форме :
Table1 - Существующая таблица
Table2 - Таблица которую будем создавать

procedure TForm1.Button1Click(Sender: TObject);
begin
With Table1 Do Begin
               DatabaseName:="VMB";
               TableName:="MAN.DBF";
               Open;
               End;
With Table2 Do Begin
               FieldDefs:=Table1.FieldDefs;
               DatabaseName:="VPB"; - {алиас в BDE, или сразу каталог}
               TableName:="PAM.DB"; - {имя создаваемой таблицы}
               CreateTable;
               Open; - {и всё таблица создана :-)}
               end;
end;

Коментарий от Зиновьева Максима
> по моему необходимо также добавить:

   Table1.IndexDefs.Update;
   IndexDefs := Table1.IndexDefs;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru