Советы по Delphi




Создание db-файла во время работы приложения


uses DB, DBTables, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
tSource, TDest: TTable;beginTSource := TTable.create(self);with TSource do beginDatabaseName := 'dbdemos';TableName := 'customer.db';open;end;TDest := TTable.create(self);with TDest do beginDatabaseName := 'dbdemos';TableName := 'MyNewTbl.db';FieldDefs.Assign(TSource.FieldDefs);IndexDefs.Assign(TSource.IndexDefs);CreateTable;end;TSource.close;end;

Дополнение

Читатель пишет:

В совете, на мой взгляд, неточность. Приведен пример копирования структуры одной таблицы в другую. Если нужно создать таблицу, то:

Простейший способ – использовать SQL запрос. Таблицы можно создавать с индексом и без индекса.
Небольшой пример:


const

CreateTab = 'CREATE TABLE ';IDXTab = 'PRIMARY KEY ';MyTabStruct ='IDX_TAB DECIMAL(6,0), '+'DATE_ DATE, '+'FLD_1 CHARACTER(20), '+'FLD_2 DECIMAL(7,2), '+'FLD_3 BOOLEAN, '+'FLD_4 BLOB(1,1), '+'FLD_5 BLOB(1,2), '+'FLD_6 BLOB(1,3), '+'FLD_7 BLOB(1,4), '+'FLD_8 BLOB(1,5) ';

// создание таблицы без индекса
procedure TForm1.Button1Click(Sender: TObject);
begin
if
CreateTable('"MYTAB.DBF"', MyTabStruct, '') then…
// выполняем дальнейшие операции
else…
end
;

// создание таблицы с индексом
procedure TForm1.Button2Click(Sender: TObject);
begin
if
CreateTable('"MYTAB.DBF"', MyTabStruct, IDXTab+' (IDX_TAB)') then…
// выполняем дальнейшие операции
else…
end
;

function TForm1.CreateTable(TabName, TabStruct, TabIDX: string): boolean;
var
qyTable: TQuery;begin
result := true;qyTable := TQuery.Create(Self);with qyTable dotrytrySQL.Clear;SQL.Add(CreateTab+TabName+'('+TabStruct+TabIDX+')');Prepare; // ExecSQL, а не Open. Иначе ... облом
ExecSQL;except // Обработка ошибок открытия таблицы Возможности обработчика можно расширить.
Exception.Create('Ошибка открытия таблицы');result := false;end;finallyClose;end;end;

[000027]




Содержание    Вперед