problemas com editar tabela delphi 7
Estou usando ibexpert, firebird 2.0, delphi 7, componentes paleta interbase.
Boa Noite a todos, estou com a seguinte duvida, criei duas exceptions junto com duas trigger para dois eventos:
Essa exception verifica se existe nomes repetidos antes da insercao e da edicao.
evento de insercao:
Quando eu insiro um novo registro e clico em salvar se existe campos na tabela com o nome repetido ele acusa uma mensagem ate ai, esta funcionando bem.
evento de edicao:
Agora vem o problema que nao sei como resolver, digamos que preciso editar o registro com o nome FulanoDeTal (unico registro cadastrado no banco de dados), digamos que edite a cidade precise mudar a cidade do usuario, de cidade A para cidade B. Quando vou salvar a edicao ele acusa que o registro FulanoDeTal ja existe e impede a mudanca do registro. Como resolver isso? Aguardo ajuda.
Os codigos sao os seguintes:
Controla o registro repetido na insercao.
CREATE OR ALTER trigger trg_regisnewrepetido for tabcadastro
active before insert position 0
as
begin
if (exists
(select NOMECOMPLETO from TABCADASTRO
where NOMECOMPLETO = NEW.NOMECOMPLETO)) then
exception E_REGISNEWREPETIDO;end
Controla a edicao de registros
CREATE OR ALTER trigger trg_regiseditrepetido for tabcadastro
active before update position 0
as
begin
if (exists
(select NOMECOMPLETO from TABCADASTRO
where NOMECOMPLETO = new.NOMECOMPLETO)) then
exception E_REGISEDITREPETIDO;end
Aguardo Resposta. Obrigado.
Discussão (2)
Carregando comentários...