Delphi-Help

Главная

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

Оцените материал
(0 голосов)


Как создать таблицу через 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;
Прочитано 6368 раз
Другие материалы в этой категории: « SQL-запросы в Delphi

Авторизация



Счетчики