Para os feras em Delphi com Interbase/Firebird

Question

Boa noite, Amigos!!Estou precisando de uma informa��o de voc�s. Existe alguma maneira de criar Stored Procedures Usando uma aplica��o em Delphi em tempo de execu��o? Se existir Como tem de ser o c�dig...

Anonymous · Answer

TEM SIM !UTILIZE A API DO INTERBASE/FIREBIRD !VEJA ALGUNS EXEMPLOS DE COMO UTILIZAR A API DO INTERBASE REVISTA CLUBEDELPHI N� 36...

Anonymous · Answer

N�o testei, mas tente executar as linhas de comando para a cria�ao dentro de um componete TIBSQL, acho que d� certo.

----------------------------------------------------------------------

Caso a sua pergunta seja com rela��o acria�ao do componte TIBStoredProc fa�a o seguinte:

Exemplo de Procedure sem Parametros de entrada.

uses StoredProc;
.
.
.

function Exec_Proc(PN : String) :Variant
var
SP : TIBStoredProc
begin
try
sp := tibstoredProc.Create(self);
sp.database := seu.componente.ibdatabase;
sp.StoredProcName := PN;
sp.Prepare;
sp.ExecProc;
Result := sp.Params[0].value;
finally
FreeAndNil(SP);
end;
end;