Neste artigo é enfocado o cuidado a ser tomado no uso de Generators dentro do Delphi.

Quando definimos no banco de dados os Generators na maioria dos casos serve para compor uma chava primária de alguma tabela. Com isso iremos simular um campo de auto-incremento (disponíveis em outros bancos de dados). Há que se tomar um certo cuidado, pois o uso sugerido do generator é inserir uma Trigger Before Inssert na tabela desejada e nesta trigger colocar o seguinte:      NEW.CAMPO = GEN_ID(GENERATOR, 1); Realmente isto funciona e muito bem. Mas quando estamos dentro do Delphi não iremos enxergar quando o banco de dados colocar o valor no campo. Portanto, iremos ter um campo (componente de uma chave primária) com valor nulo em nosso result set. Resultado disto é uma mensagem de erro no Delphi dizendo que um campo de valor obrigatório não foi preenchido (na melhor das hipóteses). A solução para isto é "relativamente" simples. Precisaremos criar uma Stored Procedure que irá buscar o valor do generator (incrementando-o ao mesmo tempo) e nos retornar este valor. O código desta stored procedure é: CREATE PROCEDURE SP_NEWCOD (     TABELA VARCHAR(10)) RETURNS (     CODIGO INTEGER) AS BEGIN   IF (TABELA = "CLIENTE") THEN      CODIGO = GEN_ID(GEN_CLIENTE, 1);   IF (TABELA = "FORNEC") THEN      CODIGO = GEN_ID(GEN_FORNEC, 1);   IF (TABELA = "PRODUTOS") THEN      CODIGO = GEN_ID(GEN_PRODUTOS, 1);   SUSPEND; END Vejam que foi criado um "IF" para cada tabela do banco de dados que contém um generator. Bem, esta Stored Procedure serve apenas para obter o valor. Notem que não faz alteração nenhuma no banco de dados. No Delphi, no momento da inserção de um novo registro iremos chamar esta Stored Procedure, passando como parâmetro o nome da tabela em questão. O valor do nosso campo será retornado. Com este valor iremos, de dentro do Delphi, fazer a inserção do registro dando o devido valor ao campo. Para chamar a Stored Procedure é bem simples. Basta colocar uma query (TQuery ou similar) e colocar na sentença SQL: SELECT * FROM SP_NEWCOD("CLIENTE") Neste caso iremos buscar o código para a tabela de clientes. A nossa query irá retornar um registro apenas com um campo chamado "CODIGO" do tipo inteiro. Em Delphi faríamos assim:   Query1.Sql.Clear;   Query1.Sql.Add('SELECT * FROM SP_NEWCOD("CLIENTE")');   Query1.Open;   ShowMessage('Código do cliente: '+      IntToStr(Query1.FieldByName('CODIGO').AsInteger)); Problema resolvido... O local de busca de valores é único (a Stored Procedure) e o local de gravação do valor é correto (de dentro do nosso aplicativo).

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi; Firebird;
Versão.......: 2.00
Data.........: 28/02/2005 23:23:59
Visualizado..: 15842 vezes
Fonte........: Marcelo Torres