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