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.