Как создать таблицу через 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;

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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...