Как создать таблицу базы данных, не используя Database Desktop 3

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

uses DB, DBTables, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);

var

tSource, TDest: TTable;

begin

TSource := TTable.create(self);

with TSource do

begin

DatabaseName := ‘dbdemos’;

TableName := ‘customer.db’;

open;

end;

TDest := TTable.create(self);

with TDest do

begin

DatabaseName := ‘dbdemos’;

TableName := ‘MyNewTbl.db’;

FieldDefs.Assign(TSource.FieldDefs);

IndexDefs.Assign(TSource.IndexDefs);

CreateTable;

end;

TSource.close;

end;

{/codecitation}

Добавить комментарий