Статистика | Зарегистрировано на сайте: Всего: 51636
Онлайн всего: 5 Гостей: 5 Пользователей: 0
|
|
Каталог статей
Создание db-файла во время работы приложения
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;
|
|
Просмотров: 417
| Рейтинг: 1.0/
5
Оштрафовать
| Жаловаться на материал |
|
|