F�rum Como Chamar Trigger pelo Delphi 7 Para Fazer o Autoincrement? #383122

09/08/2010

Ol�! Gostaria de saber como chamar pelo Delphi um Trigger que tem a fun��o de gerar um c�digo automaticamente para inserir numa tabela que criei em Firebird. Eu criei um generator chamado gen1 e criei um Trigger: CREATE trigger TRIG1 for CLIENTE active before insert position 0 As BEGIN if (NEW.CODIGO IS NULL) then NEW.CODIGO = GEN_ID (TRIG1, 1); END No programa que eu criei em Delphi, tem a tela de cadastro normal, mas eu quero que n�o seja necess�rio digitar nenhum c�digo no DBEdit1. Quero chamar essa trigger pra ela adcionar o c�digo automaticamente quando eu clicar em "Novo Cadastro". Eu utilizo um ClientDataSet pra fazer conex�o com o Firebird. � poss�vel chamar esse Trigger usando ClientDataSet? Como ficaria isso? Algu�m poderia me ajudar? Estou quebrando cabe�a a um temp�o pra tentar inserir o c�digo automaticamente. Obrigado!

Ricardo

Curtir t�pico

+ 0

Responder

Posts

09/08/2010

Marcos Iwazaki

Ent�o amigo...

Trigger dispara sozinho de acordo com a a��o que vc escolheu, no caso "Before Insert" isso quer dizer antes de inserir. Mas isso significa antes de inserir no banco.

Outra coisa vc esta usando ClientDataSet, qdo vc faz um cds.Insert isso faz um insert no seu ClientDataSet e n�o no banco. Somente qdo vc fizer um applyupdates vai salvar no banco.

Vc pode deixar o seu campo vazio e salvar, dae qdo for para o banco a trigger vai disparar.
Se caso vc tiver problema pois o campo do codigo tem que estar preenchido, ent�o preencha com "0" e na trigger verifique "if isnull or codigo=0"

Espero ter ajudado...
flw.

Responder

Gostei + 0

09/08/2010

Ricardo

Como assim o ClientDataSet n�o salva no banco? Desculpe a minha ignor�ncia, � que e ainda estou aprendendo. Eu tenho um programa que eu fiz que ele inclui, altera e exclui do banco de dados. Para conex�o eu usei um SQLConection, SQLDataSet, DataSetProvider, ClientDataSet e um DataSource. Eu digito o conte�do em DBEdits e quando clico em Salvar o conte�do � salvo no meu banco Firebird e � exibido num DBGrid. O banco que eu criei tem esse Trigger a� que eu mostrei, mas quando eu clico em salvar, se o campo C�DIGO n�o tiver sido preenchido ele n�o est� salvando automaticamente, por isso achei que tivesse que fazer algo diferente como "chamar" o Trigger no Delphi. Quando eu clico em Salvar, se eu n�o informar o C�DIGO, ele da erro de "Violation of Primary and Unique Key", entende? Voc� saberia me dizer o que eu estou fazendo errado ent�o?

Responder

Gostei + 0

10/08/2010

Ricardo

Algu�m a� tem id�ia de como resolver isso????????

Responder

Gostei + 0

10/08/2010

Wilson Junior

No seu c�digo voc� est� dizendo que o seu GENERATOR tem o mesmo nome da TRIGGER. Esta correto isto?
NEW.CODIGO = GEN_ID (TRIG1, 1);

Deve ser criado um GENERATOR para efetuar o auto-incremento do campo c�digo. Ex.: GEN_CLIENTE
NEW.CODIGO = GEN_ID (GEN_CLIENTE, 1);

Espero ter colaborado.

Responder

Gostei + 0

10/08/2010

Deivison Melo

Poderia utilizar essa forma com o dbexpress: function GeneratorID (aName: string; Connection: TSQLConnection;
Incrementa: Boolean): integer;
var
Qry: TSQLQuery;
begin
Qry := TSQLQuery.Create(nil);
try
    Qry.SQLConnection := Connection;
    if Incrementa then
      Qry.SQL.Add(
        'SELECT GEN_ID('+aName+', 1) FROM RDB$DATABASE')
    else
      Qry.SQL.Add(
        'SELECT GEN_ID('+aName+', 0) FROM RDB$DATABASE');
    Qry.Open;
    Result := Qry.Fields[0].AsInteger;
finally
    FreeAndNil(Qry);
end;
end; Qualquer coisa estou � disposi��o!!!

Responder

Gostei + 0

10/08/2010

Ricardo

Realmente eu escrevi o c�digo do Trigger errado aqui no Forum.
Mas l� no firebird ta certinho, tanto que t� incrementando o c�digo sozinho quando fa�o a inser��o por l�.
O problema t� no Delphi mesmo.
Me disseram que isso acontece porque o ClientDataSet requer que todos os campos sejam digitados.
E disseram que tem um jeito de o ClientDataSet n�o requerer o campo c�digo, mas n�o souberam me explicar isso. Se algu�m souber como se faz isso agrade�eria, porque � horr�vel criar um c�digo para fazer auto increment sendo que o firebird faz isso de modo mais simples com generator e trigger.
Algu�m saberia me explicar com detalhes como faz para o ClientDataSet n�o requerer o c�digo?
Se algu�m j� passou por isso ou sabe do que eu estou falando, da uma ajudinha por favor?
Vlw a� a todos!!!

Responder

Gostei + 0

10/08/2010

Eriley Barbosa

No Fields Editor do SQLDataset selecione o campo c�digo do cliente e no object Inspector altere a propriedade Required para False, repita a opera��o para o clientDataset. Atenciosamente Eriley

Responder

Gostei + 0

10/08/2010

Ricardo

No Fields Editor do SQLDataset selecione o campo c�digo do cliente e no object Inspector altere a propriedade Required para False, repita a opera��o para o clientDataset. Atenciosamente Eriley

Opa! Agora sim T� perfeito!!! Modifiquei o required pra false e zerei o generator do banco. Agora t� inserindo automaticamente perfeitamente, hehehe!!! Vlw a� a todo mundo que ajudou!!! Abra�o!!!

Responder

Gostei + 0

04/05/2013

Frederico Brigatte***

Como que uso generator no delphi para incrementar no campo. Tenho o generator criado no banco:

CREATE SEQUENCE GEN_FUNCIONARIOS_ID;
ALTER SEQUENCE GEN_FUNCIONARIOS_ID RESTART WITH 0;

N�o estou sabendo utilizar no Delphi.

Responder

Gostei + 0

16/06/2013

Ricardo

Amigo, que componentes voc� utiliza para conectar o delphi no banco de dados?

Se for usando o IBDatabase, coloca um IBQuery e na propriedade "GeneratorField" do IBQuery, Clica nos (...) que tem l� e vai abrir uma janela pra configurar o auto increment. � s� a sua chave prim�ria no campo FIELD e dar ok.
N�o esque�a de setar as propriedades do IBQuery "DataSource", "Transaction" e "UpdateObject" para seus respectivos componentes.

Responder

Gostei + 0