Trabalhando com campos ID no Oracle e Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (3)  (0)

Neste exemplo vou mostrar duas maneiras de trabalhar com o ID ou campos chaves, no Oracle e Delphi.

Olá a todos, meu nome é Julierme Carvalho gostaria de mostrar nestes pequenos exemplos como lidar com os campos ID no Oracle para ressalvar no Oracle não existe um campo auto-incremento como no Mysql ou SqlServe, campos que os códigos são gerados automaticamente sem a interação do usuário. Os campos ID ou chaves são o que mantém a unicidade e referências entre as tabelas, por isso a necessidade de uma operação automatizada e sem erros, para isso apresento duas soluções uma criar uma função genérica que sempre me retornar o sequencial, ou uma trigger que incremente este valor para mim.

Então vamos criar uma tabela simples;

 

CREATE TABLE CIDADES

(

  CODIGO  INTEGER NOT NULL,

  NOME    VARCHAR2(100 BYTE),

  UF      CHAR(2 BYTE)

)

 

Criando um sequencial para esta tabela;

 

CREATE SEQUENCE SQ_CIDADES

  START WITH 1

  MAXVALUE 99999999

  MINVALUE 1

 

Trigger: Sendo mais fácil de trabalhar, a trigger  incrementa o campo toda a vez que houve um inserção na tabela. Por outro lado deve ser criar uma trigger para cada tabela, e se algum caso precisar deste valor que foi gerado, você tem que dar um SELECT para saber qual o valor que foi gerado, e pode acreditar em algum momento você vai passar por esta situação. Mais simplifica muito a vida do programador e é mais comum de ser usado justamente por não se preocupar mais com este campo.

 

Código da trigger:

CREATE OR REPLACE TRIGGER ICREMENTA_CIDADES

BEFORE INSERT

ON CIDADES REFERENCING NEW AS New OLD AS Old

FOR EACH ROW

BEGIN

     SELECT SQ_CIDADES.NEXTVAL

     INTO    :NEW.CODIGO

     FROM    DUAL;

END;

Esta parte é bem simples! Mais lembrando para cada tabela uma trigger!

 

FUNCTION: O código da função é muito simples, tanto quanto a trigger mais porque trabalhar com a função e não com a trigger? Uma não vai ser preciso criar uma função para cada tabela e sim uma única função genérica para incrementar todas as tabelas com esta necessidade, outro bom caso trabalha-se já com o valor do código em tela não tendo a necessidade de buscar este valor no banco. Mais por outro lado tenho que chamar a função toda a vez que precisar incrementar um campo vou mostra como faço isso Delphi de maneira genérica e muito simples, tornado muito fácil meu trabalho.

 

Primeiro vamos criar a função

 

CREATE OR REPLACE FUNCTION FC_GET_GERADOR (NOME_SEQUENCIAL IN VARCHAR2) RETURN INTEGER

IS

SEQUENCIAL INTEGER;

BEGIN  

   

    EXECUTE IMMEDIATE 'SELECT '||NOME_SEQUENCIAL||'.NEXTVAL FROM DUAL' INTO SEQUENCIAL;

   RETURN SEQUENCIAL;

END;

 

Como a função funciona? Apenas me pede um nome do sequencial e retorna o valor incrementado de um, Simples assim!

Agora vou mostra como trabalhar com a função no Delphi.

No seu cadastro base cria uma function publica chamada GetID que pede uma string com paramentro e retornado uma string;

 

O código:

 

public

{: função para gera o ID}

function  GetID(Sequences: string): string;

 

 

implementation

 

function TfrmBaseCad.GetID(Sequences: string): string;

var

  qry: TSQLDataSet;

begin

  qry := TSQLDataSet.Create(nil);

  qry.SQLConnection := Conn;// Conn é conexao com banco de dados

  qry.CommandText:=('SELECT FC_GET_GERADOR('+QuotedStr(Sequences)+')as Sequences FROM DUAL');

  qry.Open;

  Result := qry.FieldByName('Sequences').AsString;

  qry.Free;

end;

 

Pronto depois disso é so chamar a função e passar o nome do sequencial no nosso exemplo

 

edtCodigo.Text := GetID('SQ_CIDADES');


http://juliermecarvalho.wordpress.com/

 

Obrigado a todos e até mais.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?