15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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