Para os feras em Delphi com Interbase/Firebird
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ódigo-fonte desta aplicação?
Obrigado!!
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ódigo-fonte desta aplicação?
Obrigado!!
Janderson
Curtidas 0
Respostas
Anonymous
09/03/2003
TEM SIM !
UTILIZE A API DO INTERBASE/FIREBIRD !
VEJA ALGUNS EXEMPLOS DE COMO UTILIZAR A API DO INTERBASE
REVISTA CLUBEDELPHI Nº 36
UTILIZE A API DO INTERBASE/FIREBIRD !
VEJA ALGUNS EXEMPLOS DE COMO UTILIZAR A API DO INTERBASE
REVISTA CLUBEDELPHI Nº 36
GOSTEI 0
Anonymous
09/03/2003
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;
----------------------------------------------------------------------
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;
GOSTEI 0