Карта сайтаСсылкиКонтакты

Хостинг


Как создать таблицу Paradox во время выполнения

PDF Печать
Статьи

Как создать таблицу без применения SQL или Database Desktop.

TTable имеет способность создавать таблицы Paradox без применения SQL.


with TTable.create(self) do 
begin 
  DatabaseName := 'C:\projects\data'; 
  TableName := 'Clients'; 
  TableType := ttParadox; 
  with FieldDefs do b 
  begin 
    Add('ID',    ftInteger, 0, True); 
    Add('FName', ftString, 25, False); 
    Add('LName', ftString, 25, False); 
  end; 
  IndexDefs.Add('MainIndex','IntField', [ixPrimary, ixUnique]); 
  CreateTable; 
end; 

По материалам http://delphi.3000.com


 

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


Защитный код
Обновить