Atualizar
Bom galera tenho um triger q gera o nº AutoIncl
(FIREBIRD) (Before INSERT)
AS
BEGIN
IF (NEW.CODIGO IS NULL) THEN
NEW.CODIGO = GEN_ID(GEN_VISITANTE_ID,1);
END
no D7 Conecto com IbDataBase, IbTable e um ibTransaction
(Botão Gravar )
Dm.TbVisitante.Post;
Dm.TransVisitante.CommitRetaining;
Dm.TbVisitante.Transaction.CommitRetaining;
ja tentei so Commit em Transaction mais não da certo. tenho q fechar e abrir o sistema pro numero autoinclemento aparecer.
(FIREBIRD) (Before INSERT)
AS
BEGIN
IF (NEW.CODIGO IS NULL) THEN
NEW.CODIGO = GEN_ID(GEN_VISITANTE_ID,1);
END
no D7 Conecto com IbDataBase, IbTable e um ibTransaction
(Botão Gravar )
Dm.TbVisitante.Post;
Dm.TransVisitante.CommitRetaining;
Dm.TbVisitante.Transaction.CommitRetaining;
ja tentei so Commit em Transaction mais não da certo. tenho q fechar e abrir o sistema pro numero autoinclemento aparecer.
Marcal
Curtidas 0
Respostas
Sremulador
10/05/2006
vocÊ tem que recarregar seus dados...
GOSTEI 0
Marcal
10/05/2006
Vc diz dar um Close e um Open na IbTable? mas ai a tela do registro ira para o inicio da tabela, e nao posso fazer isso tenho q deixar o ultimo registro salvo na tela
GOSTEI 0