Как создать таблицу через SQL? |
Previous Top Next |
Следующая функция полностью совместима с Paradox:
Code: |
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; |
©Drkb::03096
Взято из http://forum.sources.ru