Criar tabela..iniciante..

Delphi

25/02/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

25/02/2003

da uma força ai pessoal....


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

25/02/2003

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)
);



GOSTEI 0
Jrguitar

Jrguitar

25/02/2003

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;


GOSTEI 0
POSTAR