Iniciando

[Ninha]

Bom dia.


Fiz esta rotina abaixo... está compilando e executando, aparece a mensagem:
"FRM-40735: O GATILHO WHEN-MOUSE-DOUBLECLICK LEVANTOU A EXCEÇÃO ORA-01401 NÃO MANIPULADA."

Selecionar tudo

PROCEDURE TESTE_ED IS

A VARCHAR2(1);
B VARCHAR2(1);
C NUMBER;
D VARCHAR2(1);

BEGIN

	MESSAGE ('PASSOU POR ESTA ROTINA');
    
  INSERT INTO TESTE_ED (A, B, C, D) VALUES ('NOME', 'SOBRENOME', 'TELEFONE', 'BAIRRO');
  
END;

[Trevisolli]

Ninha, bom dia.
Não seria o contrário???

Dá uma olhada abaixo:

Selecionar tudo

PROCEDURE TESTE_ED IS 

A VARCHAR2(1):= 'A'; 
B VARCHAR2(1):='B'; 
C NUMBER :=1; 
D VARCHAR2(1):='C'; 

BEGIN 

   MESSAGE ('PASSOU POR ESTA ROTINA'); 
    
  INSERT INTO TESTE_ED (NOME, SOBRENOME, TELEFONE, BAIRRO)        
  VALUES (A, B, C, D);   
EXCEPTION
  WHEN OTHERS THEN
     MESSAGE('Erro inserindo informações: ' || sqlerrm);
     MESSAGE('Erro inserindo informações: ' || sqlerrm);
END;

Coloquei um Exception para que caso dê um outro erro, você saiba o que está acontecendo e, passei valores para tuas variáveis pois, se algum dos campos da tua tabela for NOT NULL, daria erro.

Faz um teste ai e, qualquer coisa retorna pra gente.

[Ninha]

Obrigada Trevisolli!!! Consegui!!
Valeu.
Ninha.