[firebase-br] montar procedure dinamica

Denilson Hauch denilsonhauch em gmail.com
Qua Mar 21 10:41:12 -03 2007


alguem ja fez alguma coisa assim

quero passar por paramentro o campo e o valor  para pesquisar e tambem o 
campo q quero ordenar


no delphi eu monto tranquilamente  mas como ficou muito lento  queria saber 
se tem como montar em uma procedure

tentei assim

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

/* Stored procedures */

CREATE PROCEDURE "MOSTRALIVROS"
(
  "CONDICAO" CHAR(50),
  "ORDEM" CHAR(30)
)
RETURNS
(
  "ID_LIVRO" INTEGER,
  "TITULO" CHAR(50),
  "EDICAO" CHAR(10),
  "ORIGEM" CHAR(50),
  "ID_EDITORA" INTEGER,
  "NOME_EDITORA" CHAR(50),
  "ID_AUTOR" INTEGER,
  "NOME_AUTOR" CHAR(50),
  "ID_ASSUNTO" INTEGER,
  "NOME" VARCHAR(50)
)
AS
begin
  for select livros.id_livro, livros.titulo,
       livros.edicao, livros.origem, livros.id_editora,
             editoras.nome_editora, livros.id_autor,
             autores.nome_autor,livros.id_assunto,
             assuntos.nome
             from livros, assuntos, autores, editoras
             where livros.id_assunto=assuntos.id_assunto
             and livros.id_autor=autores.id_autor
             and livros.id_editora=editoras.id_editora
             and :condicao
             order by :ordem
             into 
:id_livro,:titulo,:edicao,:origem,:id_editora,:nome_editora,:id_autor,:nome_autor,:id_assunto,:nome
             do
             suspend;
end
 ^

SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;


















Mais detalhes sobre a lista de discussão lista