Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Banco de Dados

Criando tabelas via SQL

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;

Observações

Este exemplo foi testado com banco de dados Paradox, porém deverá funcionar em vários outros bancos de dados com pouca ou nenhuma alteração.

O conteúdo desta página pode ajudar alguém? Compartilhe!