Как создать таблицу через SQL?

Материал из DRKB

Как создать таблицу через SQL?[править | править код]

Следующая функция полностью совместима с Paradox:

procedure TForm1.Button1Click(Sender: TObject);
var
  Q: TQuery;
begin
  Q := TQuery.Create(Application)
    try
    Q.DatabaseName := 'SF';

    with Q.SQL do
    begin
      Add('Create Table Funcionarios');
      Add('( ID      AutoInc,       ');
      Add('  Name    Char(30),      ');
      Add('  Salary  Money,         ');
      Add('  Depno    SmallInt,     ');
      Add('  Primary Key ( ID ) )   ');
    end;

    Q.ExecSQL;
  finally
    Q.Free;
  end;
end;


Source: Взято из http://forum.sources.ru
ID: 03096