excepcion

[nenufer]

Buenos dias!!
Utilizo firebird y delphi7.
Creo en delphi un procedimiento almacenado, (porque mas adelante lo puedo utilizar en otra base de datos). Si no esta creado se crea, hasta ahi bien.
El problema es cuando esta creado da un error EIBInterbaseError- 'Unsuccessful metadata update procedure CompruebaCampo already exists'. He hexo una busqueda por el foro y e encontrado algo de ayuda, pero sigo sin poder solucionar mi problema.

Añado a uses IB. Y en el codigo hago:

Código Delphi [-]
procedure TDM.ProcStorec();
begin
  try
    try
      with QrProcedimiento.SQL do
      begin
        Clear;
        Add('Create  procedure compruebaCampo (Campo varchar(30)) ');
        Add('Returns(Valor varchar(30)) as begin ');
        add('if (Campo is null) then Valor = ''(Null)''; ');
        Add('else Valor = ''Campo''; end');
        QrProcedimiento.open;
      end;
    except
       on E: EIBInterbaseError do
        showmessage('Procedimiento ya creado);
    end;
  finally
  end;
end;

Me sigue saliendo el mensaje de error y yo quiero q solo muestre el mio y continue con la ejecucion. He probado ya con varias cosas pero sin exito.
Si alguien puede ayudarme gracias de antemano.

[Neftali [Germán.Estévez]]

Comprueba que tienes este CheckBox desactivado:

Tools // Debugger Options // Language Exceptions // Stop on Language exceptions

[nenufer]

Si que estaba activado. Muchas gracias, !!!!

[Casimiro Notevi]

Empezado por nenufer

Si que estaba activado. Muchas gracias, !!!!

pues acuérdate de activarlo cuando estés depurando y quieras encontrar un error.

[nenufer]

Gracias por avisar. Esa parte no la tenia muy clara.

[[Lepe]]

Una pregunta.... ¿no sería QrProcedimiento.ExecSql en lugar de QrProcedimiento.open?

Saludos

[nenufer]

Pues la verdad es que con el open me crea el procedimiento, y normalmente siempre lo hago con open y funciona. Asi que ahora no se . Pero por lo que he leido,tiene mas sentido ExecSql. Acepto cualquier opinion o correccion.