Olá, Vamos lá: tire a linha toda ok. Ficará assim:
CREATE TRIGGER TITULOS_BI FOR TITULOS ACTIVE BEFORE INSERT POSITION 0 AS BEGIN NEW.CODIGO = GEN_ID(GEN_TITULOS_ID,1); END Certo!?! Pronto. Compile novamente a trigger. Não que o delphi não dispara a trigger. Não é o delphi que faz isso é o banco. O DBX tem algumas frescuras. Nos meus programas funcionam assim. Veja se funciona. --- []'s Alexandre [EMAIL PROTECTED] -----Mensagem original----- De: Odair [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 12 de abril de 2005 09:31 Para: [EMAIL PROTECTED] Cc: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: [lista-delphi] Auto Incremento no FB com DBX Esse cód abaixo é o que o IBExpert gerou qdo. eu criei o gerador, se eu tirar esse "IF", ai num funciona nem nele próprio. No IB, se eu inserir dados no banco ele gera o cod pra mim, é o Delphi que não dispara o trigger no banco e é o que gostaria de saber como fazer - o código no Delphi pra disparar o contador no banco (se é q precisa ou eu estou fazendo alguma mer.... por isso não ta funcionando). No meu "sbGravar" o cód. está simplesmente assim : cdsTitulos.Post; cdsTitulos.ApplyUpdates (-1);//Pois já quero gravar a inclusão "direto" no banco. Odair ----- Original Message ----- From: "Alexandre Oliveira" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, April 12, 2005 8:42 AM Subject: RES: [lista-delphi] Auto Incremento no FB com DBX Olá, Após o Post dá um applyupdates e tira aquele if da trigger. CREATE TRIGGER TITULOS_BI FOR TITULOS ACTIVE BEFORE INSERT POSITION 0 AS BEGIN IF (NEW.CODIGO IS NULL) THEN /// esse if aqui.. NEW.CODIGO = GEN_ID(GEN_TITULOS_ID,1); END Inté+ --- []'s Alexandre [EMAIL PROTECTED] -----Mensagem original----- De: Odair [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 12 de abril de 2005 00:49 Para: ListaDelphi; DelphiTotal; delphi-br@yahoogrupos.com.br; Delphi_Só Programadores; Delphi_Grupos Assunto: [lista-delphi] Auto Incremento no FB com DBX Bom dia a todos. Pessoal, estou tentando fugir do Piradox em um sistema que estou começando agora e optei por Firebirb com DBX (Delphi 7). Banco criado (IBExpert), com auto "incremento" para os "CÓDIGOS" que são tipo INTEGER NÃO NULO de todas as tabelas (clientes, forn, títulos, etc...). Criei todos os form de cadastro tudo bonitinho e percebo que esta "quase" tudo funcionando, com exceção ao trigger que não dispara no banco me retornando erro. Pergunta de iniciante, o que preciso colocar no Post pra disparar o trigger?? Ou o que preciso mudar no banco ou na aplicação?? Grato a todos. Odair SQL dos "auto incremento": CREATE TRIGGER TITULOS_BI FOR TITULOS ACTIVE BEFORE INSERT POSITION 0 AS BEGIN IF (NEW.CODIGO IS NULL) THEN NEW.CODIGO = GEN_ID(GEN_TITULOS_ID,1); END [As partes desta mensagem que não continham texto foram removidas] *************************************************************************** **** Participem do 5o. Delphi Developers Day em São Paulo, data prorrogada para 02/04. Veja mais www.dugbr.com.br *************************************************************************** Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos -- Mensagem recebida está livre de virus. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 -- Mensagem enviada está livre de virus. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- Mensagem recebida está livre de virus. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 -- Mensagem enviada está livre de virus. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
