Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Как создать таблицу базы данных, не используя Database Desktop?

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

Положите компонент TTable на форму и попробуйте указанную ниже процедуру.

procedure TForm1.CreateMyTable(NameFile: string);
begin
  with Table1 do
  begin
    Active := False;
    DatabaseName := '';
    TableName := NameFile;
    TableType := ttDefault;
    with FieldDefs do
    begin
      Clear;
      Add('EmpNo', ftInteger, 0, False);
      Add('LastName', ftString, 20, False);
      Add('FirstName', ftString, 15, False);
      Add('PhoneExt', ftString, 4, False);
      Add('HireDate', ftDateTime, 0, False);
      Add('Salary', ftFloat, 0, False);
    end;
    with IndexDefs do
    begin
      Clear;
      Add('', 'EmpNo', [ixPrimary, ixUnique]);
      Add('ByName', 'LastName;FirstName', [ixCaseInsensitive]);
    end;
    CreateTable;
  Free;
  end;
end;

-------------------------------------------
Комментарий от "Рылькова"

sql:="CREATE TABLE "employee.db"
(
  Last_Name CHAR(20),
  First_Name CHAR(15),
  Salary NUMERIC(10,2),
  Dept_No SMALLINT,
  PRIMARY KEY (Last_Name, First_Name)

)";

Query1.sql.text:=sql;
Query1.ExecSQL;

Комментарий от Anatoly Podgoretsky:
В некоторых случаях, а лучше во всех стоит указывать тип таблицы не ttDefault, а конкретно нужный.

TableType := ttDefault;

ttDBASE
ttPARADOX
ttFOXORO
и т.д

это позволит избежать ошибки создание таблицы не того типа который нужен.

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

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