Buscar por:

Criando tabelas via sql

Código

{Inclua na seção uses: dbTables

- Coloque um TButton no form;

- Escreve no OnClick do Button como abaixo:}

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('( Codigo AutoInc,'); 

  Add(' Nome Char(30),'); 

  Add(' Salario Money,'); 

  Add(' Depto SmallInt,'); 

  Add(' Primary Key (Codigo) )'); 

  end; 

  Q.ExecSQL; 

  finally 

  Q.Free; 

  end; 

end;