Codigo automatico e sequencial

Question

Gostaria de fazer um cadastro de aluno. Mas n�o sei como fazer com que o c�digo do aluno seja gerado automaticamento e sequencialmente.

Estou usando o bando InterBase e para fazer a conexao com o delphi uso os componentes da paleta DBExpress.

Agrade�o desde j�

:)

Gandalf.nho · Answer

A maneira mais f�cil e simples � usar generators em conjunto ou n�o com triggers....

_celo · Answer

No InterBase n�? Mas como fa�o isso?Vc tem algum exemplo? obrigado....

Gandalf.nho · Answer

Voc� deve criar um generator com o comando:
CREATE GENERATOR nome_generator.

Uma das maneiras mais comuns de associar o generator ao campo Integer que dever� ser incrementado � via trigger, assim:

CREATE TRIGGER nome_trigger FOR nome_tabela
BEFORE INSERT
AS
BEGIN
IF (NEW.nome_campo IS NULL) THEN
NEW.nome_campo = GEN_ID(nome_generator, 1);
END
END

_celo · Answer

Legal!! Fiz um Generator e funcionou muito bem, Mas so que agora acontecue mas um pequeno probleminha � pq naum sei como zerar o Generator. Alguem pode diria me ajudar?Agrade�o desde j�!...

Gandalf.nho · Answer

SET GENERATOR nome_generator TO 0...

_celo · Answer

Obrigado me servio bastante :)...

$grandaum$ · Answer

tipo essa trigger naum esta rodando....eu naum manjo muito de interbase mas ajh criei o generator jah dei o valor inicial pra ele de 500 e quando mando rodar a trigger estah dando o seguinte erro

Dynamic SQL Error
SQL error code = -104
Unexpected end of command
Statement: CREATE TRIGGER inc FOR cad_emp
BEFORE INSERT
AS
BEGIN
IF (NEW.cod_emp IS NULL) THEN
NEW.cod_emp = GEN_ID(incrementa, 1)

Gandalf.nho · Answer

Voc� colocou os END no final?...

$grandaum$ · Answer

sim...

$grandaum$ · Answer

CREATE TRIGGER inc FOR cad_empBEFORE INSERTASBEGINIF (NEW.cod_emp IS NULL) THENNEW.cod_emp = GEN_ID(incrementa, 1);ENDEND...

Gandalf.nho · Answer

Tente usar o SET TERM, assim:SET TERM ^;CREATE TRIGGER inc FOR cad_emp BEFORE INSERT AS BEGIN IF (NEW.cod_emp IS NULL) THEN NEW.cod_emp = GEN_ID(incrementa, 1); END END ^SET TERM ;^...

$grandaum$ · Answer

[quote:4ec1c2cbc2=�gandalf.nho�]Tente usar o SET TERM, assim:SET TERM ^;CREATE TRIGGER inc FOR cad_emp BEFORE INSERT AS BEGIN IF (NEW.cod_emp IS NULL) THEN NEW.cod_emp = GEN_ID(incrementa, 1); END END ^SET TERM ;^[/quote:4ec1c2cbc2]consegui resolver o problema de tanto ler esse trecho ......rh apenas tirar o 1� end do final...

$grandaum$ · Answer

mesmo assim vlw gandalf.nho pela for�a .......

Gandalf.nho · Answer

Ops, n�o tinha percebido que havia colocado um END a mais, desculpe......

F�rum Codigo automatico e sequencial #261284