F�rum Gerar uma mensagem para usuario quando aplicar o NO ACTION? #395597

12/02/2011

Pessoal, como fa�o para gerar uma mensagem para o usuario quando ele esta tentando apagar uma tabela que contem movimenta��es entre suas referencias Pai/Filho.

Ou seja deixei como NO ACTION na tabela filho FK --- PK ent�o ai n�o executa nenhuma a��o.

Mais como mostrar pa ra o usuario uma mensagem que o filho n�o pode ser orf�o ?

Obrigado.

Adriano Dolce

Curtir t�pico

+ 0

Responder

Posts

12/02/2011

Adriano Dolce

Fiz assim,

CREATE OR ALTER TRIGGER EXEPT_CLIENTE_REF FOR CLIENTES
ACTIVE BEFORE DELETE POSITION 0
AS
begin
  if
   (
    Exists
          (
           SELECT c.nomeclie
           FROM clientes C, ordemserv O
           )
   )
  then
    Exception RESTRICAO 'Aten��o! Exite movimenta��o para este Cliente.';
end

Mas n�o esta mostrando o exception para o usuario.

Responder

Gostei + 0

12/02/2011

Adriano Dolce

Pessoal, o que eu quero fazer � algo semelhante ao que fazemos no delphi

No delphi eu trataria assim

 {verifica se existe referencia nas tabelas antes de exetudar o delete}
      with qrylocal do
      begin
         close;
         SQL.Clear;
         SQL.Text := ' SELECT c.idclientes '+
           ' FROM clientes C '+
           ' INNER JOIN ordemserv O ON(c.idclientes = o.idclientes) '+
           ' WHERE c.idclientes = :codigo ';
         ParamByName('codigo').AsInteger := StrToInt(edtgen.Text);
         Open;
         if not IsEmpty then
         begin
           Pt_MessageDlg('Aten��o! Exite movimenta��o para este Cliente.', mtError, [mbok],0);
           Exit;
         end;
      end;

Ja diretamente no banco de dados Firebird � que n�o estou conseguindo

Responder

Gostei + 0