[Tutorial] Criando tabelas via SQL [DELPHI]

[~ Heatlex. 11]

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;

 

Autor : Autor: Daniel P. Guimarães