Chega de table
Nao trabalho com sql, gostaria de saber como me proceder para criar uma tabela em sql, qual o primeiro passo?
Anonymous
Curtidas 0
Respostas
Dor_poa
19/02/2003
Ola.. Amigo...
Eu não entendi direito.!!??/
O que tu quer fazer?
O que tem o Sql?
Eu não entendi direito.!!??/
O que tu quer fazer?
O que tem o Sql?
GOSTEI 0
Carnette
19/02/2003
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
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
GOSTEI 0