Criar tabela..iniciante..
25/02/2003
0
ola sou iniciante e gostaria de saber como criar uma tabela no IB 6
tabela ´PROFESSORES´
CODIGO (Auto incremento)
NOME string (indice)
DATANASCIMENTO date
FILHOS string
PONTOS inyeger
FAIXA integer
CATEGORIA integer
[]´s
junior
tabela ´PROFESSORES´
CODIGO (Auto incremento)
NOME string (indice)
DATANASCIMENTO date
FILHOS string
PONTOS inyeger
FAIXA integer
CATEGORIA integer
[]´s
junior
Anonymous
Curtir tópico
+ 0
Responder
Posts
25/02/2003
Aroldo Zanela
da uma força ai pessoal....
Acho que seria mais apropriado colocar sua dúvida no forum de Interbase. Vê se isso ajuda.
/*==============================================================*/ /* Database name: BANCO_TESTE */ /* DBMS name: InterBase 6.x */ /* Created on: 25/02/03 23:42:21 */ /*==============================================================*/ drop table PROFESSORES; /*==============================================================*/ /* Table : PROFESSORES */ /*==============================================================*/ create table PROFESSORES ( PRO_ID INTEGER not null, PRO_NOME CHAR(40), PRO_NASCIMENTO DATE, PRO_FILHOS CHAR(40), PRO_PONTOS INTEGER, PRO_FAIXA INTEGER, PRO_CATEGORIA INTEGER, constraint PK_PROFESSORES primary key (PRO_ID) );
Responder
26/02/2003
Jrguitar
para criar a tabela:
create table PROFESSORES
( CODIGO integer not null,
NOME varchar (60) not null,
DATANASCIMENTO date,
FILHOS varchar(10),
PONTOS integer,
FAIXA integer,
CATEGORIA integer,
primary key (codigo) );
para criar o índice (depois da tabela criada)
create index iNome on Professores (NOME);
Te aconselho a não usa autoincremento, faz esse autoincremento pelo delphi, buscando o código na hora de gravar:
procedure Gravar;
var
i : integer;
begin
with query do
begin
if active then close;
SQL.Clear;
SQL.Add(´ select first 1 CODIGO from PROFESSORES );
SQL.Add(´ order by CODIGO desc );
if IsEmpty then i := 1 else i := FieldByName(´CODIGO´).AsInteger + 1;
close;
SQL.Clear;
SQL.Add(´ insert into PROFESSORES ( CODIGO, NOME, ... ) ´);
SQL.Add(´ values ( ´+IntToStr(i)+´, ´´NOME´´, ...) );
EXECSQL;
end;
end;
create table PROFESSORES
( CODIGO integer not null,
NOME varchar (60) not null,
DATANASCIMENTO date,
FILHOS varchar(10),
PONTOS integer,
FAIXA integer,
CATEGORIA integer,
primary key (codigo) );
para criar o índice (depois da tabela criada)
create index iNome on Professores (NOME);
Te aconselho a não usa autoincremento, faz esse autoincremento pelo delphi, buscando o código na hora de gravar:
procedure Gravar;
var
i : integer;
begin
with query do
begin
if active then close;
SQL.Clear;
SQL.Add(´ select first 1 CODIGO from PROFESSORES );
SQL.Add(´ order by CODIGO desc );
if IsEmpty then i := 1 else i := FieldByName(´CODIGO´).AsInteger + 1;
close;
SQL.Clear;
SQL.Add(´ insert into PROFESSORES ( CODIGO, NOME, ... ) ´);
SQL.Add(´ values ( ´+IntToStr(i)+´, ´´NOME´´, ...) );
EXECSQL;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
